--- a/ExampleSetTest.st	Thu Dec 07 08:49:10 2000 +0100
+++ b/ExampleSetTest.st	Thu Dec 07 08:49:35 2000 +0100
@@ -7,6 +7,13 @@
 	category:'SUnit-Tests'
 !
 
+!ExampleSetTest class methodsFor:'documentation'!
+
+description
+    ^ 'An example test
+Tests some operations on Sets.'
+! !
+
 !ExampleSetTest methodsFor:'Running'!
 
 setUp

--- a/SUnitTest.st	Thu Dec 07 08:49:10 2000 +0100
+++ b/SUnitTest.st	Thu Dec 07 08:49:35 2000 +0100
@@ -7,6 +7,13 @@
 	category:'SUnit-Tests'
 !
 
+!SUnitTest class methodsFor:'documentation'!
+
+description
+    ^ 'Tests SUnit itself
+Two tests should fail.'
+! !
+
 !SUnitTest methodsFor:'Accessing'!
 
 hasRun