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