--- a/RegressionTests__DebuggerTest.st	Tue Nov 11 19:46:37 2003 +0100
+++ b/RegressionTests__DebuggerTest.st	Tue Nov 11 19:46:50 2003 +0100
@@ -33,59 +33,6 @@
 
 !DebuggerTest methodsFor:'tests'!
 
-test1
-    "This is a demonstration testCase - it is meant to be removed eventually.
-     This testCase will PASS.
-     Double click on the TestCase class or open a TestRunner to see me checking...
-     - please add more methods like this..."
-
-    |o|
-
-    o := Array new:2.
-    self assert: ( o size == 2 ).
-    self should: [ o at:0 ] raise:Error.
-    self shouldnt: [ o at:1 ] raise:Error.
-
-    "
-     self run:#test1
-     self new test1
-    "
-!
-
-test2
-    "This is a demonstration testCase - it is meant to be removed eventually..
-     This testCase WILL FAIL.
-     Double click on the TestCase class or open a TestRunner to see me checking...
-     - please add more methods like this..."
-
-    |o|
-
-    o := Array new:2.
-    self assert: ( o size == 3 ).
-
-    "
-     self run:#test2
-     self new test2
-    "
-!
-
-test3
-    "This is a demonstration testCase - it is meant to be removed eventually..
-     This testCase WILL generate an ERROR.
-     Double click on the TestCase class or open a TestRunner to see me checking...
-     - please add more methods like this..."
-
-    |o|
-
-    o := Array new:2.
-    self assert: ( o foo ).
-
-    "
-     self run:#test3
-     self new test3
-    "
-!
-
 testBlockVars_01
     |a b|