From: simonmar <unknown>
Date: Wed, 9 May 2001 13:48:18 +0000 (+0000)
Subject: [project @ 2001-05-09 13:48:18 by simonmar]
X-Git-Tag: Approximately_9120_patches~1963
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b16f846dfa03b4570eaa7d0ce18f0f7c3d9ee015;p=ghc-hetmet.git

[project @ 2001-05-09 13:48:18 by simonmar]
Add test for pattern parse errors, in particular getting the line
number right (4.08.2 didn't).
---

diff --git a/ghc/tests/reader/should_fail/read017.hs b/ghc/tests/reader/should_fail/read017.hs
new file mode 100644
index 0000000..1d710f5
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read017.hs
@@ -0,0 +1,6 @@
+module ShouldFail where
+
+-- GHC < 5.01 used to get the line number wrong.
+f (f f) = f
+
+g = g
diff --git a/ghc/tests/reader/should_fail/read017.stderr b/ghc/tests/reader/should_fail/read017.stderr
new file mode 100644
index 0000000..06822e4
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read017.stderr
@@ -0,0 +1 @@
+read017.hs:4: Parse error in pattern