Merge branch 'master' of git.applica.pl:piotr.halama/geval

This commit is contained in:
Filip Gralinski 2018-10-23 08:50:04 +02:00
commit 30c37c2b40

View File

@ -557,7 +557,7 @@ shouldReturnAlmost action expected = action >>= (@=~? expected)
runGitTest :: String -> (FilePath -> IO a) -> IO a
runGitTest name callback = do
withTempDirectory "/tmp" "geval-submit-test" $ \temp -> do
withSystemTempDirectory "geval-submit-test" $ \temp -> do
copyFile ("test/_submit-tests/" ++ name ++ ".tar") (temp ++ "/" ++ name ++ ".tar")
withCurrentDirectory temp $ do
callCommand $ "tar xf " ++ name ++ ".tar"