[squeak-dev] The Trunk: ToolsTests-fbs.63.mcz

commits at source.squeak.org commits at source.squeak.org
Tue May 21 22:01:28 UTC 2013


Frank Shearar uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.63.mcz

==================== Summary ====================

Name: ToolsTests-fbs.63
Author: fbs
Time: 21 May 2013, 11:01:03.232 pm
UUID: e4188f34-fa59-4518-88d5-eb6042ee51b6
Ancestors: ToolsTests-fbs.62

MethodReference new setStandardClass: foo methodSymbol: bar -> MethodReference class: foo selector: bar.

Tests!

=============== Diff against ToolsTests-fbs.62 ===============

Item was added:
+ ----- Method: MethodReferenceTest>>testClassSelectorDefaultsToSmalltalkGlobals (in category 'tests') -----
+ testClassSelectorDefaultsToSmalltalkGlobals
+ 	| mref |
+ 	mref := MethodReference class: self class selector: #testClassSelectorDefaultsToSmalltalkGlobals.
+ 	self assert: Smalltalk globals equals: mref environment.!

Item was changed:
  ----- Method: MethodReferenceTest>>testEquals (in category 'Running') -----
  testEquals
  	| aMethodReference anotherMethodReference |
  	aMethodReference := MethodReference new.
  	anotherMethodReference := MethodReference new.
+ 	"Two fresh instances should be equals between them"
+ 	self assert: MethodReference new equals: MethodReference new.
+ 	self assert: MethodReference new hash equals: MethodReference new hash.
+ 
+ 	"Two instances representing the same method (same class and  
- 	" 
- 	two fresh instances should be equals between them"
- 	self
- 		should: [aMethodReference = anotherMethodReference].
- 	self
- 		should: [aMethodReference hash = anotherMethodReference hash].
- 	" 
- 	two instances representing the same method (same class and  
  	same selector) should be equals"
+ 	self assert: (MethodReference class: String selector: #foo) equals: (MethodReference class: String selector: #foo).
+ 	self assert: (MethodReference class: String selector: #foo) hash equals: (MethodReference class: String selector: #foo) hash.!
- 	aMethodReference setStandardClass: String methodSymbol: #foo.
- 	anotherMethodReference setStandardClass: String methodSymbol: #foo.
- 	self
- 		should: [aMethodReference = anotherMethodReference].
- 	self
- 		should: [aMethodReference hash = anotherMethodReference hash] !

Item was changed:
  ----- Method: MethodReferenceTest>>testNotEquals (in category 'Running') -----
  testNotEquals
- 	| aMethodReference anotherMethodReference |
- 	aMethodReference := MethodReference new.
- 	anotherMethodReference := MethodReference new.
- 	""
- 	aMethodReference setStandardClass: String methodSymbol: #foo.
- 	anotherMethodReference setStandardClass: String class methodSymbol: #foo.
- 	" 
- 	differente classes, same selector -> no more equals"
  	self
+ 		deny: (MethodReference class: String selector: #foo) = (MethodReference class: String class selector: #foo)
+ 		description: 'Different classes, same selector -> no more equals'.
- 		shouldnt: [aMethodReference = anotherMethodReference].
- 	" 
- 	same classes, diferente selector -> no more equals"
- 	anotherMethodReference setStandardClass: String methodSymbol: #bar.
  	self
+ 		deny: (MethodReference class: String selector: #foo) = (MethodReference class: String selector: #bar)
+ 		description: 'Same class, different selectors -> no more equals'.!
- 		shouldnt: [aMethodReference = anotherMethodReference] !



More information about the Squeak-dev mailing list