[commit: testsuite] master: Test Trac #5820 (8f5f014)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8f5f01403acc582327ab4531c306dd077d251ba4

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

commit 8f5f01403acc582327ab4531c306dd077d251ba4
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Feb 10 11:02:31 2012 +0000

    Test Trac #5820

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

 tests/ghci/scripts/T5820.hs                        |    3 +++
 tests/ghci/scripts/T5820.script                    |    4 ++++
 .../T5472.stdout => ghci/scripts/T5820.stdout}     |    0 
 tests/ghci/scripts/all.T                           |    3 ++-
 4 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/tests/ghci/scripts/T5820.hs b/tests/ghci/scripts/T5820.hs
new file mode 100644
index 0000000..99d36e5
--- /dev/null
+++ b/tests/ghci/scripts/T5820.hs
@@ -0,0 +1,3 @@
+module T5820 where
+data Foo = Foo
+instance Eq Foo
diff --git a/tests/ghci/scripts/T5820.script b/tests/ghci/scripts/T5820.script
new file mode 100644
index 0000000..e1a0bd1
--- /dev/null
+++ b/tests/ghci/scripts/T5820.script
@@ -0,0 +1,4 @@
+:l T5820
+:i Foo
+data T = T
+:i Foo
diff --git a/tests/deSugar/should_run/T5472.stdout b/tests/ghci/scripts/T5820.stdout
similarity index 100%
copy from tests/deSugar/should_run/T5472.stdout
copy to tests/ghci/scripts/T5820.stdout
diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
index b559dcf..dae116e 100755
--- a/tests/ghci/scripts/all.T
+++ b/tests/ghci/scripts/all.T
@@ -108,4 +108,5 @@ test('T5557', normal, ghci_script, ['T5557.script'])
 test('T5566', normal, ghci_script, ['T5566.script'])
 test('GhciKinds', normal, ghci_script, ['GhciKinds.script'])
 test('T5564', normal, ghci_script, ['T5564.script'])
-test('Defer02', normal, ghci_script, ['Defer02.script'])
\ No newline at end of file
+test('Defer02', normal, ghci_script, ['Defer02.script'])
+test('T5820', normal, ghci_script, ['T5820.script'])