The Trunk: Tests-eem.86.mcz

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