--- a/TestCase.st	Mon Aug 20 19:00:33 2001 +0200
+++ b/TestCase.st	Thu Aug 23 22:57:05 2001 +0200
@@ -61,6 +61,22 @@
     "Modified: / 21.6.2000 / 10:00:05 / Sames"
 !
 
+assertFalse:aBoolean
+    ^ self assert:aBoolean not
+!
+
+assertFalse:aBoolean named:testName
+    ^ self assert:aBoolean not
+!
+
+assertTrue:aBoolean 
+    ^ self assert:aBoolean
+!
+
+assertTrue:aBoolean named:testName
+    ^ self assert:aBoolean
+!
+
 deny: aBoolean
     "fail, if the argument is not false"
 
@@ -194,6 +210,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.10 2001-01-16 14:45:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.11 2001-08-23 20:57:05 cg Exp $'
 ! !
 TestCase initialize!