summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/ghc-e
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-01-19 22:07:44 +0000
committerIan Lynagh <igloo@earth.li>2008-01-19 22:07:44 +0000
commite5c24de6afc43bfa31436a6c39c26eb1e4d7abf5 (patch)
tree317831c4fe714c60913c1491188caa9ec31e27ac /testsuite/tests/ghc-regress/ghc-e
parent2289264d861d7f8c0419db9df7a35bd9e50dc603 (diff)
downloadhaskell-e5c24de6afc43bfa31436a6c39c26eb1e4d7abf5.tar.gz
Test for ghc -e ":main"
Diffstat (limited to 'testsuite/tests/ghc-regress/ghc-e')
-rw-r--r--testsuite/tests/ghc-regress/ghc-e/should_run/Makefile3
-rw-r--r--testsuite/tests/ghc-regress/ghc-e/should_run/all.T1
-rw-r--r--testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.hs3
-rw-r--r--testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.stdout1
4 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/ghc-e/should_run/Makefile b/testsuite/tests/ghc-regress/ghc-e/should_run/Makefile
index f6844a6b84..853085b713 100644
--- a/testsuite/tests/ghc-regress/ghc-e/should_run/Makefile
+++ b/testsuite/tests/ghc-regress/ghc-e/should_run/Makefile
@@ -5,3 +5,6 @@ include $(TOP)/mk/test.mk
ghc-e001:
$(TEST_HC) -ignore-dot-ghci -e "return ()"
+ghc-e002:
+ $(TEST_HC) -ignore-dot-ghci -e ":main" ghc-e002.hs
+
diff --git a/testsuite/tests/ghc-regress/ghc-e/should_run/all.T b/testsuite/tests/ghc-regress/ghc-e/should_run/all.T
index 204ccaac25..fd1e932435 100644
--- a/testsuite/tests/ghc-regress/ghc-e/should_run/all.T
+++ b/testsuite/tests/ghc-regress/ghc-e/should_run/all.T
@@ -1,3 +1,4 @@
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'])
diff --git a/testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.hs b/testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.hs
new file mode 100644
index 0000000000..028b1a0166
--- /dev/null
+++ b/testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.hs
@@ -0,0 +1,3 @@
+
+main :: IO ()
+main = putStrLn "This is main"
diff --git a/testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.stdout b/testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.stdout
new file mode 100644
index 0000000000..23e1ebd03b
--- /dev/null
+++ b/testsuite/tests/ghc-regress/ghc-e/should_run/ghc-e002.stdout
@@ -0,0 +1 @@
+This is main