Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Change back to original cwd on exit from testsuite.

  • Loading branch information...
commit 3cb30b6a685b1478ba29d96a6aacdb185bf421c1 1 parent 10bfd11
Gregory Collins gregorycollins authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 test/suite/TestSuite.hs
4 test/suite/TestSuite.hs
View
@@ -34,7 +34,8 @@ import SafeCWD
main :: IO ()
main = do
-- chdir into test/
- getCurrentDirectory >>= setCurrentDirectory . (</> "test")
+ cwd <- getCurrentDirectory
+ setCurrentDirectory (cwd </> "test")
Blackbox.Tests.remove
"snaplets/heist/templates/bad.tpl"
@@ -49,6 +50,7 @@ main = do
defaultMain [tests]
`finally` do
+ setCurrentDirectory cwd
killThread tid
putStrLn "waiting for termination mvar"
takeMVar mvar
Please sign in to comment.
Something went wrong with that request. Please try again.