RegressionTests__VMCrashTestCase.st
changeset 1276 343771ee1f6b
parent 1199 81fcf185ef45
child 1447 2351db93aa5b
child 1499 26a16a04219b
--- 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