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__JITTest.st
changeset 109 c4ac78b684fc
parent 108 1fee642ec136
child 110 d9d3ea81bfc3 
--- a/RegressionTests__JITTest.st	Wed Jun 20 17:43:20 2001 +0200
+++ b/RegressionTests__JITTest.st	Thu Jun 21 09:29:31 2001 +0200
@@ -241,6 +241,90 @@
     "Created: 16.8.1996 / 17:39:44 / cg"
 ! !
 
+!JITTest methodsFor:'public - test - arithmetic'!
+
+testAdd1
+    self assert:( (JITTest new add1:-1000) == -999 ).
+    self assert:( (JITTest new add1:-1) == 0 ).
+    self assert:( (JITTest new add1:0) == 1 ).
+    self assert:( (JITTest new add1:1) == 2 ).
+    self assert:( (JITTest new add1:1000) == 1001 ).
+
+    self assert:( (JITTest new add1:SmallInteger maxVal) class == LargeInteger ).
+    self assert:( ((JITTest new add1:SmallInteger maxVal) - 1) class == SmallInteger ).
+
+    self assert:( (JITTest new add1:-1000.0) = -999.0 ).
+    self assert:( (JITTest new add1:-1.0) = 0.0 ).
+    self assert:( (JITTest new add1:0.0) = 1.0 ).
+    self assert:( (JITTest new add1:1.0) = 2.0 ).
+    self assert:( (JITTest new add1:1000.0) = 1001.0 ).
+
+
+    self assert:( (JITTest new add2:-1000) = -999 ).
+    self assert:( (JITTest new add2:-1) = 0 ).
+    self assert:( (JITTest new add2:0) = 1 ).
+    self assert:( (JITTest new add2:1) = 2 ).
+    self assert:( (JITTest new add2:1000) = 1001 ).
+
+    self assert:( (JITTest new add2:-1000.0) = -999.0 ).
+    self assert:( (JITTest new add2:-1.0) = 0.0 ).
+    self assert:( (JITTest new add2:0.0) = 1.0 ).
+    self assert:( (JITTest new add2:1.0) = 2.0 ).
+    self assert:( (JITTest new add2:1000.0) = 1001.0 ).
+
+    "
+     self basicNew testAdd1
+    "
+! !
+
+!JITTest methodsFor:'public - test - blocks'!
+
+testFindFirst
+    self assert:(self tstFindFirst1:1) == 1.
+    self assert:(self tstFindFirst1:2) == 2.
+    self assert:(self tstFindFirst1:3) == 3.
+    self assert:(self tstFindFirst1:4) == 4.
+    self assert:(self tstFindFirst1:0) == 0.
+    self assert:(self tstFindFirst1:10) == 0.
+    self assert:(self tstFindFirst1:4.0) == 0.
+
+    self assert:(self tstFindFirst2:1) == 1.
+    self assert:(self tstFindFirst2:2) == 2.
+    self assert:(self tstFindFirst2:3) == 3.
+    self assert:(self tstFindFirst2:4) == 4.
+    self assert:(self tstFindFirst2:0) == 0.
+    self assert:(self tstFindFirst2:10) == 0.
+    self assert:(self tstFindFirst2:4.0) == 4.
+
+    "
+     self basicNew testFindFirst
+    "
+! !
+
+!JITTest methodsFor:'public - test - ifs'!
+
+testOr1
+    self assert:(self tstOr1:#Foo) == true.
+    self assert:(self tstOr1:#Bar) == true.
+    self assert:(self tstOr1:#Baz) == false.
+
+    self assert:(self tstOr1:#foo) == false.
+    self assert:(self tstOr1:#bar) == false.
+    self assert:(self tstOr1:#baz) == false.
+
+    self assert:(self tstOr2:#Foo) == true.
+    self assert:(self tstOr2:#Bar) == true.
+    self assert:(self tstOr2:#Baz) == true.
+
+    self assert:(self tstOr2:#foo) == false.
+    self assert:(self tstOr2:#bar) == false.
+    self assert:(self tstOr2:#baz) == false.
+
+    "
+     self basicNew testOr1
+    "
+! !
+
 !JITTest methodsFor:'test - arithmetic'!
 
 add1:arg
@@ -421,40 +505,6 @@
      JITTest new subtract2:0.0      
      JITTest new subtract2:1.0     
     "
-!
-
-testAdd1
-    self assert:( (JITTest new add1:-1000) == -999 ).
-    self assert:( (JITTest new add1:-1) == 0 ).
-    self assert:( (JITTest new add1:0) == 1 ).
-    self assert:( (JITTest new add1:1) == 2 ).
-    self assert:( (JITTest new add1:1000) == 1001 ).
-
-    self assert:( (JITTest new add1:SmallInteger maxVal) class == LargeInteger ).
-    self assert:( ((JITTest new add1:SmallInteger maxVal) - 1) class == SmallInteger ).
-
-    self assert:( (JITTest new add1:-1000.0) = -999.0 ).
-    self assert:( (JITTest new add1:-1.0) = 0.0 ).
-    self assert:( (JITTest new add1:0.0) = 1.0 ).
-    self assert:( (JITTest new add1:1.0) = 2.0 ).
-    self assert:( (JITTest new add1:1000.0) = 1001.0 ).
-
-
-    self assert:( (JITTest new add2:-1000) = -999 ).
-    self assert:( (JITTest new add2:-1) = 0 ).
-    self assert:( (JITTest new add2:0) = 1 ).
-    self assert:( (JITTest new add2:1) = 2 ).
-    self assert:( (JITTest new add2:1000) = 1001 ).
-
-    self assert:( (JITTest new add2:-1000.0) = -999.0 ).
-    self assert:( (JITTest new add2:-1.0) = 0.0 ).
-    self assert:( (JITTest new add2:0.0) = 1.0 ).
-    self assert:( (JITTest new add2:1.0) = 2.0 ).
-    self assert:( (JITTest new add2:1000.0) = 1001.0 ).
-
-    "
-     self basicNew testAdd1
-    "
 ! !
 
 !JITTest methodsFor:'test - bits'!
@@ -719,6 +769,40 @@
     "
 !
 
+tstFindFirst1:arg 
+    |idx|
+
+    i1 := #(1 2 3 4) asOrderedCollection.
+    ^ i1 findFirst:[:el | el == arg]
+
+    "
+     self new tstFindFirst1:1      
+     self new tstFindFirst1:2      
+     self new tstFindFirst1:3       
+     self new tstFindFirst1:4       
+     self new tstFindFirst1:0       
+     self new tstFindFirst1:10       
+     self new tstFindFirst1:4.0       
+    "
+!
+
+tstFindFirst2:arg 
+    |idx|
+
+    i1 := #(1 2 3 4) asOrderedCollection.
+    ^ i1 findFirst:[:el | el = arg]
+
+    "
+     self new tstFindFirst2:1      
+     self new tstFindFirst2:2      
+     self new tstFindFirst2:3       
+     self new tstFindFirst2:4       
+     self new tstFindFirst2:0       
+     self new tstFindFirst2:10       
+     self new tstFindFirst2:4.0       
+    "
+!
+
 zeroBlock1
     ^ [0]
 
@@ -1058,50 +1142,6 @@
     "
 !
 
-testFindFirst
-    self assert:(self tstFindFirst1:1) == 1.
-    self assert:(self tstFindFirst1:2) == 2.
-    self assert:(self tstFindFirst1:3) == 3.
-    self assert:(self tstFindFirst1:4) == 4.
-    self assert:(self tstFindFirst1:0) == 0.
-    self assert:(self tstFindFirst1:10) == 0.
-    self assert:(self tstFindFirst1:4.0) == 0.
-
-    self assert:(self tstFindFirst2:1) == 1.
-    self assert:(self tstFindFirst2:2) == 2.
-    self assert:(self tstFindFirst2:3) == 3.
-    self assert:(self tstFindFirst2:4) == 4.
-    self assert:(self tstFindFirst2:0) == 0.
-    self assert:(self tstFindFirst2:10) == 0.
-    self assert:(self tstFindFirst2:4.0) == 4.
-
-    "
-     self basicNew testFindFirst
-    "
-!
-
-testOr1
-    self assert:(self tstOr1:#Foo) == true.
-    self assert:(self tstOr1:#Bar) == true.
-    self assert:(self tstOr1:#Baz) == false.
-
-    self assert:(self tstOr1:#foo) == false.
-    self assert:(self tstOr1:#bar) == false.
-    self assert:(self tstOr1:#baz) == false.
-
-    self assert:(self tstOr2:#Foo) == true.
-    self assert:(self tstOr2:#Bar) == true.
-    self assert:(self tstOr2:#Baz) == true.
-
-    self assert:(self tstOr2:#foo) == false.
-    self assert:(self tstOr2:#bar) == false.
-    self assert:(self tstOr2:#baz) == false.
-
-    "
-     self basicNew testOr1
-    "
-!
-
 tstEQ1
     ^ i1 == 0
 
@@ -1585,40 +1625,6 @@
     "
 !
 
-tstFindFirst1:arg 
-    |idx|
-
-    i1 := #(1 2 3 4) asOrderedCollection.
-    ^ i1 findFirst:[:el | el == arg]
-
-    "
-     self new tstFindFirst1:1      
-     self new tstFindFirst1:2      
-     self new tstFindFirst1:3       
-     self new tstFindFirst1:4       
-     self new tstFindFirst1:0       
-     self new tstFindFirst1:10       
-     self new tstFindFirst1:4.0       
-    "
-!
-
-tstFindFirst2:arg 
-    |idx|
-
-    i1 := #(1 2 3 4) asOrderedCollection.
-    ^ i1 findFirst:[:el | el = arg]
-
-    "
-     self new tstFindFirst2:1      
-     self new tstFindFirst2:2      
-     self new tstFindFirst2:3       
-     self new tstFindFirst2:4       
-     self new tstFindFirst2:0       
-     self new tstFindFirst2:10       
-     self new tstFindFirst2:4.0       
-    "
-!
-
 tstIsInteger:arg 
     ^ arg isInteger
hg/stx-goodies-regression