Frank Shearar uploaded a new version of SUnit to project The Trunk:
http://source.squeak.org/trunk/SUnit-fbs.95.mcz==================== Summary ====================
Name: SUnit-fbs.95
Author: fbs
Time: 22 June 2013, 9:59:35.152 pm
UUID: ab8a9b79-cb02-4d4f-854d-0a940e0f6e20
Ancestors: SUnit-fbs.94
Actually display meaningful information in the event of #shouldnt:raise: failing.
=============== Diff against SUnit-fbs.94 ===============
Item was added:
+ ----- Method: TestCase>>fail: (in category 'extensions') -----
+ fail: aString
+
+ ^self assert: false description: aString.!
Item was changed:
----- Method: TestCase>>shouldnt:raise: (in category 'accessing') -----
shouldnt: aBlock raise: anExceptionalEvent
+ ^ [ aBlock value ]
+ on: anExceptionalEvent
+ do: [:e | self fail: 'Block raised ', e className, ': ', e messageText].!
- ^self assert: (self executeShould: aBlock inScopeOf: anExceptionalEvent) not
- !