:cd affects the iserv process too
[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 unless ("test1" `elem` getDirectoryContents ".") $ putStrLn "Uh oh."