diff options
Diffstat (limited to 'testsuite/tests/ghci/scripts/ghci032.script')
-rw-r--r-- | testsuite/tests/ghci/scripts/ghci032.script | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/ghci032.script b/testsuite/tests/ghci/scripts/ghci032.script new file mode 100644 index 0000000000..cea8afff15 --- /dev/null +++ b/testsuite/tests/ghci/scripts/ghci032.script @@ -0,0 +1,8 @@ + +import System.FilePath +import System.Directory +wd1 <- getCurrentDirectory +setCurrentDirectory ".." +wd2 <- getCurrentDirectory +wd1_parent <- canonicalizePath (wd1 </> "..") +wd1_parent `equalFilePath` wd2
\ No newline at end of file |