#BUGFIX
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 18:36:14 +0100
changeset 1364 6b667c8faf19
parent 1363 806bd20a7e59
child 1365 c3b631cb0688
#BUGFIX class: RegressionTests::FileStreamTest changed: #testRead3
RegressionTests__FileStreamTest.st
--- a/RegressionTests__FileStreamTest.st	Wed Mar 23 18:33:17 2016 +0100
+++ b/RegressionTests__FileStreamTest.st	Wed Mar 23 18:36:14 2016 +0100
@@ -262,8 +262,8 @@
         p interruptWith:[count := count + 1].
     ].
     self assert:errorOccured isNil.
-    ('read file <1p> times; interrupted <2p> times' 
-        expandMacrosWith:nLoop with:count) printCR
+    self assert:count > 50. "/ at least 50 times interrupted...
+    "/ Transcript printf:'read file %d times; interrupted %d times\n' with:nLoop with:count.
 
     "
      self new testRead3