testsuite: Fix GhciCurDir test
authorBen Gamari <ben@smart-cactus.org>
Sun, 2 Apr 2017 16:05:09 +0000 (12:05 -0400)
committerBen Gamari <ben@smart-cactus.org>
Sun, 2 Apr 2017 16:05:09 +0000 (12:05 -0400)
This was horribly, horribly wrong.

testsuite/tests/ghci/scripts/GhciCurDir.script

index 785a773..cfeb1a4 100644 (file)
@@ -4,4 +4,5 @@ import Control.Monad
 createDirectory "test"
 createDirectory "test/test1"
 :cd test
-unless ("test1" `elem` getDirectoryContents ".") $ putStrLn "Uh oh."
+fs <- getDirectoryContents "."
+unless ("test1" `elem` fs) $ putStrLn "Uh oh."