[Pkg] The Trunk: Tests-eem.86.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.86.mcz

==================== Summary ====================

Name: Tests-eem.86
Author: eem
Time: 17 July 2010, 6:51:17.745 pm
UUID: 9423854c-082b-45a6-a4a0-6d11f9e44550
Ancestors: Tests-eem.85

TestObjectsAsMethods crashes only on the Cogit.
Mirror primitive tests succeed on the Cog VMs.

=============== Diff against Tests-eem.85 ===============

Item was changed:
  ----- Method: TestObjectsAsMethods>>testDNU (in category 'as yet unclassified') -----
  testDNU 
  
  	"Does crash VM with Cog"
+ 	Smalltalk isRunningCogit ifTrue:[^self assert: false].
- 	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 changed:
  ----- Method: TestObjectsAsMethods>>expectedFailures (in category 'as yet unclassified') -----
  expectedFailures
  	"Does crash VM with Cog"
  
+ 	^Smalltalk isRunningCogit
- 	^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 isRunningCogit ifTrue:[^self assert: false].
- 	Smalltalk isRunningCog ifTrue:[^self assert: false].
  
  	"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 isRunningCogit ifTrue:[^self assert: false].
- 	Smalltalk isRunningCog ifTrue:[^self assert: false].
  
  	self class addSelector: #answer42 withMethod: ObjectsAsMethodsExample new.
  	self assert: self answer42 = 42.
  	self class basicRemoveSelector: #answer42.!

Item was changed:
  ----- Method: MirrorPrimitiveTests>>expectedFailures (in category 'testing') -----
  expectedFailures
  
+ 	^Smalltalk isRunningCog
+ 		ifTrue: [#()]
+ 		ifFalse: [#(testMirrorAt testMirrorEqEq testMirrorInstVarAt testMirrorPerform testMirrorSize)]!
- 	^#(testMirrorAt testMirrorEqEq testMirrorInstVarAt testMirrorPerform testMirrorSize)!