hg/stx-goodies-regression: changeset 941:0192003475ec

author	Claus Gittinger <cg@exept.de>
	Mon, 27 May 2013 17:08:03 +0200
changeset 941	0192003475ec
parent 940	f0b195f99e55
child 942	df0a681ef351

class: RegressionTests::IntegerTest changed: #testLargeMultiplication

--- a/RegressionTests__IntegerTest.st	Mon May 27 10:15:10 2013 +0200
+++ b/RegressionTests__IntegerTest.st	Mon May 27 17:08:03 2013 +0200
@@ -2407,7 +2407,7 @@
             16rFFFFFFFFFFFFFFFFFFFFFF
             16rFFFFFFFFFFFFFFFFFFFFFFFF
         ) do:[:eachFactor2 |
-            |results|
+            |t3|
 
             t1 := (eachFactor1 * eachFactor2).
             t2 := (eachFactor2 * eachFactor1).
@@ -2420,8 +2420,8 @@
 
             self assert:(t1 / eachFactor1) = eachFactor2.
             self assert:(t1 / eachFactor2) = eachFactor1.
-
-            self assert: t1 = (eachFactor1 asLargeInteger * eachFactor2 asLargeInteger).
+            t3 := (eachFactor1 asLargeInteger * eachFactor2 asLargeInteger).
+            self assert: t1 = t3.
         ].
     ].