path: root/testsuite/tests/ghci/scripts/GhciCurDir.script

import System.Directory
import Control.Monad

createDirectory "test"
createDirectory "test/test1"
:cd test
fs <- getDirectoryContents "."
unless ("test1" `elem` fs) $ putStrLn "Uh oh."