diff options
author | Ben Gamari <ben@smart-cactus.org> | 2021-08-04 10:26:15 -0400 |
---|---|---|
committer | Cheng Shao <cheng.shao@tweag.io> | 2021-10-14 12:55:17 +0000 |
commit | 5d0ea991ec1706d806aaa1446f57e4c0274651eb (patch) | |
tree | 254d25346f39b9f0ea46513855b9fe7f95bc9e30 | |
parent | 8a4f1d2266f3c0c54d634bf2c4ac1bda01c9a456 (diff) | |
download | haskell-5d0ea991ec1706d806aaa1446f57e4c0274651eb.tar.gz |
testsuite: Add test for #20199
Ensures that Rts.h can be parsed as C++.
(cherry picked from commit cf7e6c8d3492fdfbbbf0bf853feed4743e04e75e)
-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 | 2 |
4 files changed, 18 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 96548c4323..25be6c88c0 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -427,3 +427,5 @@ test('T17088', test('InitEventLogging', [only_ways(['normal']), extra_run_opts('+RTS -RTS')], compile_and_run, ['-eventlog InitEventLogging_c.c']) + +test('T20199', normal, makefile_test, []) |