[project @ 2004-11-11 15:00:27 by ross]

added more module tests from the Hugs testsuite, and merged mod200 into
mod154, which tests the same thing.

testsuite/tests/ghc-regress/module/Mod136_A.hs

+module Mod136_A (module List) where 
+
+import qualified List 

testsuite/tests/ghc-regress/module/Mod137_A.hs

+module Mod137_A (module Char) where 
+
+import Char
+import List as Char
+
+

testsuite/tests/ghc-regress/module/Mod138_A.hs

+module Mod138_A (module Char) where 
+
+import qualified Char
+import List as Char
+
+

testsuite/tests/ghc-regress/module/Mod139_A.hs

+module Mod139_A where
+
+data Foo = Bar
+
+class C a where
+  m1 :: a -> Int
+  
+instance C Int where
+  m1 _ = 2
+
+x = 'x'
+
+
+

testsuite/tests/ghc-regress/module/Mod139_B.hs

+module Mod139_B ( module A ) where
+
+import Mod139_A as A hiding (C,Foo)
+
+

testsuite/tests/ghc-regress/module/Mod140_A.hs

+module Mod140_A where
+
+data Foo = Bar

testsuite/tests/ghc-regress/module/Mod141_A.hs

+module Mod141_A (partition, module List) where
+
+import List hiding (partition)
+
+partition :: String
+partition = "partition"
+

testsuite/tests/ghc-regress/module/Mod142_A.hs

+module Mod142_A where
+
+x = 'y'

testsuite/tests/ghc-regress/module/Mod143_A.hs

+module Mod143_A where
+
+data Foo = Bar
+

testsuite/tests/ghc-regress/module/Mod145_A.hs

+module Mod145_A where
+
+class C2 a where
+  m1 :: (a,a) -> Int

testsuite/tests/ghc-regress/module/Mod147_A.hs

+module Mod147_A(D) where
+
+data D = D Int

testsuite/tests/ghc-regress/module/Mod157_A.hs

+module Mod157_A (T(..)) where
+
+data T = A | B | C
+

testsuite/tests/ghc-regress/module/Mod157_B.hs

+module Mod157_B (T(..)) where
+
+import Mod157_A(T(A))

testsuite/tests/ghc-regress/module/Mod157_C.hs

+module Mod157_C(T(..)) where
+
+import Mod157_A(T(B))

testsuite/tests/ghc-regress/module/Mod157_D.hs

+module Mod157_D(T(..)) where
+
+import Mod157_B(T(..))
+import Mod157_C(T(..))
+

testsuite/tests/ghc-regress/module/Mod159_A.hs

+module Mod159_A (C(..)) where
+
+class C a where
+  m1 :: a -> Int
+  m2 :: a -> Int
+  m3 :: a -> Int
+
+instance C Char where
+  m1 _ = 1
+  m2 _ = 2
+  m3 _ = 3
+
+

testsuite/tests/ghc-regress/module/Mod159_B.hs

+module Mod159_B (C(..)) where
+
+import Mod159_A(C(m1))

testsuite/tests/ghc-regress/module/Mod159_C.hs

+module Mod159_C(C(..)) where
+
+import Mod159_A(C(m2))

testsuite/tests/ghc-regress/module/Mod159_D.hs

+module Mod159_D(C(..)) where
+
+import Mod159_B(C(..))
+import Mod159_C(C(..))

testsuite/tests/ghc-regress/module/Mod162_A.hs

+module Mod162_A where
+
+data T = T

testsuite/tests/ghc-regress/module/Mod163_A.hs

+module Mod163_A where
+
+data C = MkC { f :: Char }

testsuite/tests/ghc-regress/module/Mod164_A.hs

+module Mod164_A where
+
+data T = D1 | D2

testsuite/tests/ghc-regress/module/Mod164_B.hs

+module Mod164_B where
+
+data S = D1 | D3

testsuite/tests/ghc-regress/module/Mod170_A.hs

+module Mod170_A (Type(..)) where
+
+data Type = Constr { field :: Int }

testsuite/tests/ghc-regress/module/all.T

@@ -171,7 +171,57 @@ test('mod132', normal, multimod_compile_fail, ['mod132', '-v0'])
 clean(['Mod132_A.hi', 'Mod132_A.o', 'Mod132_B.hi', 'Mod132_B.o'])
 test('mod133', normal, compile, [''])
 test('mod134', normal, compile_fail, [''])
+test('mod135', normal, compile_fail, [''])
+test('mod136', normal, multimod_compile_fail, ['mod136', '-v0'])
+clean(['Mod136_A.hi', 'Mod136_A.o'])
+test('mod137', normal, multimod_compile, ['mod137', '-v0'])
+clean(['Mod137_A.hi', 'Mod137_A.o'])
+test('mod138', normal, multimod_compile_fail, ['mod138', '-v0'])
+clean(['Mod138_A.hi', 'Mod138_A.o'])
+test('mod139', normal, multimod_compile, ['mod139', '-v0'])
+clean(['Mod139_A.hi', 'Mod139_A.o', 'Mod139_B.hi', 'Mod139_B.o'])
+test('mod140', normal, multimod_compile, ['mod140', '-v0'])
+clean(['Mod140_A.hi', 'Mod140_A.o'])
+test('mod141', normal, multimod_compile, ['mod141', '-v0'])
+clean(['Mod141_A.hi', 'Mod141_A.o'])
+test('mod142', normal, multimod_compile_fail, ['mod142', '-v0'])
+clean(['Mod142_A.hi', 'Mod142_A.o'])
+test('mod143', normal, multimod_compile_fail, ['mod143', '-v0'])
+clean(['Mod143_A.hi', 'Mod143_A.o'])
+test('mod144', normal, compile_fail, [''])
+test('mod145', normal, multimod_compile_fail, ['mod145', '-v0'])
+clean(['Mod145_A.hi', 'Mod145_A.o'])
+test('mod146', normal, compile_fail, [''])
+test('mod147', normal, multimod_compile_fail, ['mod147', '-v0'])
+clean(['Mod147_A.hi', 'Mod147_A.o'])
+test('mod148', normal, compile, [''])
+test('mod149', normal, compile, [''])
+test('mod150', normal, compile_fail, [''])
+test('mod151', normal, compile_fail, [''])
+test('mod152', normal, compile_fail, [''])
+test('mod153', normal, compile_fail, [''])
+test('mod154', normal, compile, [''])
+test('mod155', normal, compile_fail, [''])
+test('mod156', normal, compile, [''])
+test('mod157', normal, multimod_compile, ['mod157', '-v0'])
+clean(['Mod157_A.hi', 'Mod157_A.o', 'Mod157_B.hi', 'Mod157_B.o', 'Mod157_C.hi', 'Mod157_C.o'])
+test('mod158', normal, compile_fail, [''])
+test('mod159', normal, multimod_compile, ['mod159', '-v0'])
+clean(['Mod159_A.hi', 'Mod159_A.o', 'Mod159_B.hi', 'Mod159_B.o', 'Mod159_C.hi', 'Mod159_C.o'])
+test('mod160', normal, compile_fail, [''])
+test('mod161', normal, compile_fail, [''])
+test('mod162', normal, multimod_compile, ['mod162', '-v0'])
+clean(['Mod162_A.hi', 'Mod162_A.o'])
+test('mod163', normal, multimod_compile, ['mod163', '-v0'])
+clean(['Mod163_A.hi', 'Mod163_A.o'])
+test('mod164', normal, multimod_compile_fail, ['mod164', '-v0'])
+clean(['Mod164_A.hi', 'Mod164_A.o', 'Mod164_B.hi', 'Mod164_B.o'])
+test('mod165', normal, compile_fail, [''])
+test('mod166', normal, compile, [''])
+test('mod167', normal, compile, [''])
+test('mod168', normal, compile, [''])
+test('mod169', normal, compile, [''])
+test('mod170', normal, multimod_compile, ['mod170', '-v0'])
+clean(['Mod170_A.hi', 'Mod170_A.o'])
 
-
-# After here we have GHC-only tests (the ones above are copied from Hugs
-test('mod200', normal, compile, [''])
+# After here we have GHC-only tests (the ones above are copied from Hugs)

testsuite/tests/ghc-regress/module/mod135.hs

+-- !!! Re-exporting qualified import.
+module M (module List) where 
+
+import List as Char
+
+

testsuite/tests/ghc-regress/module/mod135.stderr

+
+mod135.hs:2:10: Unknown module in export list: module `List'

testsuite/tests/ghc-regress/module/mod136.hs

+-- !!! Re-exporting qualified module.
+module M  where 
+
+import Mod136_A
+
+x = zipWith5
+

testsuite/tests/ghc-regress/module/mod136.stderr

+
+mod136.hs:6:4: Not in scope: `zipWith5'

testsuite/tests/ghc-regress/module/mod137.hs

+-- !!! Re-exporting alias which maps to multiple mods.
+module M  where 
+
+import Mod137_A
+
+x = zipWith5
+y = isLatin1
+
+

testsuite/tests/ghc-regress/module/mod138.hs

+-- !!! Re-exporting alias which maps to multiple mods; some qualified.
+module M  where 
+
+import Mod138_A
+
+x = zipWith5
+y = isLatin1
+
+

testsuite/tests/ghc-regress/module/mod138.stderr

+
+mod138.hs:7:4: Not in scope: `isLatin1'

testsuite/tests/ghc-regress/module/mod139.hs

+-- !!! re-exporting module alias, with hiding.
+module M where
+
+import Mod139_B
+
+z = Bar
+a = Mod139_B.x
+
+y = m1 (2::Int)
+
+

testsuite/tests/ghc-regress/module/mod140.hs

+-- !!! hiding tycon _only_.
+module M where
+
+import Mod140_A
+
+a = Bar

testsuite/tests/ghc-regress/module/mod141.hs

+-- !!! re-exportation to override select entities.
+module M where
+
+import Mod141_A
+
+a :: String
+a = partition

testsuite/tests/ghc-regress/module/mod142.hs

+-- !!! Conflicting re-exportation of var
+module M (module M, module Mod142_A) where
+
+import Mod142_A
+
+x = 'x'

testsuite/tests/ghc-regress/module/mod142.stderr

+
+mod142.hs:2:10:
+    Conflicting exports for `x':
+      `module M' exports `M.x' defined at mod142.hs:6:0
+      `module Mod142_A' exports `Mod142_A.x' imported from Mod142_A at mod142.hs:4:0-14
+					       (defined at ./Mod142_A.hs:3:0)

testsuite/tests/ghc-regress/module/mod143.hs

+-- !!! Conflicting re-exportation of tycon
+module M (module M, module Mod143_A) where
+
+import Mod143_A
+
+data Foo = Baz
+

testsuite/tests/ghc-regress/module/mod143.stderr

+
+mod143.hs:2:10:
+    Conflicting exports for `Foo':
+      `module M' exports `M.Foo' defined at mod143.hs:6:5
+      `module Mod143_A' exports `Mod143_A.Foo' imported from Mod143_A at mod143.hs:4:0-14

testsuite/tests/ghc-regress/module/mod144.hs

+-- !!! Conflicting re-exportation of dcon
+module M (module Mod143_A,module M) where
+
+import Mod143_A -- yes, this is intentionally Mod143_A
+
+data Foo1 = Bar
+

testsuite/tests/ghc-regress/module/mod144.stderr

+
+mod144.hs:2:10:
+    Conflicting exports for `Bar':
+      `module Mod143_A' exports `Mod143_A.Bar' imported from Mod143_A at mod144.hs:4:0-14
+      `module M' exports `M.Bar' defined at mod144.hs:6:12

testsuite/tests/ghc-regress/module/mod145.hs

+-- !!! Conflicting re-exportation of class methods
+module Mod145(module Mod145, module Mod145_A) where
+
+import Mod145_A
+
+class C1 a where
+  m1 :: a -> Int
+
+

testsuite/tests/ghc-regress/module/mod145.stderr

+
+mod145.hs:2:14:
+    Conflicting exports for `m1':
+      `module Mod145' exports `Mod145.m1' defined at mod145.hs:7:2
+      `module Mod145_A' exports `Mod145_A.m1' imported from Mod145_A at mod145.hs:4:0-14

testsuite/tests/ghc-regress/module/mod146.hs

+-- !!! Conflicting re-exportation of class methods
+module Mod146(module Mod146, module Mod145_A) where
+
+import Mod145_A
+
+class C1 a where
+  m1 :: a -> Int
+

testsuite/tests/ghc-regress/module/mod146.stderr

+
+mod146.hs:2:14:
+    Conflicting exports for `m1':
+      `module Mod146' exports `Mod146.m1' defined at mod146.hs:7:2
+      `module Mod145_A' exports `Mod145_A.m1' imported from Mod145_A at mod146.hs:4:0-14

testsuite/tests/ghc-regress/module/mod147.hs

+-- !!! exporting tycon (but not dcon with same name.)
+module M where
+
+import Mod147_A
+
+x = D 4

testsuite/tests/ghc-regress/module/mod147.stderr

+
+mod147.hs:6:4: Not in scope: data constructor `D'

testsuite/tests/ghc-regress/module/mod148.hs

+-- !!! re-exportation and ambiguity
+-- should not fail as the absence of an export
+-- list spec means "export all entities defined,
+-- but none imported".
+module M where id x = [];

testsuite/tests/ghc-regress/module/mod149.hs

+-- !!! re-exportation and ambiguity again.
+-- Exporting M (=> id) is not ambiguous, as
+-- Prelude isn't also exported.
+module M (module M) where id x = x;

testsuite/tests/ghc-regress/module/mod150.hs

+-- !!! ambiguous re-exportation.
+module M (module M,module Prelude) where id x = x;

testsuite/tests/ghc-regress/module/mod150.stderr

+
+mod150.hs:2:10:
+    Conflicting exports for `id':
+      `module M' exports `M.id' defined at mod150.hs:2:41
+      `module Prelude' exports `GHC.Base.id' imported from Prelude at Implicit import declaration

testsuite/tests/ghc-regress/module/mod151.hs

+-- !!! ambiguous re-exportation.
+module M (module M,id) where id x = x;

testsuite/tests/ghc-regress/module/mod151.stderr

+
+mod151.hs:2:19:
+    Ambiguous occurrence `id'
+    It could refer to either `M.id', defined at mod151.hs:2:29
+		          or `GHC.Base.id', imported from Prelude at Implicit import declaration

testsuite/tests/ghc-regress/module/mod152.hs

+-- !!! ambiguous re-exportation.
+module M (module Prelude,id) where id x = x;

testsuite/tests/ghc-regress/module/mod152.stderr

+
+mod152.hs:2:10:
+    Conflicting exports for `id':
+      `module Prelude' exports `GHC.Base.id' imported from Prelude at Implicit import declaration
+      `id' exports `M.id' defined at mod152.hs:2:35
+
+mod152.hs:2:25:
+    Ambiguous occurrence `id'
+    It could refer to either `M.id', defined at mod152.hs:2:35
+		          or `GHC.Base.id', imported from Prelude at Implicit import declaration

testsuite/tests/ghc-regress/module/mod153.hs

+-- !!! ambiguous re-exportation.
+module M (id) where id x = x;

testsuite/tests/ghc-regress/module/mod153.stderr

+
+mod153.hs:2:10:
+    Ambiguous occurrence `id'
+    It could refer to either `M.id', defined at mod153.hs:2:20
+		          or `GHC.Base.id', imported from Prelude at Implicit import declaration

testsuite/tests/ghc-regress/module/mod154.hs

+-- !!! Default export list isn't the same as (module M)
+-- This should succeed, exporting only the local 'sort',
+-- and not being confused by the 'sort' from 'List'.
+-- (Hugs gets this wrong)
+
+module M where 
+
+import List as M
+sort = "foo"

testsuite/tests/ghc-regress/module/mod155.hs

+-- !!! ambiguous re-exportation.
+module M(module M) where 
+
+import Prelude as M
+id x = x

testsuite/tests/ghc-regress/module/mod155.stderr

+
+mod155.hs:2:9:
+    Conflicting exports for `id':
+      `module M' exports `M.id' defined at mod155.hs:5:0
+      `module M' exports `GHC.Base.id' imported from Prelude at mod155.hs:4:0-18

testsuite/tests/ghc-regress/module/mod156.hs

+-- !!! non-ambiguous re-exportation.
+module M (module Prelude) where id x = x;

testsuite/tests/ghc-regress/module/mod157.hs

+-- !!! cumulative re-exportation of data constructors
+module M where
+
+import Mod157_D
+
+-- Mod157_D re-exports the type T using (..). T is defined
+-- in Mod157_A, but (only) two of its constructors are visible
+-- in Mod157_D, one via Mod157_B, the other via Mod157_C.
+a = A
+b = B
+
+
+

testsuite/tests/ghc-regress/module/mod158.hs

+-- !!! cumulative re-exportation of data constructors, pt 2.
+module M where
+
+import Mod157_D
+
+-- Mod157_D re-exports the type T using (..). T is defined
+-- in Mod157_A, but (only) two of its constructors is visible
+-- in Mod157_D, one via Mod157_B, the other via Mod157_C.
+a = A
+b = B
+-- C is out of scope.
+c = C
+
+

testsuite/tests/ghc-regress/module/mod158.stderr

+
+mod158.hs:12:4: Not in scope: data constructor `C'

testsuite/tests/ghc-regress/module/mod159.hs

+-- !!! cumulative re-exportation of class methods
+module M where
+
+import Mod159_D
+
+-- Mod159_D re-exports the class C using (..). C is defined
+-- in Mod159_A, but (only) two of its methods are visible
+-- in Mod159_D, one via Mod159_B, the other via Mod159_C.
+a = m1 'a'
+b = m2 'b'

testsuite/tests/ghc-regress/module/mod160.hs

+-- !!! cumulative re-exportation of class methods, pt 2.
+module M where
+
+import Mod159_D
+
+-- Mod159_D re-exports the class C using (..). C is defined
+-- in Mod159_A, but (only) two of its methods are visible
+-- in Mod159_D, one via Mod159_B, the other via Mod159_C.
+a = m1 'a'
+b = m2 'b'
+-- m3 isn't in scope
+c = m3 'c'

testsuite/tests/ghc-regress/module/mod160.stderr

+
+mod160.hs:12:4: Not in scope: `m3'

testsuite/tests/ghc-regress/module/mod161.hs

+-- !!! Testing export of unknown name
+module Bar(bar) where
+foo = foo
\ No newline at end of file

testsuite/tests/ghc-regress/module/mod161.stderr

+
+mod161.hs:2:11: Not in scope: `bar'

testsuite/tests/ghc-regress/module/mod162.hs

+-- !!! hiding a type (but not dcon of same name)
+module M where
+
+import Mod162_A hiding (T())
+
+x = T

testsuite/tests/ghc-regress/module/mod163.hs

+-- !!! lazy name conflict reporting for field labels/selectors.
+module M where
+
+import Mod163_A
+
+data T = MkT { f :: Int }

testsuite/tests/ghc-regress/module/mod164.hs

+-- !!! lazy name conflict reporting for data constructors
+module M where
+
+import Mod164_A
+import Mod164_B
+
+f x = 
+  case x of
+    D1 -> 'a'
+

testsuite/tests/ghc-regress/module/mod164.stderr

+
+mod164.hs:9:4:
+    Ambiguous occurrence `D1'
+    It could refer to either `Mod164_A.D1', imported from Mod164_A at mod164.hs:4:0-14
+		          or `Mod164_B.D1', imported from Mod164_B at mod164.hs:5:0-14

testsuite/tests/ghc-regress/module/mod165.hs

+-- !!! lazy name conflict reporting for data constructors (pt.2)
+module M where
+
+import Mod164_A as A
+import Mod164_B as A
+
+f x = 
+  case x of
+    A.D1 -> 'a'
+

testsuite/tests/ghc-regress/module/mod165.stderr

+
+mod165.hs:9:4:
+    Ambiguous occurrence `A.D1'
+    It could refer to either `Mod164_A.D1', imported from Mod164_A at mod165.hs:4:0-19
+		          or `Mod164_B.D1', imported from Mod164_B at mod165.hs:5:0-19

testsuite/tests/ghc-regress/module/mod166.hs

+-- !!! lazy name conflict reporting for data constructors (pt.3)
+module M where
+
+import Mod164_A as A
+import Mod164_B
+
+f x = 
+  case x of
+    A.D1 -> 'a'
+

testsuite/tests/ghc-regress/module/mod167.hs

+-- !!! qualified + hiding type constructors (or classes)
+module M where
+
+import qualified Mod164_A hiding (T)
+
+data T = D1 | D3
+
+f = D1
+g = Mod164_A.D1

testsuite/tests/ghc-regress/module/mod168.hs

+-- !!! hiding Prelude method names
+-- (based on bug report by Iavor Diatchi:
+--   http://haskell.org/pipermail/hugs-bugs/2003-October/001369.html
+-- )
+module M where
+
+import Prelude hiding ( negate, enumFrom, 
+		        enumFromThen, enumFromTo,