Commit 47ca77ea authored by simonpj's avatar simonpj
Browse files

Add a test for 'module M' in export lists

parent 52af092c
module Mod173_Aux( module Mod173_Aux ) where
import qualified Data.List as Mod173_Aux( nub )
-- This should not be exported
import Data.List as Mod173_Aux( partition )
-- This one should be exported
frob x = Mod173_Aux.nub (x::[Int]) -- This one should
...@@ -232,4 +232,8 @@ clean(['Mod171_A.hi', 'Mod171_A.o', 'Mod171_B.hi', 'Mod171_B.o']) ...@@ -232,4 +232,8 @@ clean(['Mod171_A.hi', 'Mod171_A.o', 'Mod171_B.hi', 'Mod171_B.o'])
test('mod172', normal, multimod_compile, ['mod172', '-v0']) test('mod172', normal, multimod_compile, ['mod172', '-v0'])
clean(['Mod172_B.hi', 'Mod172_B.o', 'Mod172_C.hi', 'Mod172_C.o']) clean(['Mod172_B.hi', 'Mod172_B.o', 'Mod172_C.hi', 'Mod172_C.o'])
test('mod173', normal, multimod_compile, ['mod173', '-v0'])
clean(['Mod173_Aux.hi', 'Mod173_Aux.o'])
# After here we have GHC-only tests (the ones above are copied from Hugs) # After here we have GHC-only tests (the ones above are copied from Hugs)
module ShouldCompile where
import Mod173_Aux
t1 = partition -- From the import
nub = True
t2 = nub -- Unambiguous; nub should not have been exported
t3 = frob
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment