add a test for #706

ghc · Apr 8, 2011 · 4b4c2f0 · 4b4c2f0
1 parent f65f848
commit 4b4c2f0
Show file tree

Hide file tree

Showing 5 changed files with 20 additions and 0 deletions.
diff --git a/tests/ghc-regress/driver/Makefile b/tests/ghc-regress/driver/Makefile
@@ -472,3 +472,10 @@ withRtsOpts:
 T3364:
 	-"$(TEST_HC)" -H
 
+.PHONY: T706
+T706:
+	cp T706a.hs T706.hs
+	"$(TEST_HC)" -c T706.hs
+	cp T706b.hs T706.hs
+	"$(TEST_HC)" -c T706.hs
+	echo "test" | "$(TEST_HC)" --interactive -v0 T706
diff --git a/tests/ghc-regress/driver/T706.stdout b/tests/ghc-regress/driver/T706.stdout
@@ -0,0 +1 @@
+"testing"
diff --git a/tests/ghc-regress/driver/T706a.hs b/tests/ghc-regress/driver/T706a.hs
@@ -0,0 +1,7 @@
+{-# LANGUAGE Haskell2010 #-}
+module T706 where
+
+foreign export ccall f :: Int -> Int
+
+f :: Int -> Int
+f x = x + 1
diff --git a/tests/ghc-regress/driver/T706b.hs b/tests/ghc-regress/driver/T706b.hs
@@ -0,0 +1,3 @@
+module T706 where
+
+test = "testing"
diff --git a/tests/ghc-regress/driver/all.T b/tests/ghc-regress/driver/all.T
@@ -318,3 +318,5 @@ test('T3364', normalise_fun(normalise_errmsg), run_command,
 test('T4437', only_ways(['normal']), compile_and_run, ['-package ghc'])
 
 test('werror', normal, compile_fail, [''])
+
+test('T706', normal, run_command, ['$MAKE -s --no-print-directory T706'])