--- a/RegressionTests__BinaryTreeTester.st	Fri Sep 10 13:15:04 2004 +0200
+++ b/RegressionTests__BinaryTreeTester.st	Fri Sep 10 13:17:01 2004 +0200
@@ -1,5 +1,7 @@
 "{ Package: 'exept:regression' }"
 
+"{ NameSpace: RegressionTests }"
+
 TestCase subclass:#BinaryTreeTester
 	instanceVariableNames:''
 	classVariableNames:''
@@ -104,6 +106,10 @@
     self assert: ( bt size == 10 ).
     self assert: ( bt asArray = #(1 2 3 4 5 6 7 8 9 10) ).
 
+    bt add:1.
+    self assert: ( bt size == 11 ).
+    self assert: ( bt asArray = #(1 1 2 3 4 5 6 7 8 9 10) ).
+
     "
      self run:#test02_adding
      self new test02_adding