RegressionTests__IntegerTest.st
changeset 1365 c3b631cb0688
parent 1323 a15b1d326f23
child 1366 099b96adfcf5
--- a/RegressionTests__IntegerTest.st	Wed Mar 23 18:36:14 2016 +0100
+++ b/RegressionTests__IntegerTest.st	Wed Mar 23 18:37:59 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -1255,7 +1253,7 @@
         16r00FFFFFFFFFFFFFFFF
         16rFFFFFFFFFFFFFFFFFF
     ) do:[:m |
-        Transcript showCR:m.
+        "/ Transcript showCR:m.
         nr := 1.
         1 to:100 do:[:n |
             nr := nr * m
@@ -1263,7 +1261,7 @@
         1 to:100 do:[:n |
             nr := nr / m
         ].
-        self assert:(nr == 1).
+        self assert:(nr == 1) description:('failed in division of ',m printString).
     ].
 
     "