--- a/ExampleSetTest.st Wed Jun 29 20:38:32 2011 +0200
+++ b/ExampleSetTest.st Wed Jun 29 21:15:49 2011 +0200
@@ -7,13 +7,6 @@
category:'SUnit-Tests'
!
-!ExampleSetTest class methodsFor:'documentation'!
-
-description
- ^ 'An example test
-Tests some operations on Sets.
-None should fail.'
-! !
!ExampleSetTest methodsFor:'running'!
@@ -35,11 +28,11 @@
!
testIllegal
- self
- should: [empty at: 5]
+ self
+ should: [empty at: 5]
raise: TestResult error.
- self
- should: [empty at: 5 put: #abc]
+ self
+ should: [empty at: 5 put: #abc]
raise: TestResult error
!
@@ -63,6 +56,6 @@
!ExampleSetTest class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/ExampleSetTest.st,v 1.6 2002-02-26 10:30:22 cg Exp $'
+version_SVN
+ ^ '§Id: ExampleSetTest.st 214 2011-03-14 12:22:21Z vranyj1 §'
! !