testsuite: Fix GhciCurDir test
[ghc.git] / testsuite / tests / ghci / scripts / GhciCurDir.script
1 import System.Directory
2 import Control.Monad
3
4 createDirectory "test"
5 createDirectory "test/test1"
6 :cd test
7 fs <- getDirectoryContents "."
8 unless ("test1" `elem` fs) $ putStrLn "Uh oh."