Try absolute path

haskell · Nov 8, 2023 · be88709 · be88709
1 parent ec12c0a
commit be88709
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs b/cabal-testsuite/PackageTests/ExternalCommand/cabal.test.hs
@@ -1,7 +1,7 @@
 import Test.Cabal.Prelude
 import qualified System.Process as Process
 import Control.Concurrent (threadDelay)
-import System.Directory (removeFile)
+import System.Directory (removeFile, canonicalizePath)
 import Control.Exception (catch, throwIO)
 import System.IO.Error (isDoesNotExistError)
 import qualified Data.Time.Clock as Time
@@ -12,7 +12,8 @@ import System.Environment
 main = do
   cabalTest $ do
     res <- cabalWithStdin "v2-build" ["all"] ""
-    exe_path <- withPlan $ planExePath "setup-test" "cabal-aaaa"
+    rel_exe_path <- withPlan $ planExePath "setup-test" "cabal-aaaa"
+    exe_path <- liftIO $ canonicalizePath rel_exe_path
     env <- getTestEnv
     path <- liftIO $ getEnv "PATH"
     let newpath = takeDirectory exe_path ++ ":" ++ path