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