Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a2f270c17f7e7fa027b995468f12040bc01c1272 >--------------------------------------------------------------- commit a2f270c17f7e7fa027b995468f12040bc01c1272 Author: Simon Marlow <[email protected]> Date: Mon Jul 2 16:22:44 2012 +0100 add test for #7037 >--------------------------------------------------------------- tests/rts/Makefile | 7 +++++++ tests/rts/T7037.hs | 1 + tests/{gadt/CasePrune.stdout => rts/T7037.stdout} | 0 tests/rts/T7037_main.c | 6 ++++++ tests/rts/all.T | 4 ++++ 5 files changed, 18 insertions(+), 0 deletions(-) diff --git a/tests/rts/Makefile b/tests/rts/Makefile index 971807d..3690a92 100644 --- a/tests/rts/Makefile +++ b/tests/rts/Makefile @@ -47,3 +47,10 @@ T5423: T6006_setup : '$(TEST_HC)' $(TEST_HC_OPTS) -c T6006.hs + +.PHONY: T7037 +T7037: + $(RM) 7037.o 7037.hi 7037$(exeext) + "$(TEST_HC)" $(TEST_HC_OPTS) T7037.hs -v0 + "$(TEST_HC)" $(filter-out -rtsopts, $(TEST_HC_OPTS)) T7037_main.c -v0 -o T7037_main -no-hs-main + ./T7037_main diff --git a/tests/rts/T7037.hs b/tests/rts/T7037.hs new file mode 100644 index 0000000..f19d103 --- /dev/null +++ b/tests/rts/T7037.hs @@ -0,0 +1 @@ +main = print "ok" diff --git a/tests/gadt/CasePrune.stdout b/tests/rts/T7037.stdout similarity index 100% copy from tests/gadt/CasePrune.stdout copy to tests/rts/T7037.stdout diff --git a/tests/rts/T7037_main.c b/tests/rts/T7037_main.c new file mode 100644 index 0000000..91f3130 --- /dev/null +++ b/tests/rts/T7037_main.c @@ -0,0 +1,6 @@ +#include <unistd.h> + +int main(int argc, char *argv[]) { + char *args[1] = {NULL}; + execv("./T7037", args); +} diff --git a/tests/rts/all.T b/tests/rts/all.T index 6f42d2f..b4db8d3 100644 --- a/tests/rts/all.T +++ b/tests/rts/all.T @@ -143,3 +143,7 @@ test('T6006', [ omit_ways(prof_ways + ['ghci']), # needs it. compile_and_run, ['T6006_c.c -no-hs-main']) +test('T7037', + [ extra_clean(['T7037_main.o','T7037_main']) ], + run_command, + ['$MAKE -s --no-print-directory T7037']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
