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