diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-12-26 09:56:39 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-01-24 05:37:52 -0500 |
| commit | 6469fea7c78408db679898168a8e9c50c8c7c5ce (patch) | |
| tree | e45a73804442376f9560c9c0a58b284dce84b015 /testsuite | |
| parent | 336b2b1c8628b1317de46078e049b529205f2129 (diff) | |
| download | haskell-6469fea7c78408db679898168a8e9c50c8c7c5ce.tar.gz | |
Don't write o-boot files in Interactive mode
We should not be producing object files when in interactive mode but we
still produced the dummy o-boot files. These never made it into a
`Linkable` but then confused the recompilation checker.
Fixes #22669
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/driver/Makefile | 6 | ||||
| -rw-r--r-- | testsuite/tests/driver/T22669.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/driver/T22669.hs-boot | 1 | ||||
| -rw-r--r-- | testsuite/tests/driver/all.T | 1 |
4 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/driver/Makefile b/testsuite/tests/driver/Makefile index 7c9625570a..77e87c9e6f 100644 --- a/testsuite/tests/driver/Makefile +++ b/testsuite/tests/driver/Makefile @@ -786,4 +786,10 @@ T22044: # Test the file exists and is preprocessed "$(TEST_HC)" $(TEST_HC_OPTS) -v0 T22044.hs +.PHONY: T22669 +T22669: + echo ":q" | "$(TEST_HC)" $(TEST_HC_OPTS) -v0 --interactive T22669 + ! test -f T22669.o-boot + + diff --git a/testsuite/tests/driver/T22669.hs b/testsuite/tests/driver/T22669.hs new file mode 100644 index 0000000000..33ee925790 --- /dev/null +++ b/testsuite/tests/driver/T22669.hs @@ -0,0 +1 @@ +module T22669 where diff --git a/testsuite/tests/driver/T22669.hs-boot b/testsuite/tests/driver/T22669.hs-boot new file mode 100644 index 0000000000..33ee925790 --- /dev/null +++ b/testsuite/tests/driver/T22669.hs-boot @@ -0,0 +1 @@ +module T22669 where diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index 5592e51e44..ddc0039b55 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/tests/driver/all.T @@ -319,3 +319,4 @@ test('T21869', [js_broken(22261), when(unregisterised(), skip)], makefile_test, test('T22044', normal, makefile_test, []) test('T22048', [only_ways(['normal']), grep_errmsg("_rule")], compile, ["-O -fomit-interface-pragmas -ddump-simpl"]) test('T21722', normal, compile_fail, ['-fno-show-error-context']) +test('T22669', normal, makefile_test, []) |