Test Trac #7963

testsuite/tests/rename/should_compile/Makefile

@@ -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

testsuite/tests/rename/should_compile/T7963.hs

+module T7963 where
+
+import Prelude hiding (unlines)
+import T7963a (unlines)
+
+foo :: IO ()
+foo = writeFile "/tmp/foo" (unlines ["hello", "world"])

testsuite/tests/rename/should_compile/T7963.imports

+import Prelude ( IO, writeFile )
+import T7963a ( unlines )

testsuite/tests/rename/should_compile/T7963.stdout

+import Prelude ( IO, writeFile )
+import T7963a ( unlines )

testsuite/tests/rename/should_compile/T7963a.hs

+module T7963a where
+
+unlines = concat
+

testsuite/tests/rename/should_compile/all.T

@@ -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'])