Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
e3832db8
Commit
e3832db8
authored
Mar 19, 2008
by
mnislaih
Browse files
Add a new test for :list
Check that :list keeps working after setCurrentDirectory has been used
parent
1f9e3747
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
View file @
e3832db8
...
...
@@ -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
'])
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.hs
0 → 100644
View file @
e3832db8
import
System.Directory
main
=
do
setCurrentDirectory
".."
putStrLn
"Hello World"
\ No newline at end of file
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.script
0 → 100644
View file @
e3832db8
:l list002
:step main
:step
:step
\ No newline at end of file
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.stdout
0 → 100644
View file @
e3832db8
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 () = _
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment