From: simonpj <unknown>
Date: Tue, 23 Nov 1999 11:43:25 +0000 (+0000)
Subject: [project @ 1999-11-23 11:43:25 by simonpj]
X-Git-Tag: Approximately_9120_patches~5513
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9ce00fc1da0f9281cca8f58ac4197fb7dade9029;p=ghc-hetmet.git

[project @ 1999-11-23 11:43:25 by simonpj]
Add test for top-level qualified defns
---

diff --git a/ghc/tests/rename/should_fail/rnfail021.hs b/ghc/tests/rename/should_fail/rnfail021.hs
new file mode 100644
index 0000000..ead2207
--- /dev/null
+++ b/ghc/tests/rename/should_fail/rnfail021.hs
@@ -0,0 +1,6 @@
+-- !!! Qualified names in binding positions are rejected
+
+module Foo where
+
+Baz.f = True
+
diff --git a/ghc/tests/rename/should_fail/rnfail021.stderr b/ghc/tests/rename/should_fail/rnfail021.stderr
new file mode 100644
index 0000000..00d554d
--- /dev/null
+++ b/ghc/tests/rename/should_fail/rnfail021.stderr
@@ -0,0 +1,6 @@
+
+rnfail021.hs:5:
+    Invalid use of qualified name `Baz.f' in the binding for `Baz.f'
+
+Compilation had errors
+