--- a/RegressionTests__CompilerTest.st	Tue Sep 12 00:18:08 2000 +0200
+++ b/RegressionTests__CompilerTest.st	Tue Sep 12 22:55:18 2000 +0200
@@ -49,6 +49,79 @@
     "
 !
 
+test_max1:arg1 _:arg2
+    ^ arg1 max:arg2
+
+    "
+     self new test_max1:nil _:nil              
+     self new test_max1:1 _:nil              
+     self new test_max1:nil _:1              
+     self new test_max1:1 _:2              
+     self new test_max1:2 _:1              
+
+     self new test_max1:1.0 _:nil              
+     self new test_max1:nil _:1.0              
+     self new test_max1:1.0 _:2.0              
+     self new test_max1:2.0 _:1.0              
+
+     self new test_max1:1.0 _:2              
+     self new test_max1:2.0 _:1              
+     self new test_max1:1 _:2.0              
+     self new test_max1:2 _:1.0              
+    "
+!
+
+test_max2:arg
+    ^ 1 max:arg
+
+    "
+     self new test_max2:nil              
+     self new test_max2:0       
+     self new test_max2:1       
+     self new test_max2:2       
+
+     self new test_max2:0.0         
+     self new test_max2:1.0         
+     self new test_max2:2.0         
+    "
+!
+
+test_max3:arg
+    |var|
+
+    var := Array new:10.
+    ^ 1 max:arg
+
+    "
+     self new test_max3:nil              
+     self new test_max3:0       
+     self new test_max3:1       
+     self new test_max3:2       
+
+     self new test_max3:0.0         
+     self new test_max3:1.0         
+     self new test_max3:2.0         
+    "
+!
+
+test_max4:arg
+    |var|
+
+    var := Array new:10.
+    ^ arg max:1
+
+    "
+     self new test_max4:nil              
+     self new test_max4:0       
+     self new test_max4:1       
+     self new test_max4:2       
+
+     self new test_max4:0.0         
+     self new test_max4:1.0         
+     self new test_max4:2.0         
+    "
+!
+
 test_min1:arg1 _:arg2
     ^ arg1 min:arg2