filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Filip Gralinski 2018-10-23 08:50:04 +02:00
commit 30c37c2b40
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Spec.hs
View File

@ -557,7 +557,7 @@ shouldReturnAlmost action expected = action >>= (@=~? expected)
runGitTest :: String -> (FilePath -> IO a) -> IO a runGitTest :: String -> (FilePath -> IO a) -> IO a
runGitTest name callback = do 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") copyFile ("test/_submit-tests/" ++ name ++ ".tar") (temp ++ "/" ++ name ++ ".tar")
withCurrentDirectory temp $ do withCurrentDirectory temp $ do
callCommand $ "tar xf " ++ name ++ ".tar" callCommand $ "tar xf " ++ name ++ ".tar"