Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
e3832db8
Commit
e3832db8
authored
Mar 19, 2008
by
mnislaih
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
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
Showing
4 changed files
with
16 additions
and
0 deletions
+16
-0
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
+1
-0
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.hs
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.hs
+5
-0
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.script
...te/tests/ghc-regress/ghci.debugger/scripts/list002.script
+4
-0
testsuite/tests/ghc-regress/ghci.debugger/scripts/list002.stdout
...te/tests/ghc-regress/ghci.debugger/scripts/list002.stdout
+6
-0
No files found.
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
Markdown
is supported
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