RegressionTests__IntegerTest.st
changeset 1024 17f4613fc1d4
parent 941 0192003475ec
child 1025 1d694c9fd79d
--- a/RegressionTests__IntegerTest.st	Mon Nov 25 11:45:52 2013 +0100
+++ b/RegressionTests__IntegerTest.st	Mon Dec 02 15:05:29 2013 +0100
@@ -2379,6 +2379,11 @@
     self assert:((16rFFFFFFFFFF * 16rFFFFFFFFFF) hexPrintString = 'FFFFFFFFFE0000000001').
     self assert:((20 factorial * 20 factorial) printString = '5919012181389927685417441689600000000').
 
+    t1 := 699697179634740272935560322271216335182775596927422865716399200802062765682314102885264570100200211251370690926108604161579425545019863369232209949922751354278329212124724267803033599595114924195721823679025053720850308776953208134469115885358619139670731195605237506312288263327925364912720266772715929600.
+    self assert:(t1 printString = '699697179634740272935560322271216335182775596927422865716399200802062765682314102885264570100200211251370690926108604161579425545019863369232209949922751354278329212124724267803033599595114924195721823679025053720850308776953208134469115885358619139670731195605237506312288263327925364912720266772715929600').
+    self assert:((t1 * t1) = 489576143188809998144298426641311496989165214458056165805143410866108690058261346129614030084813851082564698610174813898740525406243367146120734370570458429364167811695064904353093506532695086211301649001517008746471464304183710723162864634442619484210170532881759249266026059786349673031239277666195699357198366128286910123306594912484590029738722281929300359929462301099981920256369394887701755497894820998573896950238852994224811101315810851671448056042419257789317787959570728520197146733902575090480065597582292177085754523686580725860228636039424698638422538988050350726807943014483010988455057592156160000).
+    self assert:((t1 * t1) printString = '489576143188809998144298426641311496989165214458056165805143410866108690058261346129614030084813851082564698610174813898740525406243367146120734370570458429364167811695064904353093506532695086211301649001517008746471464304183710723162864634442619484210170532881759249266026059786349673031239277666195699357198366128286910123306594912484590029738722281929300359929462301099981920256369394887701755497894820998573896950238852994224811101315810851671448056042419257789317787959570728520197146733902575090480065597582292177085754523686580725860228636039424698638422538988050350726807943014483010988455057592156160000').
+
     #( 
         16rFF
         16rFFFF
@@ -2429,7 +2434,7 @@
      self basicNew testLargeMultiplication
     "
 
-    "Modified: / 20.5.1999 / 09:41:19 / cg"
+    "Modified: / 02-12-2013 / 15:05:14 / cg"
 !
 
 testLargeSubtraction1