testsuite/tests/ghc-regress/ghci/scripts/ghci032.script


1
2
3
4
5
6
7
8


import System.FilePath
import System.Directory
wd1 <- getCurrentDirectory
setCurrentDirectory ".."
wd2 <- getCurrentDirectory
wd1_parent <- canonicalizePath (wd1 </> "..") 
wd1_parent `equalFilePath` wd2