[commit: ghc] master: testsuite: add test for #8831 (f9b6a2b)

[git at git.haskell.org]

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

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

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

commit f9b6a2bb6574904ab11476d79896491b111ad7cc
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Mar 21 04:42:32 2014 -0500

    testsuite: add test for #8831
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

f9b6a2bb6574904ab11476d79896491b111ad7cc
 .../tests/{driver/recomp009/Sub1.hs => ghci/scripts/T8831.hs}      |    4 ++--
 testsuite/tests/ghci/scripts/T8831.script                          |    4 ++++
 .../should_run/cgrun049.stdout => ghci/scripts/T8831.stdout}       |    0
 testsuite/tests/ghci/scripts/all.T                                 |    2 +-
 4 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/driver/recomp009/Sub1.hs b/testsuite/tests/ghci/scripts/T8831.hs
similarity index 50%
copy from testsuite/tests/driver/recomp009/Sub1.hs
copy to testsuite/tests/ghci/scripts/T8831.hs
index 25ea755..b0a3cc5 100644
--- a/testsuite/tests/driver/recomp009/Sub1.hs
+++ b/testsuite/tests/ghci/scripts/T8831.hs
@@ -1,3 +1,3 @@
 {-# LANGUAGE TemplateHaskell #-}
-module Sub where
-x = [| 1 |]
+module T8831 where
+foo = [| 3 |]
diff --git a/testsuite/tests/ghci/scripts/T8831.script b/testsuite/tests/ghci/scripts/T8831.script
new file mode 100644
index 0000000..bc6ba89
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8831.script
@@ -0,0 +1,4 @@
+:seti -XTemplateHaskell
+:load T8831.hs
+$foo
+
diff --git a/testsuite/tests/codeGen/should_run/cgrun049.stdout b/testsuite/tests/ghci/scripts/T8831.stdout
similarity index 100%
copy from testsuite/tests/codeGen/should_run/cgrun049.stdout
copy to testsuite/tests/ghci/scripts/T8831.stdout
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 6812c9d..bc5597d 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -168,4 +168,4 @@ test('T8674', normal, ghci_script, ['T8674.script'])
 test('T8696', normal, ghci_script, ['T8696.script'])
 test('T8776', normal, ghci_script, ['T8776.script'])
 test('ghci059', normal, ghci_script, ['ghci059.script'])
-
+test('T8831', normal, ghci_script, ['T8831.script'])