[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