test: add test for bad purs exit

test-fixtures/purs-not-ok.txt

@@ -0,0 +1,11 @@
+Reading Spago workspace configuration...
+
+✓ Selecting package to build: aaa
+
+Downloading dependencies...
+No lockfile found, generating it...
+Lockfile written to spago.lock. Please commit this file.
+Building...
+IF YOURE SEEING THIS IT MEANS THAT THE TEST THAT OVERRIDES purs WAS NOT CLEANED UP PROPERLY!!1
+
+✘ purs exited with non-ok status code: Normally 1

test/Spago/Build.purs

@@ -2,9 +2,11 @@ module Test.Spago.Build where
 
 import Test.Prelude
 
+import Data.Array (intercalate)
 import Data.Foldable (fold)
 import Data.String as String
 import Node.FS.Aff as FSA
+import Node.FS.Perms as FS.Perms
 import Node.Path as Path
 import Node.Platform as Platform
 import Node.Process as Process
@@ -32,6 +34,38 @@ spec = Spec.around withTempDir do
       spago [ "init", "--name", "aaa", "--use-solver" ] >>= shouldBeSuccess
       spago [ "build" ] >>= shouldBeSuccess
 
+    Spec.after (rmRf <<< _.testCwd)
+      $ Spec.it "exits when purs exits non-ok"
+      $ \{ spago, testCwd, fixture } -> do
+          let
+            prependToPath a = testCwd <> ":" <> a
+
+          -- NOTE: this is reset in `Spec.after`
+          -- by removing the tmp dir, rather than
+          -- storing and restoring the PATH variable
+          liftEffect
+            $ Process.lookupEnv "PATH"
+              <#> fromMaybe ""
+              <#> prependToPath
+              >>= Process.setEnv "PATH"
+
+          spago [ "init", "--name", "aaa" ] >>= shouldBeSuccess
+
+          let
+            pursShimPath = testCwd <> "/purs"
+            pursShim =
+              intercalate "\n"
+              [ "#!/bin/bash"
+              , "if [[ $1 = '--version' ]];"
+              , "  then echo '0.15.15';"
+              , "  else echo 'IF YOURE SEEING THIS IT MEANS THAT THE TEST THAT OVERRIDES purs WAS NOT CLEANED UP PROPERLY!!1' 1>&2; exit 1;"
+              , "fi;"
+              ]
+
+          FS.writeTextFile pursShimPath pursShim
+          FS.chmod pursShimPath FS.Perms.permsAll
+          spago [ "build" ] >>= shouldBeFailureErr (fixture "purs-not-ok.txt")
+
     Spec.it "passes options to purs" \{ spago } -> do
       spago [ "init" ] >>= shouldBeSuccess
       spago [ "build", "--purs-args", "--verbose-errors", "--purs-args", "--comments" ] >>= shouldBeSuccess