class: RegressionTests::IntegerTest
authorClaus Gittinger <cg@exept.de>
Mon, 13 May 2013 16:49:36 +0200
changeset 935 9fb8ac67472d
parent 934 bf29a53f0eba
child 936 3a26cdbcbaf2
class: RegressionTests::IntegerTest
RegressionTests__IntegerTest.st
--- a/RegressionTests__IntegerTest.st	Mon May 13 16:43:21 2013 +0200
+++ b/RegressionTests__IntegerTest.st	Mon May 13 16:49:36 2013 +0200
@@ -1152,9 +1152,9 @@
     "general conversion & arithmetic 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."
-
-    |minVal maxVal maxValPlus1 minValMinus1 halfMin halfMax t t1 t2|
+     JIT-compiler code AND the regular method's code."
+
+    |minVal maxVal maxValPlus1 minValMinus1 halfMin halfMax t|
 
     minVal := SmallInteger perform:('minVal' asSymbol).
     maxVal := SmallInteger perform:('maxVal' asSymbol).
@@ -1172,6 +1172,11 @@
 
     self testPrinting1.
 
+    self assert:(SmallInteger maxBytes == ExternalAddress pointerSize).
+    "/ again, preventing inlining by compiler
+    self assert:(SmallInteger perform:#maxBytes) == (ExternalAddress perform:#pointerSize).
+    self assert:(SmallInteger perform:'maxBytes' asSymbol) == (ExternalAddress perform:'pointerSize' asSymbol).
+
     SmallInteger maxBytes == 4 ifTrue:[
         self assert:(minVal hexPrintString = '-40000000').
         self assert:(maxVal hexPrintString = '3FFFFFFF').