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
abb9e342
Commit
abb9e342
authored
Mar 26, 2008
by
Ian Lynagh
Browse files
Tweak #2174, which we now expect to pass again
parent
aad83cd1
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T
View file @
abb9e342
setTestOpts
(
composes
([
extra_run_opts
('
-ignore-dot-ghci
'),
normalise_slashes
]))
test
('
print001
',
normal
,
ghci_script
,
['
print001.script
'])
test
('
print002
',
if_compiler_ge
('
ghc
','
6.9
',
expect_broken
(
2174
))
,
ghci_script
,
['
print002.script
'])
test
('
print002
',
normal
,
ghci_script
,
['
print002.script
'])
test
('
print003
',
normal
,
ghci_script
,
['
print003.script
'])
test
('
print004
',
normal
,
ghci_script
,
['
print004.script
'])
test
('
print005
',
normal
,
ghci_script
,
['
print005.script
'])
...
...
testsuite/tests/ghc-regress/ghci.debugger/scripts/print002.script
View file @
abb9e342
...
...
@@ -8,6 +8,9 @@ f
let i = Just (10::Integer)
:p i
case i of Just j -> Control.Exception.evaluate j
:p i
:l ../Test.hs
let s = S1 'a' 'b' 'c'
...
...
testsuite/tests/ghc-regress/ghci.debugger/scripts/print002.stdout
View file @
abb9e342
Just 1.2
f = Just 1.2
i = Just (_t1::Integer)
10
i = Just 10
'a'
s = S1 'a' 'b' 'c'
...
...
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