Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 04 Jun 1999 13:45:55 +0200
changeset 18 3285f52927c2
parent 17 2573c1ad19a4
child 19 c21f3bbedd21
*** empty log message ***
RegressionTests__IntegerTest.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__IntegerTest.st	Fri Jun 04 13:40:10 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Fri Jun 04 13:45:55 1999 +0200
@@ -142,18 +142,30 @@
     self test:[(16r100000000 - n2 ) hexPrintString = '80000001'].
     self test:[(n1 - 16r7FFFFFFF ) hexPrintString = '80000001'].
     self test:[(16r100000000 - 16r7FFFFFFF ) hexPrintString = '80000001'].
+    self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '80000001'].
+    self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '80000001'].
+    self test:[(n1 perform:'-' asSymbol with:16r7FFFFFFF ) hexPrintString = '80000001'].
+    self test:[(16r100000000 perform:'-' asSymbol with:16r7FFFFFFF ) hexPrintString = '80000001'].
 
     n1 := 16r100000000. n2 := 16r80000000.
     self test:[(n1 - n2 ) hexPrintString = '80000000'].
     self test:[(16r100000000 - n2 ) hexPrintString = '80000000'].
     self test:[(n1 - 16r80000000 ) hexPrintString = '80000000'].
     self test:[(16r100000000 - 16r80000000 ) hexPrintString = '80000000'].
+    self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '80000000'].
+    self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '80000000'].
+    self test:[(n1 perform:'-' asSymbol with:16r80000000 ) hexPrintString = '80000000'].
+    self test:[(16r100000000 perform:'-' asSymbol with:16r80000000 ) hexPrintString = '80000000'].
 
     n1 := 16r100000000. n2 := 16rFFFFFFFF.
     self test:[(n1 - n2 ) hexPrintString = '1'].
     self test:[(16r100000000 - n2 ) hexPrintString = '1'].
     self test:[(n1 - 16rFFFFFFFF ) hexPrintString = '1'].
     self test:[(16r100000000 - 16rFFFFFFFF ) hexPrintString = '1'].
+    self test:[(n1 perform:'-' asSymbol with:n2 ) hexPrintString = '1'].
+    self test:[(16r100000000 perform:'-' asSymbol with:n2 ) hexPrintString = '1'].
+    self test:[(n1 perform:'-' asSymbol with:16rFFFFFFFF ) hexPrintString = '1'].
+    self test:[(16r100000000 perform:'-' asSymbol with:16rFFFFFFFF ) hexPrintString = '1'].
 
     n1 := 16r100000000. n2 := 1.
     self test:[n1 hexPrintString printCR.
@@ -163,12 +175,20 @@
     self test:[(16r100000000 - n2) hexPrintString = 'FFFFFFFF'].
     self test:[(n1 - 1) hexPrintString = 'FFFFFFFF'].
     self test:[(16r100000000 - 1) hexPrintString = 'FFFFFFFF'].
+    self test:[(n1 perform:'-' asSymbol with:n2) hexPrintString = 'FFFFFFFF'].
+    self test:[(16r100000000 perform:'-' asSymbol with:n2) hexPrintString = 'FFFFFFFF'].
+    self test:[(n1 perform:'-' asSymbol with:1) hexPrintString = 'FFFFFFFF'].
+    self test:[(16r100000000 perform:'-' asSymbol with:1) hexPrintString = 'FFFFFFFF'].
 
     n1 := 16r100000000. n2 := 16r10000000.
     self test:[(n1 - n2) hexPrintString = 'F0000000'].
     self test:[(16r100000000 - n2) hexPrintString = 'F0000000'].
     self test:[(n1 - 16r10000000) hexPrintString = 'F0000000'].
     self test:[(16r100000000 - 16r10000000) hexPrintString = 'F0000000'].
+    self test:[(n1 perform:'-' asSymbol with:n2) hexPrintString = 'F0000000'].
+    self test:[(16r100000000 perform:'-' asSymbol with:n2) hexPrintString = 'F0000000'].
+    self test:[(n1 perform:'-' asSymbol with:16r10000000) hexPrintString = 'F0000000'].
+    self test:[(16r100000000 perform:'-' asSymbol with:16r10000000) hexPrintString = 'F0000000'].
 
     "Large - small subtraction"
     self test:[(20 factorial + 20 factorial - 1) printString = '4865804016353279999'].
@@ -185,7 +205,7 @@
      self testLargeAddition
     "
 
-    "Modified: / 4.6.1999 / 13:41:13 / cg"
+    "Modified: / 4.6.1999 / 13:47:02 / cg"
 !
 
 testLargeDivision
hg/stx-goodies-regression