From: sof <unknown>
Date: Wed, 1 Sep 1999 14:24:27 +0000 (+0000)
Subject: [project @ 1999-09-01 14:24:27 by sof]
X-Git-Tag: Approximately_9120_patches~5844
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=38cc2ea36c7495eb425bbab2efebcba28465d07b;p=ghc-hetmet.git

[project @ 1999-09-01 14:24:27 by sof]
qualified import reg. test
---

diff --git a/ghc/tests/reader/should_fail/read010.hs b/ghc/tests/reader/should_fail/read010.hs
new file mode 100644
index 0000000..8f47cf6
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read010.hs
@@ -0,0 +1,9 @@
+-- !!! Check that 'qualified' doesn't bring the unqual'ed name into scope.
+module ShouldFail where
+
+import qualified List as L ( intersperse ) 
+
+x = L.intersperse
+
+y = intersperse
+
diff --git a/ghc/tests/reader/should_fail/read010.stderr b/ghc/tests/reader/should_fail/read010.stderr
new file mode 100644
index 0000000..0c0eb5c
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read010.stderr
@@ -0,0 +1,14 @@
+
+==================== Parser ====================
+module ShouldFail where
+import qualified List as  L (intersperse)
+{- rec -}
+y = intersperse
+x = L.intersperse
+
+
+
+read010.hs:8: Variable not in scope: `intersperse'
+
+Compilation had errors
+