Merge branch 'master' of git.applica.pl:piotr.halama/geval
This commit is contained in:
commit
30c37c2b40
@ -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"
|
||||||
|
Loading…
Reference in New Issue
Block a user