Commit ac596ee3 authored by Ben Gamari's avatar Ben Gamari 🐢

Canonicalize run executable

parent 23b03f50
......@@ -322,11 +322,12 @@ runTest nofib@Build{..} test = do
putStrLn $ "==nofib== " ++ takeDirectory1 test ++ ": time to run " ++ takeDirectory1 test ++ " follows..."
(stdin, args) <- getTestCmdline nofib test
stats <- IO.canonicalizePath $ output </> test </> "stat.txt"
executable <- liftIO $ IO.canonicalizePath $ output </> test </> "Main" <.> exe
fmap and $ replicateM times $ do
start <- getCurrentTime
(code,stdout,stderr) <- readProcessWithExitCodeAndWorkingDirectory
test (output </> test </> "Main" <.> exe) (args++"+RTS":rts++["-t"++stats]) stdin
test executable (args++"+RTS":rts++["-t"++stats]) stdin
end <- getCurrentTime
stdoutWant <- grab "stdout"
stderrWant <- grab "stderr"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment