Mercurial Mercurial > hg > stx-goodies-regression / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RegressionTests__CompilerTest.st
changeset 87 93fcd29f4c9a
parent 86 bd4a8dc29225
child 88 a7e8b6312d2b 
--- a/RegressionTests__CompilerTest.st	Sat Oct 07 17:50:09 2000 +0200
+++ b/RegressionTests__CompilerTest.st	Sat Oct 07 18:52:06 2000 +0200
@@ -121,205 +121,6 @@
     value := something
 ! !
 
-!CompilerTest methodsFor:'test - inlined'!
-
-test_even:arg
-    ^ arg even
-
-    "
-     self new test_even:nil               
-     self new test_even:123
-     self new test_even:122
-     self new test_even:(100 factorial)
-    "
-!
-
-test_isInteger:arg
-    ^ arg isInteger
-
-    "
-     self new test_isInteger:nil               
-     self new test_isInteger:123
-     self new test_isInteger:(100 factorial)
-    "
-!
-
-test_isNotInteger:arg
-    ^ arg isInteger not
-
-    "
-     self new test_isNotInteger:nil               
-     self new test_isNotInteger:123
-     self new test_isNotInteger:(100 factorial)
-    "
-!
-
-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
-
-    "
-     self new test_min1:nil _:nil              
-     self new test_min1:1 _:nil              
-     self new test_min1:nil _:1              
-     self new test_min1:1 _:2              
-     self new test_min1:2 _:1              
-
-     self new test_min1:1.0 _:nil              
-     self new test_min1:nil _:1.0              
-     self new test_min1:1.0 _:2.0              
-     self new test_min1:2.0 _:1.0              
-
-     self new test_min1:1.0 _:2              
-     self new test_min1:2.0 _:1              
-     self new test_min1:1 _:2.0              
-     self new test_min1:2 _:1.0              
-    "
-!
-
-test_min2:arg
-    ^ 1 min:arg
-
-    "
-     self new test_min2:nil              
-     self new test_min2:0       
-     self new test_min2:1       
-     self new test_min2:2       
-
-     self new test_min2:0.0         
-     self new test_min2:1.0         
-     self new test_min2:2.0         
-    "
-!
-
-test_min3:arg
-    |var|
-
-    var := Array new:10.
-    ^ 1 min:arg
-
-    "
-     self new test_min3:nil              
-     self new test_min3:0       
-     self new test_min3:1       
-     self new test_min3:2       
-
-     self new test_min3:0.0         
-     self new test_min3:1.0         
-     self new test_min3:2.0         
-    "
-!
-
-test_min4:arg
-    |var|
-
-    var := Array new:10.
-    ^ arg min:1
-
-    "
-     self new test_min4:nil              
-     self new test_min4:0       
-     self new test_min4:1       
-     self new test_min4:2       
-
-     self new test_min4:0.0         
-     self new test_min4:1.0         
-     self new test_min4:2.0         
-    "
-!
-
-test_odd:arg
-    ^ arg odd
-
-    "
-     self new test_odd:nil               
-     self new test_odd:123   
-     self new test_odd:122     
-     self new test_odd:(100 factorial)  
-    "
-!
-
-test_size
-    ^ value size
-
-    "
-     (self new value:(Array new:2)) test_size
-     (self new value:(OrderedCollection new:2)) test_size
-    "
-! !
-
 !CompilerTest methodsFor:'tests - booleans'!
 
 testAnd:arg1 _:arg2
@@ -733,6 +534,320 @@
     "
 ! !
 
+!CompilerTest methodsFor:'tests - constants'!
+
+test_int1024
+    ^ 1024
+
+    "
+     self test_int1024
+    "
+
+!
+
+test_int1048576
+    ^ 1048576
+!
+
+test_int128
+    ^ 128
+
+    "
+     self test_int128
+    "
+!
+
+test_int131072
+    ^ 131072
+!
+
+test_int16384
+    ^ 16384
+
+    "
+     self test_int16384
+    "
+
+!
+
+test_int2048
+    ^ 2048
+
+    "
+     self test_int2048
+    "
+
+!
+
+test_int2097152
+    ^ 2097152
+!
+
+test_int256
+    ^ 256
+
+    "
+     self test_int256
+    "
+
+!
+
+test_int262144
+    ^ 262144
+!
+
+test_int32768
+    ^ 32768
+
+    "
+     self test_int32768
+    "
+
+!
+
+test_int4096
+    ^ 4096
+
+    "
+     self test_int4096
+    "
+
+!
+
+test_int512
+    ^ 512
+
+    "
+     self test_int512
+    "
+
+!
+
+test_int524288
+    ^ 524288
+!
+
+test_int65536
+    ^ 65536
+
+    "
+     self test_int65536
+    "
+
+!
+
+test_int8192
+    ^ 8192
+
+    "
+     self test_int8192
+    "
+
+!
+
+test_intM128
+    ^ -128
+! !
+
+!CompilerTest methodsFor:'tests - inlined'!
+
+test_even:arg
+    ^ arg even
+
+    "
+     self new test_even:nil               
+     self new test_even:123
+     self new test_even:122
+     self new test_even:(100 factorial)
+    "
+!
+
+test_isInteger:arg
+    ^ arg isInteger
+
+    "
+     self new test_isInteger:nil               
+     self new test_isInteger:123
+     self new test_isInteger:(100 factorial)
+    "
+!
+
+test_isNotInteger:arg
+    ^ arg isInteger not
+
+    "
+     self new test_isNotInteger:nil               
+     self new test_isNotInteger:123
+     self new test_isNotInteger:(100 factorial)
+    "
+!
+
+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
+
+    "
+     self new test_min1:nil _:nil              
+     self new test_min1:1 _:nil              
+     self new test_min1:nil _:1              
+     self new test_min1:1 _:2              
+     self new test_min1:2 _:1              
+
+     self new test_min1:1.0 _:nil              
+     self new test_min1:nil _:1.0              
+     self new test_min1:1.0 _:2.0              
+     self new test_min1:2.0 _:1.0              
+
+     self new test_min1:1.0 _:2              
+     self new test_min1:2.0 _:1              
+     self new test_min1:1 _:2.0              
+     self new test_min1:2 _:1.0              
+    "
+!
+
+test_min2:arg
+    ^ 1 min:arg
+
+    "
+     self new test_min2:nil              
+     self new test_min2:0       
+     self new test_min2:1       
+     self new test_min2:2       
+
+     self new test_min2:0.0         
+     self new test_min2:1.0         
+     self new test_min2:2.0         
+    "
+!
+
+test_min3:arg
+    |var|
+
+    var := Array new:10.
+    ^ 1 min:arg
+
+    "
+     self new test_min3:nil              
+     self new test_min3:0       
+     self new test_min3:1       
+     self new test_min3:2       
+
+     self new test_min3:0.0         
+     self new test_min3:1.0         
+     self new test_min3:2.0         
+    "
+!
+
+test_min4:arg
+    |var|
+
+    var := Array new:10.
+    ^ arg min:1
+
+    "
+     self new test_min4:nil              
+     self new test_min4:0       
+     self new test_min4:1       
+     self new test_min4:2       
+
+     self new test_min4:0.0         
+     self new test_min4:1.0         
+     self new test_min4:2.0         
+    "
+!
+
+test_odd:arg
+    ^ arg odd
+
+    "
+     self new test_odd:nil               
+     self new test_odd:123   
+     self new test_odd:122     
+     self new test_odd:(100 factorial)  
+    "
+!
+
+test_size
+    ^ value size
+
+    "
+     (self new value:(Array new:2)) test_size
+     (self new value:(OrderedCollection new:2)) test_size
+    "
+! !
+
 !CompilerTest methodsFor:'tests - sends'!
 
 m1
hg/stx-goodies-regression