[Pkg] The Trunk: Tests-eem.95.mcz

[commits at source.squeak.org]

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