[commit: testsuite] master: Test Trac #8579 (d009423)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d00942324c0835d3840c72eb9c9803b2ff36b28a/testsuite

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

commit d00942324c0835d3840c72eb9c9803b2ff36b28a
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jan 3 16:50:12 2014 +0000

    Test Trac #8579


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

d00942324c0835d3840c72eb9c9803b2ff36b28a
 tests/ghci/scripts/T8579.script |    5 +++++
 tests/ghci/scripts/T8579.stdout |    2 ++
 tests/ghci/scripts/all.T        |    1 +
 3 files changed, 8 insertions(+)

diff --git a/tests/ghci/scripts/T8579.script b/tests/ghci/scripts/T8579.script
new file mode 100644
index 0000000..64aadf0
--- /dev/null
+++ b/tests/ghci/scripts/T8579.script
@@ -0,0 +1,5 @@
+data A = X
+data A = Y
+:i A
+:m Data.List
+:i A
diff --git a/tests/ghci/scripts/T8579.stdout b/tests/ghci/scripts/T8579.stdout
new file mode 100644
index 0000000..5220e7e
--- /dev/null
+++ b/tests/ghci/scripts/T8579.stdout
@@ -0,0 +1,2 @@
+data A = Y 	-- Defined at <interactive>:3:1
+data A = Y 	-- Defined at <interactive>:3:1
diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
index cf8ebb9..e7a520c 100755
--- a/tests/ghci/scripts/all.T
+++ b/tests/ghci/scripts/all.T
@@ -162,3 +162,4 @@ test('T8485', normal, ghci_script, ['T8485.script'])
 test('T8535', normal, ghci_script, ['T8535.script'])
 test('T8639', normal, ghci_script, ['T8639.script'])
 test('T8640', normal, ghci_script, ['T8640.script'])
+test('T8579', normal, ghci_script, ['T8579.script'])