[Pkg] The Trunk: Tests-fbs.217.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 21 21:57:24 UTC 2013
Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.217.mcz
==================== Summary ====================
Name: Tests-fbs.217
Author: fbs
Time: 21 May 2013, 10:56:07.474 pm
UUID: 3c35b7ed-a8fe-4b2d-ae22-3562d5c31344
Ancestors: Tests-fbs.216
MethodReference new setStandardClass: foo methodSymbol: bar -> MethodReference class: foo selector: bar.
=============== Diff against Tests-fbs.216 ===============
Item was changed:
----- Method: MCDirtyPackageInfo>>methods (in category 'as yet unclassified') -----
methods
^ MCMockClassA selectors
select: [:ea | ea beginsWith: 'ordinal']
thenCollect:
[:ea |
+ MethodReference
+ class: MCMockClassA
+ selector: ea].!
- MethodReference new
- setStandardClass: MCMockClassA
- methodSymbol: ea].!
Item was changed:
----- Method: MCMockPackageInfo>>extensionMethods (in category 'as yet unclassified') -----
extensionMethods
+ ^ Array with: (MethodReference
+ class: MCSnapshotTest
+ selector: #mockClassExtension)!
- ^ Array with: (MethodReference new
- setStandardClass: MCSnapshotTest
- methodSymbol: #mockClassExtension)!
Item was changed:
----- Method: PCCByCompilation>>methodsWithDisabledCall (in category 'ui querying') -----
methodsWithDisabledCall
"Answer a SortedCollection of all the methods that contain, in source
code, the substring indicating a disabled prim."
"The alternative implementation
^ SystemNavigation new allMethodsWithSourceString: self disabledPrimStartString
matchCase: true
also searches in class comments."
| list string |
string := self disabledPrimStartString.
list := Set new.
'Searching all method source code...'
displayProgressFrom: 0
to: Smalltalk classNames size * 2 "classes with their metaclasses"
during: [:bar | | classCount |
classCount := 0.
SystemNavigation default
allBehaviorsDo: [:class |
bar value: (classCount := classCount + 1).
class
selectorsDo: [:sel |
| src |
"higher priority to avoid source file accessing
errors"
src := [class sourceCodeAt: sel]
valueAt: self higherPriority.
(src
findString: string
startingAt: 1
caseSensitive: true) > 0
ifTrue: [sel isDoIt ifFalse: [
+ list add: (MethodReference class: class selector: sel)]]]]].
- list add: (MethodReference new setStandardClass: class methodSymbol: sel)]]]]].
^ list asSortedCollection!
Item was changed:
----- Method: PrimCallControllerAbstract>>changeCallMethod:class:enable: (in category 'private user interface') -----
changeCallMethod: selector class: classOrSymbol enable: enableFlag
"Enables disabled or disables enabled external prim call by recompiling
method with prim call taken from comment."
| methodRef |
+ methodRef := MethodReference
+ class: (classOrSymbol isSymbol
- methodRef := MethodReference new
- setStandardClass: (classOrSymbol isSymbol
ifTrue: [Smalltalk at: classOrSymbol]
ifFalse: [classOrSymbol])
+ selector: selector.
- methodSymbol: selector.
enableFlag
ifTrue: [self enableCallIn: methodRef]
ifFalse: [self disableCallIn: methodRef]!
Item was changed:
----- Method: PrimCallControllerAbstract>>methodsWithCallForClass:enabled: (in category 'private user interface') -----
methodsWithCallForClass: class enabled: enabledFlag
^ class selectors
+ collect: [:sel | MethodReference class: class selector: sel]
- collect: [:sel | MethodReference new setStandardClass: class methodSymbol: sel]
thenSelect: (enabledFlag
ifNil: [[:mRef | self existsCallIn: mRef]]
ifNotNil: [enabledFlag
ifTrue: [[:mRef | self existsEnabledCallIn: mRef]]
ifFalse: [[:mRef | self existsDisabledCallIn: mRef]]])!
Item was changed:
----- Method: PrimCallControllerAbstract>>methodsWithFailedCallForClass: (in category 'ui querying') -----
methodsWithFailedCallForClass: class
^ class selectors
+ collect: [:sel | MethodReference class: class selector: sel]
- collect: [:sel | MethodReference new setStandardClass: class methodSymbol: sel]
thenSelect: [:mRef | self existsFailedCallIn: mRef]!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>disabledCallRefs (in category 'helper') -----
disabledCallRefs
^ self disabledCallSelectors
+ collect: [:sel | MethodReference class: self class selector: sel]!
- collect: [:sel | MethodReference new setStandardClass: self class methodSymbol: sel]!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>enabledCallRefs (in category 'helper') -----
enabledCallRefs
^ self enabledCallSelectors
+ collect: [:sel | MethodReference class: self class selector: sel]!
- collect: [:sel | MethodReference new setStandardClass: self class methodSymbol: sel]!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>failedCallRef (in category 'constants') -----
failedCallRef
+ ^ MethodReference class: self class selector: self failedCallSelector!
- ^ MethodReference new setStandardClass: self class methodSymbol: self failedCallSelector!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>methodRefsToExampleModule (in category 'constants') -----
methodRefsToExampleModule
^ self methodSelectorsToExampleModule
+ collect: [:sym | MethodReference class: self class selector: sym]!
- collect: [:sym | MethodReference new setStandardClass: self class methodSymbol: sym]!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>noExternalCallRef (in category 'constants') -----
noExternalCallRef
+ ^ MethodReference class: self class selector: self noExternalCallSelector!
- ^ MethodReference new setStandardClass: self class methodSymbol: self noExternalCallSelector!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>singularCallRef (in category 'constants') -----
singularCallRef
+ ^ MethodReference class: self class selector: self singularCallSelector!
- ^ MethodReference new setStandardClass: self class methodSymbol: self singularCallSelector!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>wrongCallRef (in category 'constants') -----
wrongCallRef
+ ^ MethodReference class: self class selector: #nonExistingCall!
- ^ MethodReference new setStandardClass: self class methodSymbol: #nonExistingCall!
Item was changed:
----- Method: PrimCallControllerAbstractTest>>wrongClassRef (in category 'constants') -----
wrongClassRef
+ ^ MethodReference class: Integer selector: self methodSelectorsToExampleModule first!
- ^ MethodReference new setStandardClass: Integer methodSymbol: self methodSelectorsToExampleModule first!
More information about the Packages
mailing list