--- 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