Debug

Author: fsoikin

test/Test/Main.purs

@@ -3,16 +3,19 @@ module Test.Main where
 import Prelude
 
 import Data.Array (intercalate)
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.String (trim)
 import Data.String.Regex (replace) as Regex
 import Data.String.Regex.Flags (global) as Regex
 import Data.String.Regex.Unsafe (unsafeRegex) as Regex
 import Effect (Effect)
+import Effect.Class (liftEffect)
 import Node.ChildProcess.Types (Exit(..), pipe)
 import Node.Encoding (Encoding(..))
 import Node.FS.Aff as FS
 import Node.Library.Execa (execa)
+import Node.Platform (Platform(..))
+import Node.Process (lookupEnv, platform)
 import Test.Spec as Spec
 import Test.Spec.Assertions (fail)
 import Test.Spec.Reporter (consoleReporter)
@@ -75,8 +78,9 @@ main = runSpecAndExitProcess [consoleReporter] $
     runTest args' = do
       let opts = _ { cwd = Just "test-fixtures/project", stdin = Just pipe, stdout = Just pipe, stderr = Just pipe }
           args = ["test", "--"] <> args'
-      execa "spago" ["build"] opts >>= _.getResult >>= shouldSucceed
-      execa "spago" args opts >>= _.getResult
+      cmd <- spagoCmd
+      execa cmd ["build"] opts >>= _.getResult >>= shouldSucceed
+      execa cmd args opts >>= _.getResult
 
     nukeLastResults =
       FS.rm' "test-fixtures/project/.spec-results"
@@ -146,3 +150,7 @@ main = runSpecAndExitProcess [consoleReporter] $
 
     stripColors = Regex.replace colorRegex ""
     colorRegex = Regex.unsafeRegex "\x1B\\[([0-9]|;)+m" Regex.global
+
+    spagoCmd = case platform of
+      Just Win32 -> "spago.ps1"
+      _ -> "spago"