The Trunk: Tests-eem.95.mcz

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.!