Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
9a332e30
Commit
9a332e30
authored
Jan 20, 2008
by
Ian Lynagh
Browse files
Add another ghc -e / runghc test
parent
a3440b7f
Changes
5
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/ghc-e/should_run/Makefile
View file @
9a332e30
...
...
@@ -14,3 +14,7 @@ ghc-e003:
ghc-e004
:
$(TEST_HC)
-ignore-dot-ghci
-e
":m + System.Exit"
-e
"exitWith (ExitFailure 6)"
;
echo
$$
?
# This is what runghc does:
ghc-e005
:
$(TEST_HC)
-ignore-dot-ghci
-main-is
foo ghc-e005.hs
-e
":set prog ghc-e005-prog"
-e
":main [
\"
the
\"
,
\"
args
\"
]"
;
echo
$$
?
testsuite/tests/ghc-regress/ghc-e/should_run/all.T
View file @
9a332e30
...
...
@@ -3,4 +3,5 @@ test('ghc-e001', normal, run_command, ['$MAKE --no-print-directory -s ghc-e001']
test
('
ghc-e002
',
normal
,
run_command
,
['
$MAKE --no-print-directory -s ghc-e002
'])
test
('
ghc-e003
',
normal
,
run_command
,
['
$MAKE --no-print-directory -s ghc-e003
'])
test
('
ghc-e004
',
normal
,
run_command
,
['
$MAKE --no-print-directory -s ghc-e004
'])
test
('
ghc-e005
',
normal
,
run_command
,
['
$MAKE --no-print-directory -s ghc-e005
'])
testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e005.hs
0 → 100644
View file @
9a332e30
import
System.Environment
import
System.IO
main
::
IO
()
main
=
error
"main got called"
foo
::
IO
()
foo
=
do
putStrLn
"This is foo"
getArgs
>>=
print
hFlush
stdout
error
"foo"
testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e005.stderr
0 → 100644
View file @
9a332e30
ghc-e005-prog: foo
testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e005.stdout
0 → 100644
View file @
9a332e30
This is foo
["the","args"]
1
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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