Commit 4ed33975 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

testsuite: Fix GhciCurDir test

This was horribly, horribly wrong.
parent dfac365f
......@@ -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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment