# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 926493831 -7200
# Node ID f100f290c76978e00821a971a70246045e3bb623
# Parent  28e927bbc4e67065ee6ad896d3806932631d1d41
checkin from browser

diff -r 28e927bbc4e6 -r f100f290c769 RegressionTests__IntegerTest.st
--- a/RegressionTests__IntegerTest.st	Tue May 11 17:34:33 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Wed May 12 09:23:51 1999 +0200
@@ -169,6 +169,37 @@
     self test:[(20 factorial / 19 factorial) == 20].
 
     "Large + Large addition"
+    self test:[(Integer readFrom:'4865804016353280000') printString = '4865804016353280000'].
+    self test:[(Integer readFrom:'FFFFFFFF' radix:16) hexPrintString = 'FFFFFFFF'].
+    self test:[(Integer readFrom:'FFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFF'].
+    self test:[(Integer readFrom:'FFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFF'].
+    self test:[(Integer readFrom:'FFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFF'].
+    self test:[(Integer readFrom:'FFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFF'].
+
+    self test:[(Integer readFrom:'10000000' radix:16) hexPrintString = '10000000'].
+    self test:[(Integer readFrom:'100000000' radix:16) hexPrintString = '100000000'].
+    self test:[(Integer readFrom:'1000000000' radix:16) hexPrintString = '1000000000'].
+    self test:[(Integer readFrom:'10000000000' radix:16) hexPrintString = '10000000000'].
+    self test:[(Integer readFrom:'100000000000' radix:16) hexPrintString = '100000000000'].
+
+    t := Integer readFrom:'FFFFFFFF' radix:16.
+    self test:[(t + 1) hexPrintString = '100000000'].
+    t := Integer readFrom:'FFFFFFFFF' radix:16.
+    self test:[(t + 1) hexPrintString = '1000000000'].
+    t := Integer readFrom:'FFFFFFFFFF' radix:16.
+    self test:[(t + 1) hexPrintString = '10000000000'].
+    t := Integer readFrom:'FFFFFFFFFFF' radix:16.
+    self test:[(t + 1) hexPrintString = '100000000000'].
+
+    t := Integer readFrom:'10000000' radix:16.
+    self test:[(t + 1) hexPrintString = '10000001'].
+    t := Integer readFrom:'100000000' radix:16.
+    self test:[(t + 1) hexPrintString = '100000001'].
+    t := Integer readFrom:'1000000000' radix:16.
+    self test:[(t + 1) hexPrintString = '1000000001'].
+    t := Integer readFrom:'10000000000' radix:16.
+    self test:[(t + 1) hexPrintString = '10000000001'].
+
     self test:[(20 factorial + 20 factorial) printString = '4865804016353280000'].
     self test:[(20 factorial + 1) printString = '2432902008176640001'].
     self test:[(20 factorial + 1000) printString = '2432902008176641000'].