[commit: testsuite] master: Test Trac #7963 (d95e6f1)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

https://github.com/ghc/testsuite/commit/d95e6f1c89d29f2e346903a4057231ad246e65ce

>---------------------------------------------------------------

commit d95e6f1c89d29f2e346903a4057231ad246e65ce
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jun 17 22:58:45 2013 +0100

    Test Trac #7963

>---------------------------------------------------------------

 tests/rename/should_compile/Makefile      |    4 ++++
 tests/rename/should_compile/T7963.hs      |    7 +++++++
 tests/rename/should_compile/T7963.imports |    2 ++
 tests/rename/should_compile/T7963.stdout  |    2 ++
 tests/rename/should_compile/T7963a.hs     |    4 ++++
 tests/rename/should_compile/all.T         |    5 +++++
 6 files changed, 24 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_compile/Makefile b/tests/rename/should_compile/Makefile
index 5823823..4e5cd6c 100644
--- a/tests/rename/should_compile/Makefile
+++ b/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
diff --git a/tests/rename/should_compile/T7963.hs b/tests/rename/should_compile/T7963.hs
new file mode 100644
index 0000000..3e1820e
--- /dev/null
+++ b/tests/rename/should_compile/T7963.hs
@@ -0,0 +1,7 @@
+module T7963 where
+
+import Prelude hiding (unlines)
+import T7963a (unlines)
+
+foo :: IO ()
+foo = writeFile "/tmp/foo" (unlines ["hello", "world"])
diff --git a/tests/rename/should_compile/T7963.imports b/tests/rename/should_compile/T7963.imports
new file mode 100644
index 0000000..edfd719
--- /dev/null
+++ b/tests/rename/should_compile/T7963.imports
@@ -0,0 +1,2 @@
+import Prelude ( IO, writeFile )
+import T7963a ( unlines )
diff --git a/tests/rename/should_compile/T7963.stdout b/tests/rename/should_compile/T7963.stdout
new file mode 100644
index 0000000..f90cc58
--- /dev/null
+++ b/tests/rename/should_compile/T7963.stdout
@@ -0,0 +1,2 @@
+import Prelude ( IO, writeFile )
+import T7963a ( unlines )
diff --git a/tests/rename/should_compile/T7963a.hs b/tests/rename/should_compile/T7963a.hs
new file mode 100644
index 0000000..2a21a18
--- /dev/null
+++ b/tests/rename/should_compile/T7963a.hs
@@ -0,0 +1,4 @@
+module T7963a where
+
+unlines = concat
+
diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
index db1f491..7d08ca5 100644
--- a/tests/rename/should_compile/all.T
+++ b/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'])