Make workspace output dir absolute path (#1119)

---------

Co-authored-by: Fabrizio Ferrai <[email protected]>

Author: JordanMartinez

bin/src/Main.purs

@@ -764,7 +764,6 @@ mkRunEnv runArgs { dependencies, purs } = do
     runOptions =
       { moduleName
       , execArgs
-      , sourceDir: Paths.cwd
       , executeDir: Paths.cwd
       , successMessage: Nothing
       , failureMessage: "Running failed."

src/Spago/Command/Run.purs

@@ -38,7 +38,6 @@ type RunEnv a =
 type RunOptions =
   { execArgs :: Array String
   , moduleName :: String
-  , sourceDir :: FilePath
   , executeDir :: FilePath
   , successMessage :: Maybe String
   , failureMessage :: String
@@ -75,6 +74,7 @@ run = do
       logDebug "Running with backend: nodejs"
       let runDir = Path.concat [ Paths.localCachePath, "run" ]
       FS.mkdirp runDir
+      absOutput <- liftEffect $ Path.resolve [] $ fromMaybe "output" workspace.buildOptions.output
       let
         runJsPath = Path.concat [ runDir, "run.js" ]
         packageJsonPath = Path.concat [ runDir, "package.json" ]
@@ -85,9 +85,7 @@ run = do
         nodeContents =
           Array.fold
             [ "import { main } from 'file://"
-            , withForwardSlashes opts.sourceDir
-            , "/"
-            , fromMaybe "output" workspace.buildOptions.output
+            , withForwardSlashes absOutput
             , "/"
             , opts.moduleName
             , "/"

src/Spago/Command/Test.purs

@@ -37,7 +37,6 @@ run = do
         { successMessage: Just $ "Test succeeded for package \"" <> PackageName.print name <> "\"."
         , failureMessage: "Tests failed for package \"" <> PackageName.print name <> "\"."
         , executeDir: Paths.cwd
-        , sourceDir: Paths.cwd
         , execArgs
         , moduleName
         }

test/Spago/Test.purs

@@ -12,6 +12,7 @@ import Spago.Command.Init (DefaultConfigOptions(..))
 import Spago.Command.Init as Init
 import Spago.Core.Config as Config
 import Spago.FS as FS
+import Spago.Paths (paths)
 import Test.Spec (Spec)
 import Test.Spec as Spec
 import Test.Spec.Assertions as Assert
@@ -25,6 +26,13 @@ spec = Spec.around withTempDir do
       spago [ "build" ] >>= shouldBeSuccess
       spago [ "test" ] >>= shouldBeSuccessOutputWithErr (fixture "test-output-stdout.txt") (fixture "test-output-stderr.txt")
 
+    Spec.it "tests successfully when using a different output dir" \{ spago, fixture } -> do
+      spago [ "init", "--name", "7368613235362d6a336156536c675a7033334e7659556c6d38" ] >>= shouldBeSuccess
+
+      let tempDir = Path.concat [ paths.temp, "output" ]
+      spago [ "build", "--output", tempDir ] >>= shouldBeSuccess
+      spago [ "test", "--output", tempDir ] >>= shouldBeSuccessOutputWithErr (fixture "test-output-stdout.txt") (fixture "test-output-stderr.txt")
+
     Spec.it "fails nicely when the test module is not found" \{ spago, fixture } -> do
       spago [ "init", "--name", "7368613235362d6a336156536c675a7033334e7659556c6d38" ] >>= shouldBeSuccess
       spago [ "build" ] >>= shouldBeSuccess