RegressionTests__SnapshotRestartTests.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b
child 1541 5c6a32e00528
--- a/RegressionTests__SnapshotRestartTests.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__SnapshotRestartTests.st	Thu Jun 30 09:02:08 2016 +0100
@@ -25,13 +25,13 @@
     innerSuite := ToRunOnFreshAndRestartedSnapshotTests buildSuite.
     expected := '%1 run, %1 passed, 0 skipped, 0 failed, 0 errors ### HERE ### ' bindWith: innerSuite tests size.
     logfile readingFileDo:[:s |
-        [ s atEnd ] whileFalse:[
-            | line |
+	[ s atEnd ] whileFalse:[
+	    | line |
 
-            line := s nextLine.
-            "/ Uss starts with because on Windows you get 0xD chars at the end, sigh
-            (line startsWith: expected) ifTrue:[ ^ self ].
-        ]
+	    line := s nextLine.
+	    "/ Uss starts with because on Windows you get 0xD chars at the end, sigh
+	    (line startsWith: expected) ifTrue:[ ^ self ].
+	]
     ].
     "
     logfile contents asString
@@ -86,9 +86,9 @@
     ] ifFalse:[
         cmd := 'make -f Makefile.init ', target
     ].
-    self 
-        assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
-        description: 'Failed to make target ''', target, ''' in test package'.
+    self
+	assert: (OperatingSystem executeCommand: cmd inDirectory: pkgdir)
+	description: 'Failed to make target ''', target, ''' in test package'.
 
     "Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 27-04-2016 / 09:32:26 / jv"
@@ -104,9 +104,9 @@
     log := FileStream newTemporaryIn: Filename currentDirectory nameTemplate: ('RegressionTests__SnapshotRestartTests-' , testSelector , '%1-%2.log').
     logfile := log fileName.
     [
-        OperatingSystem executeCommand: ('%1 --execute %2' bindWith: exe with: script asAbsoluteFilename pathName) outputTo: log errorTo: log inDirectory: tmpdir pathName.
+	OperatingSystem executeCommand: ('%1 --execute %2' bindWith: exe with: script asAbsoluteFilename pathName) outputTo: log errorTo: log inDirectory: tmpdir pathName.
     ] ensure:[
-        log close.
+	log close.
     ].
 
     self assertAllTestsPassed: logfile.
@@ -121,9 +121,9 @@
     log := FileStream newTemporaryIn: Filename currentDirectory nameTemplate: ('RegressionTests__SnapshotRestartTests-' , testSelector , '%1-%2.log').
     logfile := log fileName.
     [
-        OperatingSystem executeCommand: ('%1 -i %2' bindWith: exe with: (tmpdir / 'restart.img') pathName ) outputTo: log errorTo: log inDirectory: tmpdir pathName
+	OperatingSystem executeCommand: ('%1 -i %2' bindWith: exe with: (tmpdir / 'restart.img') pathName ) outputTo: log errorTo: log inDirectory: tmpdir pathName
     ] ensure:[
-        log close.
+	log close.
     ].
     self assertAllTestsPassed: logfile.
 
@@ -189,7 +189,7 @@
 test_01
 
     "/ Use Smalltalk at: to workaround compiler bug...
-    self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil. 
+    self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
     self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addSimple: 12 to: 12) == 24
 
     "Created: / 14-08-2013 / 19:46:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -198,7 +198,7 @@
 
 test_02
 
-    "/ Use Smalltalk at: to workaround compiler bug...         
+    "/ Use Smalltalk at: to workaround compiler bug...
     self assert: (Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') notNil.
     self assert: ((Smalltalk at: #'RegressionTests::SnapshotRestartTestsObject') new addUsingBlock: 10 to: 10) == 20