RegressionTests__IntegerTest.st
changeset 1031 247174c321e3
parent 1030 2115331b1845
child 1032 ceff88dc3e56
--- a/RegressionTests__IntegerTest.st	Mon Dec 02 18:32:41 2013 +0100
+++ b/RegressionTests__IntegerTest.st	Mon Dec 02 18:33:52 2013 +0100
@@ -2236,7 +2236,7 @@
     self assert:((t1 * t1) printString = '10000').
     self assert:((t1 perform:'*' asSymbol with:t1) printString = '10000').
 
-    t1 := 1000.                                              
+    t1 := 1000.
     self assert:(t1 * t1 == 1000000).
     self assert:((t1 perform:'*' asSymbol with:t1) == 1000000).
     self assert:((t1 * t1) printString = '1000000').
@@ -2459,7 +2459,8 @@
     t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ].
     t2 := LargeInteger digitBytes:#[ 16r00 16r00 16r40 16rB2 16rBA 16rC9 16rE0 16r19 16r1E 16r02].
     r := t1 absMul:t2.
-    self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001').
+    self assert:(r printString = '1000000000000000000000000000000').
+    self assert:(r hexPrintString = 'C9F2C9CD04674EDEA40000000').
 
     t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF].
     t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0].
@@ -2488,7 +2489,7 @@
      self basicNew testLargeMultiplicationHelpers1
     "
 
-    "Modified: / 02-12-2013 / 17:37:09 / cg"
+    "Modified: / 02-12-2013 / 18:33:33 / cg"
 !
 
 testLargeMultiplicationHelpers2