class: RegressionTests::SnapshotRestartTests
changed:
#runTestsOnFreshImage
#runTestsOnRestartedImage
Oops, on Windows filenames cannot have colon in their name...
--- a/RegressionTests__SnapshotRestartTests.st Fri Sep 13 13:07:43 2013 +0200
+++ b/RegressionTests__SnapshotRestartTests.st Fri Sep 13 13:56:24 2013 +0200
@@ -67,7 +67,7 @@
script := pkgdir / 'run-ToRunOnFreshAndRestartedSnapshotTests-tests.st'.
self assert: script exists.
- log := FileStream newTemporaryIn: Filename currentDirectory nameTemplate: (self class name , '-' , testSelector , '%1-%2.log').
+ 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.
@@ -78,13 +78,13 @@
self assertAllTestsPassed: logfile.
"Created: / 14-08-2013 / 20:06:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 13-09-2013 / 12:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-09-2013 / 12:54:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
runTestsOnRestartedImage
| log logfile |
- log := FileStream newTemporaryIn: Filename currentDirectory nameTemplate: (self class name , '-' , testSelector , '%1-%2.log').
+ 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
@@ -94,7 +94,7 @@
self assertAllTestsPassed: logfile.
"Created: / 14-08-2013 / 20:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 13-09-2013 / 12:03:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-09-2013 / 12:54:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
setUp