RegressionTests__IntegerTest.st
changeset 1323 a15b1d326f23
parent 1322 6925e7f2eaf3
child 1365 c3b631cb0688
--- a/RegressionTests__IntegerTest.st	Sat Feb 27 01:08:44 2016 +0100
+++ b/RegressionTests__IntegerTest.st	Sat Feb 27 22:28:27 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -2221,11 +2223,14 @@
     self assert:( 16rFFFFFFFF7FFF signExtendedShortValue ) = 16r7FFF.   
 
     self assert:( 16rFFFFFFFF signExtendedLongValue ) = -1.   
-    self assert:( 16r7FFFFFFF signExtendedLongValue ) = 16r7FFFFFFF.   
+    self assert:( 16r7FFFFFFF signExtendedLongValue ) = 2147483647.   
+    self assert:( 16r80000000 signExtendedLongValue ) = -2147483648.   
     self assert:( 16rFFFFFFFFFFFF signExtendedLongValue ) = -1.   
-    self assert:( 16rFFFF7FFFFFFF signExtendedLongValue ) = 16r7FFFFFFF.   
+    self assert:( 16rFFFF7FFFFFFF signExtendedLongValue ) = 2147483647.   
+    self assert:( 16rFFFF80000000 signExtendedLongValue ) = -2147483648.   
     self assert:( 16rFFFFFFFFFFFFFFFF signExtendedLongValue ) = -1.   
-    self assert:( 16rFFFFFFFF7FFFFFFF signExtendedLongValue ) = 16r7FFFFFFF.   
+    self assert:( 16rFFFFFFFF7FFFFFFF signExtendedLongValue ) = 2147483647.   
+    self assert:( 16rFFFFFFFF80000000 signExtendedLongValue ) = -2147483648.   
 
     self assert:( 16rFFFFFFFFFFFFFFFF signExtendedLongLongValue ) = -1.   
     self assert:( 16r7FFFFFFFFFFFFFFF signExtendedLongLongValue ) = 16r7FFFFFFFFFFFFFFF.