--- a/TestCase.st	Tue Sep 04 15:00:59 2001 +0200
+++ b/TestCase.st	Tue Sep 04 15:07:08 2001 +0200
@@ -41,7 +41,7 @@
 
 suite
         | testSelectors result |
-        testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each].
+        testSelectors := self sunitSelectors select: [:each | 'test*' match: each].
         testSelectors sort.
         result := TestSuite new.
         testSelectors do: [:each | result addTest: (self selector: each)].
@@ -171,7 +171,7 @@
         to see the failure from the beginning"
 
         "/ self halt.
-        self perform: testSelector sunitAsSymbol
+        self perform: testSelector asSymbol
 
     "Modified: / 21.6.2000 / 10:03:37 / Sames"
 !
@@ -188,15 +188,15 @@
 !
 
 runCase
-	self setUp.
-	[self perform: testSelector sunitAsSymbol] sunitEnsure: [self tearDown]
+        self setUp.
+        [self perform: testSelector asSymbol] valueNowOrOnUnwindDo: [self tearDown]
 
     "Modified: / 21.6.2000 / 10:04:18 / Sames"
 !
 
 runCaseAsFailure
-	self setUp.
-	[[self openDebuggerOnFailingTestMethod] sunitEnsure: [self tearDown]] fork
+        self setUp.
+        [[self openDebuggerOnFailingTestMethod] valueNowOrOnUnwindDo: [self tearDown]] fork
 
     "Modified: / 21.6.2000 / 10:04:33 / Sames"
 !
@@ -210,6 +210,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.11 2001-08-23 20:57:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.12 2001-09-04 13:07:08 cg Exp $'
 ! !
 TestCase initialize!