[Pkg] 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 Packages
mailing list