Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.95.mcz
==================== Summary ====================
Name: Tests-eem.95 Author: eem Time: 26 September 2010, 10:39:10.31 am UUID: 68c911f9-62ba-4240-833a-78ed17436d98 Ancestors: Tests-eem.94
Neater more demanding TestObjectsAsMethods from Pharo
=============== Diff against Tests-eem.94 ===============
Item was added: + ----- Method: TestObjectsAsMethods>>setUp (in category 'running') ----- + setUp + SystemChangeNotifier uniqueInstance doSilently: [ + self class addSelector: #add:with: withMethod: ObjectsAsMethodsExample new. + self class addSelector: #answer42 withMethod: ObjectsAsMethodsExample new. + self class addSelector: #foo withMethod: AbstractObjectsAsMethod new ]!
Item was added: + ----- Method: TestObjectsAsMethods>>tearDown (in category 'running') ----- + tearDown + SystemChangeNotifier uniqueInstance doSilently: [ + self class removeSelector: #add:with:. + self class removeSelector: #answer42. + self class removeSelector: #foo ]!
Item was changed: + ----- Method: TestObjectsAsMethods>>testAddNumbers (in category 'testing') ----- + testAddNumbers - ----- Method: TestObjectsAsMethods>>testAddNumbers (in category 'as yet unclassified') ----- - testAddNumbers - "self debug: #testAddNumbers" - - "md: I had to comment out the error... did strange things" - self class addSelector: #add:with: withMethod: ObjectsAsMethodsExample new. self assert: (self add: 3 with: 4) = 7. + self assert: (self perform: #add:with: withArguments: #(3 4)) = 7.! - "self assert: (self perform: #add:with: withArguments: #(3 4)) = 7. " - self class basicRemoveSelector: #add:with:.!
Item was changed: + ----- Method: TestObjectsAsMethods>>testAnswer42 (in category 'testing') ----- - ----- Method: TestObjectsAsMethods>>testAnswer42 (in category 'as yet unclassified') ----- testAnswer42 + self assert: self answer42 = 42! - - self class addSelector: #answer42 withMethod: ObjectsAsMethodsExample new. - self assert: self answer42 = 42. - self class basicRemoveSelector: #answer42.!
Item was changed: + ----- Method: TestObjectsAsMethods>>testDNU (in category 'testing') ----- - ----- Method: TestObjectsAsMethods>>testDNU (in category 'as yet unclassified') ----- testDNU + self should: [self foo] raise: MessageNotUnderstood! - - self class addSelector: #answer42 withMethod: AbstractObjectsAsMethod new. - self should: [self answer42] raise: MessageNotUnderstood. - self class basicRemoveSelector: #answer42.!
squeak-dev@lists.squeakfoundation.org