diff options
| author | Patrick Palka <patrick@parcs.ath.cx> | 2013-11-13 21:28:56 -0500 |
|---|---|---|
| committer | Patrick Palka <patrick@parcs.ath.cx> | 2013-11-22 10:24:53 -0500 |
| commit | 0d10c874035fe11e16379afd58a6585bf5595870 (patch) | |
| tree | 3352c2b1b86ad66b9711d02fff7109b1dcab73ea | |
| parent | 9f711019352e9f109d1ce51f47c447b545f0e0ad (diff) | |
| download | haskell-0d10c874035fe11e16379afd58a6585bf5595870.tar.gz | |
Test Trac #8526
| -rw-r--r-- | testsuite/tests/driver/T8526/A.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/driver/T8526/T8526.T | 1 | ||||
| -rw-r--r-- | testsuite/tests/driver/T8526/T8526.script | 10 | ||||
| -rw-r--r-- | testsuite/tests/driver/T8526/T8526.stdout | 6 |
4 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/driver/T8526/A.hs b/testsuite/tests/driver/T8526/A.hs new file mode 100644 index 0000000000..e1fd307eb0 --- /dev/null +++ b/testsuite/tests/driver/T8526/A.hs @@ -0,0 +1,4 @@ +{-# LANGUAGE CPP #-} +module A where + +#include "A.inc" diff --git a/testsuite/tests/driver/T8526/T8526.T b/testsuite/tests/driver/T8526/T8526.T new file mode 100644 index 0000000000..0f0fd40b3a --- /dev/null +++ b/testsuite/tests/driver/T8526/T8526.T @@ -0,0 +1 @@ +test('T8526', extra_clean(['A.inc']), ghci_script, ['T8526.script']) diff --git a/testsuite/tests/driver/T8526/T8526.script b/testsuite/tests/driver/T8526/T8526.script new file mode 100644 index 0000000000..4c9fce592b --- /dev/null +++ b/testsuite/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/testsuite/tests/driver/T8526/T8526.stdout b/testsuite/tests/driver/T8526/T8526.stdout new file mode 100644 index 0000000000..3b24506774 --- /dev/null +++ b/testsuite/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 |