From 9ce00fc1da0f9281cca8f58ac4197fb7dade9029 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 23 Nov 1999 11:43:25 +0000
Subject: [PATCH] [project @ 1999-11-23 11:43:25 by simonpj] Add test for
 top-level qualified defns

---
 ghc/tests/rename/should_fail/rnfail021.hs     |    6 ++++++
 ghc/tests/rename/should_fail/rnfail021.stderr |    6 ++++++
 2 files changed, 12 insertions(+)
 create mode 100644 ghc/tests/rename/should_fail/rnfail021.hs
 create mode 100644 ghc/tests/rename/should_fail/rnfail021.stderr

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