diff options
| -rw-r--r-- | testsuite/tests/rts/Makefile | 5 | ||||
| -rw-r--r-- | testsuite/tests/rts/T20199.cpp | 10 | ||||
| -rw-r--r-- | testsuite/tests/rts/T20199.stderr | 1 | ||||
| -rw-r--r-- | testsuite/tests/rts/all.T | 1 |
4 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/rts/Makefile b/testsuite/tests/rts/Makefile index 51f2746c1f..9350caf9ec 100644 --- a/testsuite/tests/rts/Makefile +++ b/testsuite/tests/rts/Makefile @@ -130,3 +130,8 @@ EventlogOutput2: "$(TEST_HC)" -eventlog -v0 EventlogOutput.hs ./EventlogOutput +RTS -l ls EventlogOutput.eventlog >/dev/null + +.PHONY: T20199 +T20199: + "$(TEST_HC)" -no-hs-main -v0 T20199.cpp -o T20199 + ./T20199 diff --git a/testsuite/tests/rts/T20199.cpp b/testsuite/tests/rts/T20199.cpp new file mode 100644 index 0000000000..00a3345dbd --- /dev/null +++ b/testsuite/tests/rts/T20199.cpp @@ -0,0 +1,10 @@ +/* verify that Rts.h can be parsed as a C++ header */ +extern "C" { +#include "Rts.h" +} + +extern "C" +int main(int argc, char *argv[]) { + debugBelch("Hello world!"); + return 0; +} diff --git a/testsuite/tests/rts/T20199.stderr b/testsuite/tests/rts/T20199.stderr new file mode 100644 index 0000000000..6769dd60bd --- /dev/null +++ b/testsuite/tests/rts/T20199.stderr @@ -0,0 +1 @@ +Hello world!
\ No newline at end of file diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index cd4a92dd7b..aeab6b4b2e 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -439,3 +439,4 @@ test('T15427', normal, compile_and_run, ['']) test('T19481', extra_run_opts('+RTS -T -RTS'), compile_and_run, ['']) test('T19381', extra_run_opts('+RTS -T -RTS'), compile_and_run, ['']) +test('T20199', normal, makefile_test, []) |