Commit fdec06a2 authored by Andreas Klebinger's avatar Andreas Klebinger Committed by Ben Gamari

Update tests for #12870 to pass with a slow run of the testsuite.

Test Plan: make slow

Reviewers: bgamari, erikd, simonmar

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #12870

Differential Revision: https://phabricator.haskell.org/D4486
parent f748c529
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
T1791:
'$(TEST_HC)' T1791.hs -o T1791 -O -rtsopts
module T12870 where
--We check if RTS arguments are properly filtered/passed along
--by outputting them to stdout.
import System.Environment
......
module T12870g where
--We check the generation count as a way to verify an RTS argument
--was actually parsed and accepted by the RTS.
import GHC.RTS.Flags (getGCFlags, generations)
......
#Standard handling of RTS arguments
test('T12870a',
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs'])],
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs']),
omit_ways(['ghci'])],
multimod_compile_and_run,
['T12870', '-rtsopts -main-is T12870'])
['T12870', '-rtsopts'])
test('T12870b',
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs']),
exit_code(1), ignore_stderr],
exit_code(1), ignore_stderr, omit_ways(['ghci'])],
multimod_compile_and_run,
['T12870', '-rtsopts=none -main-is T12870'])
['T12870', '-rtsopts=none'])
test('T12870c',
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs']),
exit_code(1)],
exit_code(1), omit_ways(['ghci'])],
multimod_compile_and_run,
['T12870', '-rtsopts=some -main-is T12870'])
['T12870', '-rtsopts=some'])
test('T12870d',
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs'])],
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs']),
omit_ways(['ghci'])],
multimod_compile_and_run,
['T12870', '-main-is T12870'])
['T12870', ''])
#RTS options should be passed along to the program
test('T12870e',
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs'])],
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs']),
omit_ways(['ghci', 'threaded2'])],
multimod_compile_and_run,
['T12870', '-rtsopts=ignore -main-is T12870'])
['T12870', '-rtsopts=ignore'])
test('T12870f',
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs'])],
[extra_run_opts('+RTS -G2 -RTS arg1 --RTS +RTS arg2'), extra_files(['T12870.hs']),
omit_ways(['ghci', 'threaded2'])],
multimod_compile_and_run,
['T12870', '-rtsopts=ignoreAll -main-is T12870'])
['T12870', '-rtsopts=ignoreAll'])
#Check handling of env variables
test('T12870g',
[extra_files(['T12870g.hs']), cmd_prefix('GHCRTS=-G7 '), extra_files(['T12870g.hs'])],
[extra_files(['T12870g.hs']), cmd_prefix('GHCRTS=-G7 '), extra_files(['T12870g.hs']),
omit_ways(['ghci'])],
multimod_compile_and_run,
['T12870g', '-rtsopts -main-is T12870g -with-rtsopts="-G3"'])
['T12870g', '-rtsopts -with-rtsopts="-G3"'])
test('T12870h',
[extra_files(['T12870g.hs']), cmd_prefix('GHCRTS=-G7 '), extra_files(['T12870g.hs'])],
[extra_files(['T12870g.hs']), cmd_prefix('GHCRTS=-G7 '), extra_files(['T12870g.hs']),
omit_ways(['ghci'])],
multimod_compile_and_run,
['T12870g', '-rtsopts=ignoreAll -main-is T12870g -with-rtsopts="-G3"'])
['T12870g', '-rtsopts=ignoreAll -with-rtsopts="-G3"'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment