[commit: testsuite] master: Test Trac #8526 (b8c8a21)

[git at git.haskell.org]

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

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

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

commit b8c8a218dcd31b3a2e91d5094fd92003f659c107
Author: Patrick Palka <patrick at parcs.ath.cx>
Date:   Wed Nov 13 21:28:56 2013 -0500

    Test Trac #8526


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

b8c8a218dcd31b3a2e91d5094fd92003f659c107
 tests/driver/T8526/A.hs         |    4 ++++
 tests/driver/T8526/T8526.T      |    1 +
 tests/driver/T8526/T8526.script |   10 ++++++++++
 tests/driver/T8526/T8526.stdout |    6 ++++++
 4 files changed, 21 insertions(+)

diff --git a/tests/driver/T8526/A.hs b/tests/driver/T8526/A.hs
new file mode 100644
index 0000000..e1fd307
--- /dev/null
+++ b/tests/driver/T8526/A.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE CPP #-}
+module A where
+
+#include "A.inc"
diff --git a/tests/driver/T8526/T8526.T b/tests/driver/T8526/T8526.T
new file mode 100644
index 0000000..0f0fd40
--- /dev/null
+++ b/tests/driver/T8526/T8526.T
@@ -0,0 +1 @@
+test('T8526', extra_clean(['A.inc']), ghci_script, ['T8526.script'])
diff --git a/tests/driver/T8526/T8526.script b/tests/driver/T8526/T8526.script
new file mode 100644
index 0000000..4c9fce5
--- /dev/null
+++ b/tests/driver/T8526/T8526.script
@@ -0,0 +1,10 @@
+:set -fforce-recomp
+:set -v1
+
+:! echo 'a = True' > A.inc
+:load A
+a
+
+:! echo 'a = False' > A.inc
+:reload
+a
diff --git a/tests/driver/T8526/T8526.stdout b/tests/driver/T8526/T8526.stdout
new file mode 100644
index 0000000..3b24506
--- /dev/null
+++ b/tests/driver/T8526/T8526.stdout
@@ -0,0 +1,6 @@
+[1 of 1] Compiling A                ( A.hs, interpreted )
+Ok, modules loaded: A.
+True
+[1 of 1] Compiling A                ( A.hs, interpreted )
+Ok, modules loaded: A.
+False