Test path virtualization in GHCi

testsuite/tests/ghc-regress/ghci/scripts/all.T

@@ -42,5 +42,6 @@ test('ghci028', normal, ghci_script, ['ghci028.script'])
 test('ghci029', normal, ghci_script, ['ghci029.script'])
 test('ghci030', expect_broken(2082), ghci_script, ['ghci030.script'])
 test('ghci031', expect_broken(2138), ghci_script, ['ghci031.script'])
+test('ghci032', normal, ghci_script, ['ghci032.script'])
 
 test('1914', normal, ghci_script, ['1914.script'])

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

+
+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

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

+True