--- 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