[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 (file)
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 (file)
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
+