[project @ 1999-09-06 12:42:29 by simonmar]

Add parse error/layout test.

diff --git a/ghc/tests/reader/should_fail/read012.hs b/ghc/tests/reader/should_fail/read012.hs
new file mode 100644 (file)
index 0000000..4a78088
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read012.hs
@@ -0,0 +1,9 @@
+-- !!! test parse errors due to tokens inserted by layout
+
+-- used to report "Parse error on input `'" in 4.04pl0.
+
+main = let 
+       f = (a,
+       g = 1
+       in f
+

diff --git a/ghc/tests/reader/should_fail/read012.stderr b/ghc/tests/reader/should_fail/read012.stderr
new file mode 100644 (file)
index 0000000..5105742
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read012.stderr
@@ -0,0 +1,4 @@
+read012.hs:7: parse error (possibly incorrect indentation)
+
+Compilation had errors
+