checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 31 Oct 2000 20:53:26 +0100
changeset 91 a781d70791b7
parent 90 906aa2e912cc
child 92 54539aa534d2
checkin from browser
RegressionTests__IntegerTest.st
--- a/RegressionTests__IntegerTest.st	Tue Oct 31 19:34:35 2000 +0100
+++ b/RegressionTests__IntegerTest.st	Tue Oct 31 20:53:26 2000 +0100
@@ -129,6 +129,21 @@
 
 !IntegerTest class methodsFor:'private'!
 
+absPlusOneOf:arg
+                        |local1|
+
+                        local1 := arg.
+                        ^ local1 abs + 1
+
+
+"
+ self absPlusOneOf:-1      
+ self absPlusOneOf:-1.0      
+"
+
+    "Created: / 31.10.2000 / 20:21:52 / cg"
+!
+
 alwaysTrue
     ^ true.!
 
@@ -504,12 +519,13 @@
     self testIntegerShifts.
     self testEncodeDecode.
     self testIntegerMisc.
+    self testInline1.
 
     "
      self testAll
     "
 
-    "Modified: / 6.6.1999 / 14:46:11 / cg"
+    "Modified: / 31.10.2000 / 20:23:20 / cg"
 !
 
 testEncodeDecode
@@ -594,6 +610,25 @@
     "Modified: / 9.6.1999 / 17:49:57 / cg"
 !
 
+testInline1
+    "inlined tests.
+     Notice, the arithmetic tests are both performed via regular sends
+     and via constructed performs. The reason is to test both inlined
+     JIT-compiler code AND the regular methods code."
+
+    self test: [ (self absPlusOneOf:1) = 2 ].
+    self test: [ (self absPlusOneOf:-1) = 2 ].
+    self test: [ (self absPlusOneOf:1.0) = 2 ].
+    self test: [ (self absPlusOneOf:-1.0) = 2 ].
+
+    "
+     self testInline1
+    "
+
+    "Created: / 31.10.2000 / 20:22:48 / cg"
+    "Modified: / 31.10.2000 / 20:23:06 / cg"
+!
+
 testInteger1
     "general conversion & arithmetic tests.
      Notice, the arithmetic tests are both performed via regular sends