Commit e3832db8 authored by mnislaih's avatar mnislaih
Browse files

Add a new test for :list

Check that :list keeps working after setCurrentDirectory has been used
parent 1f9e3747
......@@ -69,5 +69,6 @@ test('dynbrk009', normal, ghci_script, ['dynbrk009.script'])
test('result001', expect_broken(1457), ghci_script, ['result001.script'])
test('list001', normal, ghci_script, ['list001.script'])
test('list002', expect_broken, ghci_script, ['list002.script'])
test('hist001', normal, ghci_script, ['hist001.script'])
import System.Directory
main = do
setCurrentDirectory ".."
putStrLn "Hello World"
\ No newline at end of file
:l list002
:step main
\ No newline at end of file
Stopped at list002.hs:(3,7)-(5,23)
_result :: IO () = _
Stopped at list002.hs:4:2-25
_result :: IO () = _
Stopped at list002.hs:5:2-23
_result :: IO () = _
Supports Markdown
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