--- a/TestCase.st	Fri Oct 31 15:36:19 2008 +0100
+++ b/TestCase.st	Fri Jan 16 11:57:20 2009 +0100
@@ -235,6 +235,24 @@
 			
 ! !
 
+!TestCase class methodsFor:'quick testing'!
+
+assert: aBoolean
+    ^ self new assert: aBoolean
+
+    "
+     TestCase assert: true
+    "
+!
+
+should: aBlock raise: anError
+    ^ self new should: aBlock raise: anError
+
+    "
+     TestCase should:[ self error ] raise: Error
+    "
+! !
+
 !TestCase class methodsFor:'testing'!
 
 isAbstract
@@ -748,7 +766,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.48 2008-10-31 13:12:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.49 2009-01-16 10:57:20 cg Exp $'
 ! !
 
 TestCase initialize!