diff options
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/tests/ghci/scripts/T8042recomp.script | 7 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T8042recomp.stdout | 6 | ||||
-rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T8042recomp.script b/testsuite/tests/ghci/scripts/T8042recomp.script new file mode 100644 index 0000000000..d8fa2b54cc --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8042recomp.script @@ -0,0 +1,7 @@ +:set -v1 +System.IO.writeFile "T8042B.hs" "module T8042B where { fooB = \"T8042B\"; }" +System.IO.writeFile "T8042A.hs" "module T8042A where { import T8042B; run = putStrLn fooB }" +:set -fobject-code +:load T8042A +:load *T8042A +:break run diff --git a/testsuite/tests/ghci/scripts/T8042recomp.stdout b/testsuite/tests/ghci/scripts/T8042recomp.stdout new file mode 100644 index 0000000000..49250577dc --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8042recomp.stdout @@ -0,0 +1,6 @@ +[1 of 2] Compiling T8042B ( T8042B.hs, T8042B.o ) +[2 of 2] Compiling T8042A ( T8042A.hs, T8042A.o ) +Ok, two modules loaded. +[2 of 2] Compiling T8042A ( T8042A.hs, interpreted ) +Ok, two modules loaded. +Breakpoint 0 activated at T8042A.hs:1:44-56 diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 29b01a0b0c..6fec18bd92 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -175,6 +175,7 @@ test('T7873', normal, ghci_script, ['T7873.script']) test('T7939', normal, ghci_script, ['T7939.script']) test('T7894', normal, ghci_script, ['T7894.script']) test('T8042', normal, ghci_script, ['T8042.script']) +test('T8042recomp', normal, ghci_script, ['T8042recomp.script']) test('T8116', normal, ghci_script, ['T8116.script']) test('T8113', normal, ghci_script, ['T8113.script']) test('T8172', when(opsys('mingw32'), normalise_drive_letter), |