RegressionTests__SnapshotRestartTests.st
branchjv
changeset 1543 6d2bdaf0c9ec
parent 1541 5c6a32e00528
child 1567 e17701a073f9
--- a/RegressionTests__SnapshotRestartTests.st	Wed Nov 09 15:43:15 2016 +0000
+++ b/RegressionTests__SnapshotRestartTests.st	Thu Nov 10 00:27:25 2016 +0000
@@ -64,25 +64,31 @@
             cmd := 'bmake.bat ' , target.
         ].
         STCCompilerInterface getCCDefine = '__MINGW32__' ifTrue:[ 
-            (OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[ 
-                self assert: 'C:\MINGW' asFilename exists description: 'MINGW_DIR environment variable not set and C:\MINGW does not exist'.
-                OperatingSystem setEnvironment: 'MINGW_DIR'     to: 'C:\MINGW'.
+            (OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[
+                | mingwDir |
+
+                mingwDir := #('C:\MSYS64\MINGW32' 'C:\MINGW') detect:[:path | path asFilename isDirectory ] ifNone: [ nil ].
+                self assert: mingwDir notNil description: 'MINGW_DIR environment variable not set and MINGW32 not found at standard places'.
+                OperatingSystem setEnvironment: 'MINGW_DIR'     to: mingwDir.
             ].
             OperatingSystem setEnvironment: 'MINGW'         to: '__MINGW32__'.
             OperatingSystem setEnvironment: 'USEMINGW_ARG'  to: '-DUSEMINGW32'.
-            OperatingSystem setEnvironment: 'PATH'          to: (OperatingSystem getEnvironment: 'PATH') , ';C:\MINGW\bin'.
+            OperatingSystem setEnvironment: 'PATH'          to: (OperatingSystem getEnvironment: 'PATH') , ';' , (OperatingSystem getEnvironment: 'MINGW_DIR') , '\bin'.
             cmd := 'mingwmake.bat ' , target.
         ].
         STCCompilerInterface getCCDefine = '__MINGW64__' ifTrue:[ 
             (OperatingSystem getEnvironment: 'MINGW_DIR') isNil ifTrue:[ 
-                self assert: 'C:\MINGW64' asFilename exists description: 'MINGW_DIR environment variable not set and C:\MINGW does not exist'.
-                OperatingSystem setEnvironment: 'MINGW_DIR'     to: 'C:\MINGW64'.
+                | mingwDir |
+
+                mingwDir := #('C:\MSYS64\MINGW64' 'C:\MINGW64') detect:[:path | path asFilename isDirectory ] ifNone: [ nil ].
+                self assert: mingwDir notNil description: 'MINGW_DIR environment variable not set and MINGW64 not found at standard places'.
+                OperatingSystem setEnvironment: 'MINGW_DIR'     to: mingwDir.   
             ].
             OperatingSystem setEnvironment: 'MINGW'         to: '__MINGW64__'.
             OperatingSystem setEnvironment: 'USEMINGW_ARG'  to: '-DUSEMINGW64'.
-            OperatingSystem setEnvironment: 'PATH'          to: (OperatingSystem getEnvironment: 'PATH') , ';C:\MINGW64\bin'.
+            OperatingSystem setEnvironment: 'PATH'          to: (OperatingSystem getEnvironment: 'PATH') , ';' , (OperatingSystem getEnvironment: 'MINGW_DIR') , '\bin'.
             cmd := 'mingwmake.bat ' , target.
-        ].
+        ].    
     ] ifFalse:[
         cmd := 'make -f Makefile.init ', target
     ].
@@ -92,6 +98,7 @@
 
     "Created: / 14-08-2013 / 18:26:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-11-2016 / 22:48:25 / jv"
+    "Modified: / 10-11-2016 / 00:23:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SnapshotRestartTests methodsFor:'running'!