--- a/RegressionTests__VMCrashTestCase.st Wed Mar 11 18:03:28 2015 +0100
+++ b/RegressionTests__VMCrashTestCase.st Wed Apr 08 17:50:55 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'exept:regression' }"
"{ NameSpace: RegressionTests }"
@@ -117,7 +119,7 @@
with: testSelector storeString.
exe := OperatingSystem pathOfSTXExecutable.
- args := { exe . '--abortOnSEGV' . '--eval' . script }.
+ args := { exe . '--abortOnSEGV' . '--execute' . ( tempDir / 'run.st' ) pathName }.
OperatingSystem isMSWINDOWSlike ifTrue:[
args := String streamContents:[:s|
@@ -134,15 +136,6 @@
( tempDir / 'run.st' ) writingFileDo:[ :f |
f nextPutAll: script.
].
- ( tempDir / 'run.sh' ) writingFileDo:[ :f |
- f nextPutAll: exe.
- f space.
- f nextPutAll: '--abortOnSEGV'.
- f space.
- f nextPutAll: '--execute'.
- f space.
- f nextPutAll: 'run.st'.
- ].
environment := OperatingSystem isUNIXlike
ifTrue:[OperatingSystem getEnvironment copy]
ifFalse:[environment := Dictionary new].
@@ -151,7 +144,7 @@
Processor monitor:[
pid := OperatingSystem exec: exe withArguments:args
environment:environment
- fileDescriptors:"{0 . output fileDescriptor . output fileDescriptor }"#(0 1 2)
+ fileDescriptors:{0 . output fileDescriptor . output fileDescriptor }
fork:true
newPgrp:false
inDirectory: Filename currentDirectory pathName