Commit f7beb4f4 authored by mnislaih's avatar mnislaih

Test path virtualization in GHCi

parent f1fd6aaa
......@@ -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'])
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment