Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.83.mcz==================== Summary ====================
Name: Tests-ar.83
Author: ar
Time: 21 June 2010, 8:30:12.745 pm
UUID: 8a6352eb-2cfe-ab4e-9749-9337b22f19be
Ancestors: Tests-HenrikSperreJohansen.82
Guard TestObjectsAsMethods against crashes on Cog.
=============== Diff against Tests-HenrikSperreJohansen.82 ===============
Item was changed:
----- Method: TestObjectsAsMethods>>testDNU (in category 'as yet unclassified') -----
testDNU
+
+ "Does crash VM with Cog"
+ Smalltalk isRunningCog ifTrue:[^self assert: false].
+
self class addSelector: #answer42 withMethod: AbstractObjectsAsMethod new.
self should: [self answer42] raise: MessageNotUnderstood.
self class basicRemoveSelector: #answer42.!
Item was added:
+ ----- Method: TestObjectsAsMethods>>expectedFailures (in category 'as yet unclassified') -----
+ expectedFailures
+ "Does crash VM with Cog"
+
+ ^Smalltalk isRunningCog
+ ifTrue:[#(testAddNumbers testDNU testAnswer42)]
+ ifFalse:[#()]!
Item was changed:
----- Method: TestObjectsAsMethods>>testAddNumbers (in category 'as yet unclassified') -----
testAddNumbers
+ "self debug: #testAddNumbers"
+
+ "Does crash VM with Cog"
+ Smalltalk isRunningCog ifTrue:[^self assert: false].
+
- "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 class basicRemoveSelector: #add:with:.!
Item was changed:
----- Method: TestObjectsAsMethods>>testAnswer42 (in category 'as yet unclassified') -----
testAnswer42
+
+ "Does crash VM with Cog"
+ Smalltalk isRunningCog ifTrue:[^self assert: false].
+
self class addSelector: #answer42 withMethod: ObjectsAsMethodsExample new.
self assert: self answer42 = 42.
self class basicRemoveSelector: #answer42.!
Locked
