Commit 82fc2612 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #7963

parent 08da2825
......@@ -42,3 +42,7 @@ T4240:
'$(TEST_HC)' $(TEST_HC_OPTS) -c T4240.hs -ddump-minimal-imports
cat T4240.imports
T7963:
'$(TEST_HC)' $(TEST_HC_OPTS) -c T7963a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T7963.hs -ddump-minimal-imports
cat T7963.imports
module T7963 where
import Prelude hiding (unlines)
import T7963a (unlines)
foo :: IO ()
foo = writeFile "/tmp/foo" (unlines ["hello", "world"])
import Prelude ( IO, writeFile )
import T7963a ( unlines )
import Prelude ( IO, writeFile )
import T7963a ( unlines )
module T7963a where
unlines = concat
......@@ -204,3 +204,8 @@ test('T7167', normal, compile, [''])
test('T7336', normal, compile, ['-Wall'])
test('T2435', normal, multimod_compile, ['T2435','-v0'])
test('T7963',
[extra_clean(['T7963a.hi', 'T7963a.o',
'T7963.imports'])],
run_command,
['$MAKE -s --no-print-directory T7963'])
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