From: simonmar <unknown>
Date: Mon, 6 Sep 1999 12:42:29 +0000 (+0000)
Subject: [project @ 1999-09-06 12:42:29 by simonmar]
X-Git-Tag: Approximately_9120_patches~5838
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c0ac1814c8ee184c076922ad363d69152cba18af;p=ghc-hetmet.git

[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
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
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
+