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