Mercurial Mercurial > hg > stx-goodies-regression / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RegressionTests__IntegerTest.st
changeset 42 b7e57becd932
parent 41 7b7d7890a939
child 43 39107e74027a 
--- a/RegressionTests__IntegerTest.st	Tue Oct 26 22:34:42 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Tue Oct 26 22:57:36 1999 +0200
@@ -524,6 +524,8 @@
     self testLargeAddition.
     self testLargeMultiplication.
     self testLargeDivision.
+    self testIntegerShifts.
+    self testEncodeDecode.
 
     "
      self test1
@@ -532,6 +534,67 @@
     "Modified: / 6.6.1999 / 14:46:11 / cg"
 !
 
+testEncodeDecode
+    self test:[1 encodeAsBCD hexPrintString = '1'].
+    self test:[12 encodeAsBCD hexPrintString = '12'].
+    self test:[123 encodeAsBCD hexPrintString = '123'].
+    self test:[1234 encodeAsBCD hexPrintString = '1234'].
+    self test:[12345 encodeAsBCD hexPrintString = '12345'].
+    self test:[123456 encodeAsBCD hexPrintString = '123456'].
+    self test:[1234567 encodeAsBCD hexPrintString = '1234567'].
+    self test:[12345678 encodeAsBCD hexPrintString = '12345678'].
+    self test:[123456789 encodeAsBCD hexPrintString = '123456789'].
+    self test:[1234567890 encodeAsBCD hexPrintString = '1234567890'].
+    self test:[12345678901 encodeAsBCD hexPrintString = '12345678901'].
+    self test:[123456789012 encodeAsBCD hexPrintString = '123456789012'].
+    self test:[1234567890123 encodeAsBCD hexPrintString = '1234567890123'].
+    self test:[12345678901234 encodeAsBCD hexPrintString = '12345678901234'].
+    self test:[123456789012345 encodeAsBCD hexPrintString = '123456789012345'].
+    self test:[1234567890123456 encodeAsBCD hexPrintString = '1234567890123456'].
+    self test:[12345678901234567 encodeAsBCD hexPrintString = '12345678901234567'].
+    self test:[123456789012345678 encodeAsBCD hexPrintString = '123456789012345678'].
+    self test:[1234567890123456789 encodeAsBCD hexPrintString = '1234567890123456789'].
+    self test:[12345678901234567890 encodeAsBCD hexPrintString = '12345678901234567890'].
+    self test:[4611686018427387902 encodeAsBCD hexPrintString = '4611686018427387902'].
+    self test:[4611686018427387903 encodeAsBCD hexPrintString = '4611686018427387903'].
+    self test:[4611686018427387904 encodeAsBCD hexPrintString = '4611686018427387904'].
+
+    self test:[16r1 decodeFromBCD = 1].
+    self test:[16r12 decodeFromBCD = 12].
+    self test:[16r123 decodeFromBCD = 123].
+    self test:[16r1234 decodeFromBCD = 1234].
+    self test:[16r12345 decodeFromBCD = 12345].
+    self test:[16r123456 decodeFromBCD = 123456].
+    self test:[16r1234567 decodeFromBCD = 1234567].
+    self test:[16r12345678 decodeFromBCD = 12345678].
+    self test:[16r123456789 decodeFromBCD = 123456789].
+    self test:[16r1234567890 decodeFromBCD = 1234567890].
+    self test:[16r12345678901 decodeFromBCD = 12345678901].
+    self test:[16r123456789012 decodeFromBCD = 123456789012].
+    self test:[16r1000000000000 decodeFromBCD = 1000000000000].
+    self test:[16r0000500000000 decodeFromBCD = 500000000].
+    self test:[16r1234500000000 decodeFromBCD = 1234500000000].
+    self test:[16r1234567890000 decodeFromBCD = 1234567890000].
+
+    self test:[16r1234567890123 decodeFromBCD = 1234567890123].
+    self test:[16r12345678901234 decodeFromBCD = 12345678901234].
+    self test:[16r123456789012345 decodeFromBCD = 123456789012345].
+    self test:[16r1234567890123456 decodeFromBCD = 1234567890123456].
+    self test:[16r12345678901234567 decodeFromBCD = 12345678901234567].
+    self test:[16r123456789012345678 decodeFromBCD = 123456789012345678].
+    self test:[16r1234567890123456789 decodeFromBCD = 1234567890123456789].
+    self test:[16r12345678901234567890 decodeFromBCD = 12345678901234567890].
+    self test:[16r4611686018427387902 decodeFromBCD = 4611686018427387902].
+    self test:[16r4611686018427387903 decodeFromBCD = 4611686018427387903].
+    self test:[16r4611686018427387904 decodeFromBCD = 4611686018427387904].
+
+    "
+     self testEncodeDecode
+    "
+
+    "Modified: / 26.10.1999 / 22:01:35 / stefan"
+!
+
 testIntegerShifts
     "arithmetic tests.
      Notice, the arithmetic tests are both performed via regular sends
@@ -1138,54 +1201,6 @@
     self test:[16r10000000000000000 hexPrintString = '10000000000000000'].
     self test:[16r100000000000000000 hexPrintString = '100000000000000000'].
 
-    self test:[1 encodeAsBCD hexPrintString = '1'].
-    self test:[12 encodeAsBCD hexPrintString = '12'].
-    self test:[123 encodeAsBCD hexPrintString = '123'].
-    self test:[1234 encodeAsBCD hexPrintString = '1234'].
-    self test:[12345 encodeAsBCD hexPrintString = '12345'].
-    self test:[123456 encodeAsBCD hexPrintString = '123456'].
-    self test:[1234567 encodeAsBCD hexPrintString = '1234567'].
-    self test:[12345678 encodeAsBCD hexPrintString = '12345678'].
-    self test:[123456789 encodeAsBCD hexPrintString = '123456789'].
-    self test:[1234567890 encodeAsBCD hexPrintString = '1234567890'].
-    self test:[12345678901 encodeAsBCD hexPrintString = '12345678901'].
-    self test:[123456789012 encodeAsBCD hexPrintString = '123456789012'].
-    self test:[1234567890123 encodeAsBCD hexPrintString = '1234567890123'].
-    self test:[12345678901234 encodeAsBCD hexPrintString = '12345678901234'].
-    self test:[123456789012345 encodeAsBCD hexPrintString = '123456789012345'].
-    self test:[1234567890123456 encodeAsBCD hexPrintString = '1234567890123456'].
-    self test:[12345678901234567 encodeAsBCD hexPrintString = '12345678901234567'].
-    self test:[123456789012345678 encodeAsBCD hexPrintString = '123456789012345678'].
-    self test:[1234567890123456789 encodeAsBCD hexPrintString = '1234567890123456789'].
-    self test:[12345678901234567890 encodeAsBCD hexPrintString = '12345678901234567890'].
-    self test:[4611686018427387902 encodeAsBCD hexPrintString = '4611686018427387902'].
-    self test:[4611686018427387903 encodeAsBCD hexPrintString = '4611686018427387903'].
-    self test:[4611686018427387904 encodeAsBCD hexPrintString = '4611686018427387904'].
-
-    self test:[16r1 decodeFromBCD = 1].
-    self test:[16r12 decodeFromBCD = 12].
-    self test:[16r123 decodeFromBCD = 123].
-    self test:[16r1234 decodeFromBCD = 1234].
-    self test:[16r12345 decodeFromBCD = 12345].
-    self test:[16r123456 decodeFromBCD = 123456].
-    self test:[16r1234567 decodeFromBCD = 1234567].
-    self test:[16r12345678 decodeFromBCD = 12345678].
-    self test:[16r123456789 decodeFromBCD = 123456789].
-    self test:[16r1234567890 decodeFromBCD = 1234567890].
-    self test:[16r12345678901 decodeFromBCD = 12345678901].
-    self test:[16r123456789012 decodeFromBCD = 123456789012].
-    self test:[16r1234567890123 decodeFromBCD = 1234567890123].
-    self test:[16r12345678901234 decodeFromBCD = 12345678901234].
-    self test:[16r123456789012345 decodeFromBCD = 123456789012345].
-    self test:[16r1234567890123456 decodeFromBCD = 1234567890123456].
-    self test:[16r12345678901234567 decodeFromBCD = 12345678901234567].
-    self test:[16r123456789012345678 decodeFromBCD = 123456789012345678].
-    self test:[16r1234567890123456789 decodeFromBCD = 1234567890123456789].
-    self test:[16r12345678901234567890 decodeFromBCD = 12345678901234567890].
-    self test:[16r4611686018427387902 decodeFromBCD = 4611686018427387902].
-    self test:[16r4611686018427387903 decodeFromBCD = 4611686018427387903].
-    self test:[16r4611686018427387904 decodeFromBCD = 4611686018427387904].
-
     "
      self testPrinting1
     "
hg/stx-goodies-regression