[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