Commit 5d38fb69 authored by thomie's avatar thomie Committed by Ben Gamari

Remove clean_cmd and extra_clean usage from .T files

The `clean_cmd` and `extra_clean` setup functions don't do anything.
Remove them from .T files.

Created using https://github.com/thomie/refactor-ghc-testsuite. This
diff is a test for the .T-file parser/processor/pretty-printer in that
repository.

    find . -name '*.T' -exec ~/refactor-ghc-testsuite/Main "{}" \;

Tests containing inline comments or multiline strings are not modified.

Preparation for #12223.

Test Plan: Harbormaster

Reviewers: austin, hvr, simonmar, mpickering, bgamari

Reviewed By: mpickering

Subscribers: mpickering

Differential Revision: https://phabricator.haskell.org/D3000

GHC Trac Issues: #12223
parent 3f1a21d9
......@@ -9,17 +9,12 @@ test('IOError001', [omit_ways(['ghci']), set_stdin('IOError001.hs')],
test('IOError002', normal, compile_and_run, [''])
test('finalization001', normal, compile_and_run, [''])
test('hClose001', extra_clean(['hClose001.tmp']), compile_and_run, [''])
test('hClose002', extra_clean(['hClose002.tmp']), compile_and_run, [''])
test('hClose001', [], compile_and_run, [''])
test('hClose002', [], compile_and_run, [''])
test('hClose003', reqlib('unix'), compile_and_run, ['-package unix'])
test('hFileSize001', normal, compile_and_run, [''])
test('hFileSize002',
[omit_ways(['ghci']),
extra_clean(['hFileSize002.out'])],
compile_and_run, [''])
test('hFlush001',
extra_clean(['hFlush001.out']),
compile_and_run, [''])
test('hFileSize002', [omit_ways(['ghci'])], compile_and_run, [''])
test('hFlush001', [], compile_and_run, [''])
test('hGetBuffering001',
[omit_ways(['ghci']), set_stdin('hGetBuffering001.hs')],
......@@ -29,11 +24,9 @@ test('hGetChar001', normal, compile_and_run, [''])
test('hGetLine001', set_stdin('hGetLine001.hs'), compile_and_run, ['-cpp'])
test('hGetLine002', normal, compile_and_run, [''])
test('hGetLine003', normal, compile_and_run, [''])
test('hGetPosn001',
extra_clean(['hGetPosn001.out']),
compile_and_run, ['-cpp'])
test('hGetPosn001', [], compile_and_run, ['-cpp'])
test('hIsEOF001', normal, compile_and_run, [''])
test('hIsEOF002', extra_clean(['hIsEOF002.out']), compile_and_run, ['-cpp'])
test('hIsEOF002', [], compile_and_run, ['-cpp'])
test('hReady001', normal, compile_and_run, ['-cpp'])
......@@ -47,7 +40,7 @@ test('hReady002', [cmd_prefix('sleep 1 |'), omit_ways(['ghci'])],
test('hSeek001', normal, compile_and_run, [''])
test('hSeek002', normal, compile_and_run, ['-cpp'])
test('hSeek003', normal, compile_and_run, ['-cpp'])
test('hSeek004', extra_clean(['hSeek004.out']), compile_and_run, ['-cpp'])
test('hSeek004', [], compile_and_run, ['-cpp'])
test('hSetBuffering002', set_stdin('hSetBuffering002.hs'), compile_and_run, [''])
......@@ -62,37 +55,27 @@ test('ioeGetFileName001', normal, compile_and_run, ['-cpp'])
test('ioeGetHandle001', normal, compile_and_run, ['-cpp'])
test('isEOF001', extra_run_opts('</dev/null'), compile_and_run, [''])
test('misc001',
[extra_run_opts('misc001.hs misc001.out'),
extra_clean(['misc001.out'])],
compile_and_run, [''])
test('misc001', [extra_run_opts('misc001.hs misc001.out')], compile_and_run,
[''])
test('openFile001', normal, compile_and_run, [''])
test('openFile002', exit_code(1), compile_and_run, [''])
test('openFile003', extra_clean(['openFile003Dir']), compile_and_run, [''])
test('openFile004', extra_clean(['openFile004.out']), compile_and_run, [''])
test('openFile005', extra_clean(['openFile005.out1', 'openFile005.out2']),
compile_and_run, [''])
test('openFile006', extra_clean(['openFile006.out']), compile_and_run, [''])
test('openFile007', extra_clean(['openFile007.out']), compile_and_run, [''])
test('openFile003', [], compile_and_run, [''])
test('openFile004', [], compile_and_run, [''])
test('openFile005', [], compile_and_run, [''])
test('openFile006', [], compile_and_run, [''])
test('openFile007', [], compile_and_run, [''])
test('openFile008', cmd_prefix('ulimit -n 2048; '), compile_and_run, [''])
test('putStr001', normal, compile_and_run, [''])
test('readFile001', extra_clean(['readFile001.out']),
compile_and_run, [''])
test('readwrite001',
extra_clean(['readwrite001.inout']),
compile_and_run,
['-cpp'])
test('readFile001', [], compile_and_run, [''])
test('readwrite001', [], compile_and_run, ['-cpp'])
test('readwrite002',
[omit_ways(['ghci']),
set_stdin('readwrite002.hs'),
extra_clean(['readwrite002.inout'])],
test('readwrite002', [omit_ways(['ghci']), set_stdin('readwrite002.hs')],
compile_and_run, ['-cpp'])
test('readwrite003', extra_clean(['readwrite003.txt']), compile_and_run, [''])
test('readwrite003', [], compile_and_run, [''])
test('hGetBuf001',
[
......@@ -100,22 +83,17 @@ test('hGetBuf001',
expect_fail_if_windows],
compile_and_run, ['-package unix'])
test('hDuplicateTo001', extra_clean(['tmp']), compile_and_run, [''])
test('hDuplicateTo001', [], compile_and_run, [''])
test('countReaders001',
extra_clean(['countReaders001.txt']),
compile_and_run, [''])
test('countReaders001', [], compile_and_run, [''])
test('concio001', normal, run_command, ['$MAKE -s --no-print-directory test.concio001'])
test('concio001.thr', normal, run_command, ['$MAKE -s --no-print-directory test.concio001.thr'])
test('concio002', reqlib('process'), compile_and_run, [''])
test('T2122', extra_clean(['T2122-test']), compile_and_run, [''])
test('T3307',
[extra_clean(['chinese-file-小说', 'chinese-name'])],
run_command,
['$MAKE -s --no-print-directory T3307-test'])
test('T2122', [], compile_and_run, [''])
test('T3307', [], run_command, ['$MAKE -s --no-print-directory T3307-test'])
test('T4855', normal, compile_and_run, [''])
test('hSetEncoding001',extra_run_opts('hSetEncoding001.in'), compile_and_run, [''])
......@@ -130,21 +108,17 @@ for e in encoding001Encodings:
for e1 in encoding001Encodings:
for e2 in encoding001Encodings:
encoding001CleanFiles.append('encoding001.' + e1 + '.' + e2)
test('encoding001',
extra_clean(encoding001CleanFiles),
compile_and_run, [''])
test('encoding001', [], compile_and_run, [''])
test('encoding002', normal, compile_and_run, [''])
test('encoding003', normal, compile_and_run, [''])
test('encoding004', normal, compile_and_run, [''])
test('encoding005', normal, compile_and_run, [''])
test('environment001',
[extra_clean(['environment001'])],
run_command,
test('environment001', [], run_command,
['$MAKE -s --no-print-directory environment001-test'])
test('newline001', extra_clean(['newline001.out']), compile_and_run, [''])
test('newline001', [], compile_and_run, [''])
test('openTempFile001', normal, compile_and_run, [''])
......@@ -152,6 +126,6 @@ test('T4144', normal, compile_and_run, [''])
test('encodingerror001', normal, compile_and_run, [''])
test('T4808', [exit_code(1), extra_clean(['T4808.test'])], compile_and_run, [''])
test('T4808', [exit_code(1)], compile_and_run, [''])
test('T4895', normal, compile_and_run, [''])
test('T7853', normal, compile_and_run, [''])
......@@ -47,7 +47,7 @@ test('trace001', normal, compile_and_run, [''])
test('hGetBuf002', normal, compile_and_run, [''])
test('hGetBuf003', normal, compile_and_run, [''])
test('hPutBuf001', normal, compile_and_run, [''])
test('hPutBuf002', extra_clean(['hPutBuf002.out']), compile_and_run, [''])
test('hPutBuf002', [], compile_and_run, [''])
test('char001', normal, compile_and_run, [''])
test('char002', normal, compile_and_run, [''])
......@@ -92,16 +92,11 @@ test('list002', when(fast(), skip), compile_and_run, [''])
test('list003', when(fast(), skip), compile_and_run, [''])
test('isSuffixOf', normal, compile_and_run, [''])
test('memo001',
[extra_run_opts('+RTS -A10k -RTS'),
extra_clean(['Memo1.hi', 'Memo1.o'])],
multimod_compile_and_run,
['memo001',''])
test('memo001', [extra_run_opts('+RTS -A10k -RTS')], multimod_compile_and_run,
['memo001', ''])
test('memo002',
[extra_run_opts('20'),
extra_clean(['Memo2.hi', 'Memo2.o'])],
multimod_compile_and_run, ['memo002',''])
test('memo002', [extra_run_opts('20')], multimod_compile_and_run,
['memo002', ''])
test('stableptr001',
[when(fast(), skip), extra_run_opts('+RTS -K8m -RTS')],
......
......@@ -11,9 +11,7 @@ test('', normal, compile_fail, [''])
test('', normal, compile, [''])
test('', extra_clean(['.hi', '.o']),
multimod_compile_fail, ['', '-v0'])
test('', [], multimod_compile_fail, ['', '-v0'])
test('', extra_clean(['.hi', '.o']),
multimod_compile, ['', '-v0'])
test('', [], multimod_compile, ['', '-v0'])
"""
......@@ -4,17 +4,9 @@
# now, just disable the profiling ways.
test('annth_make',
[req_interp,
omit_ways(prof_ways),
unless(have_dynamic(),skip),
clean_cmd('$MAKE -s clean_annth_make')],
run_command,
['$MAKE -s --no-print-directory annth_make'])
[req_interp, omit_ways(prof_ways), unless(have_dynamic(), skip)],
run_command, ['$MAKE -s --no-print-directory annth_make'])
test('annth_compunits',
[req_interp,
omit_ways(prof_ways),
unless(have_dynamic(),skip),
clean_cmd('$MAKE -s clean_annth_compunits')],
run_command,
['$MAKE -s --no-print-directory annth_compunits'])
[req_interp, omit_ways(prof_ways), unless(have_dynamic(), skip)],
run_command, ['$MAKE -s --no-print-directory annth_compunits'])
......@@ -2,15 +2,9 @@
test('annfail01', normal, compile_fail, [''])
test('annfail02', normal, compile_fail, [''])
test('annfail03', req_interp, compile_fail, [''])
test('annfail04',
[req_interp, extra_clean(['Annfail04_Help.hi', 'Annfail04_Help.o'])],
multimod_compile_fail, ['annfail04', '-v0'])
test('annfail05',
[req_interp, extra_clean(['Annfail05_Help.hi', 'Annfail05_Help.o'])],
multimod_compile_fail, ['annfail05', '-v0'])
test('annfail06',
[req_interp, extra_clean(['Annfail06_Help.hi', 'Annfail06_Help.o'])],
multimod_compile_fail, ['annfail06', '-v0'])
test('annfail04', [req_interp], multimod_compile_fail, ['annfail04', '-v0'])
test('annfail05', [req_interp], multimod_compile_fail, ['annfail05', '-v0'])
test('annfail06', [req_interp], multimod_compile_fail, ['annfail06', '-v0'])
test('annfail07', req_interp, compile_fail, [''])
test('annfail08', req_interp, compile_fail, [''])
test('annfail09', req_interp, compile_fail, [''])
......@@ -26,9 +20,7 @@ test('', normal, compile_fail, [''])
test('', normal, compile, [''])
test('', extra_clean(['.hi', '.o']),
multimod_compile_fail, ['', '-v0'])
test('', [], multimod_compile_fail, ['', '-v0'])
test('', extra_clean(['.hi', '.o']),
multimod_compile, ['', '-v0'])
test('', [], multimod_compile, ['', '-v0'])
"""
......@@ -7,14 +7,10 @@ setTestOpts(when(fast(), skip))
# now, just disable the profiling and dynamic ways, and use
# config.ghc_th_way_flags.
test('annrun01',
[extra_clean(['Annrun01_Help.hi', 'Annrun01_Help.o',
'annrun01.hi', 'annrun01.o',
'Config.hs', 'Config.hi', 'Config.o']),
pre_cmd('$MAKE -s --no-print-directory config'),
[pre_cmd('$MAKE -s --no-print-directory config'),
omit_ways(['dyn'] + prof_ways)],
multimod_compile_and_run,
['annrun01', '-package ghc ' + config.ghc_th_way_flags]
)
multimod_compile_and_run,
['annrun01', '-package ghc ' + config.ghc_th_way_flags])
""""
Helpful things to C+P:
......@@ -23,9 +19,7 @@ test('', normal, compile_fail, [''])
test('', normal, compile, [''])
test('', extra_clean(['.hi', '.o']),
multimod_compile_fail, ['', '-v0'])
test('', [], multimod_compile_fail, ['', '-v0'])
test('', extra_clean(['.hi', '.o']),
multimod_compile, ['', '-v0'])
test('', [], multimod_compile, ['', '-v0'])
"""
test('T12485',
[extra_clean(['a.db', 'b.db', 'Main.o', 'Main', 'Main.hi'])],
run_command,
['$MAKE -s --no-print-directory T12485'])
test('T12485', [], run_command, ['$MAKE -s --no-print-directory T12485'])
def normaliseDynlibNames(str):
return re.sub('-ghc[0-9.]+\.', '-ghc<VERSION>.', str)
test('ghcpkg01',
extra_clean(['local01.package.conf',
'local01.package.conf.old']),
run_command,
['$MAKE -s --no-print-directory ghcpkg01'])
test('ghcpkg01', [], run_command, ['$MAKE -s --no-print-directory ghcpkg01'])
# Use ignore_stderr to prevent (when HADDOCK_DOCS=NO):
# warning: haddock-interfaces .. doesn't exist or isn't a file
test('ghcpkg02',
[ignore_stderr,
extra_clean(['package.conf.ghcpkg02', 'package.conf.ghcpkg02.old'])],
run_command,
test('ghcpkg02', [ignore_stderr], run_command,
['$MAKE -s --no-print-directory ghcpkg02'])
test('ghcpkg03',
[extra_clean(['local03.package.conf',
'local03.package.conf.old']),
normalise_errmsg_fun(normaliseDynlibNames)],
run_command,
test('ghcpkg03', [normalise_errmsg_fun(normaliseDynlibNames)], run_command,
['$MAKE -s --no-print-directory ghcpkg03'])
def normalise_package_order(s):
......@@ -28,12 +17,7 @@ def normalise_package_order(s):
'newtestpkg-2.0 testpkg-1.2.3.4',
s)
test('ghcpkg04',
[
normalise_errmsg_fun(normalise_package_order),
extra_clean(['local04.package.conf',
'local04.package.conf.old'])],
run_command,
test('ghcpkg04', [normalise_errmsg_fun(normalise_package_order)], run_command,
['$MAKE -s --no-print-directory ghcpkg04'])
# Sometimes we get spurious warnings from ghc-pkg about missing
......@@ -42,69 +26,26 @@ def normalise_haddock_junk( str ):
return re.sub(r'Warning: haddock.*\n', '', str)
test('ghcpkg05',
[ extra_clean(['local05a.package.conf',
'local05a.package.conf.old',
'local05b.package.conf',
'local05b.package.conf.old']),
normalise_errmsg_fun(normalise_haddock_junk, normaliseDynlibNames)
],
run_command,
['$MAKE -s --no-print-directory ghcpkg05'])
test('ghcpkg06',
[extra_clean(['local06.package.conf',
'local06.package.conf.old'])],
run_command,
['$MAKE -s --no-print-directory ghcpkg06'])
test('ghcpkg07',
extra_clean(['local07.package.conf',
'local07.package.conf.old']),
run_command,
['$MAKE -s --no-print-directory ghcpkg07'])
[normalise_errmsg_fun(normalise_haddock_junk, normaliseDynlibNames)],
run_command, ['$MAKE -s --no-print-directory ghcpkg05'])
test('ghcpkg06', [], run_command, ['$MAKE -s --no-print-directory ghcpkg06'])
test('ghcpkg07', [], run_command, ['$MAKE -s --no-print-directory ghcpkg07'])
# Test that we *can* compile a module that also belongs to a package
# (this was disallowed in GHC 6.4 and earlier)
test('pkg01', normal, compile, [''])
test('T1750',
extra_clean(['T1750.hs', 'T1750.out',
'localT1750.package.conf',
'localT1750.package.conf.old']),
run_command, ['$MAKE -s --no-print-directory T1750'])
test('T5442a',
[extra_clean(['package.conf.T5442a.global', 'package.conf.T5442a.user'])],
run_command,
['$MAKE -s --no-print-directory T5442a'])
test('T5442b',
[extra_clean(['package.conf.T5442b.global', 'package.conf.T5442b.user'])],
run_command,
['$MAKE -s --no-print-directory T5442b'])
test('T5442c',
[extra_clean(['package.conf.T5442c.global', 'package.conf.T5442c.user',
'package.conf.T5442c.extra'])],
run_command,
['$MAKE -s --no-print-directory T5442c'])
test('T5442d',
[extra_clean(['package.conf.T5442d.global', 'package.conf.T5442d.user',
'package.conf.T5442d.extra'])],
run_command,
['$MAKE -s --no-print-directory T5442d'])
test('shadow',
extra_clean(['shadow.out', 'shadow.hs', 'shadow.hi',
'local1shadow1.package.conf',
'local1shadow1.package.conf.old',
'local1shadow2.package.conf',
'local1shadow2.package.conf.old']),
run_command, ['$MAKE -s --no-print-directory shadow'])
test('T12485a',
extra_clean(['T12485a.hi', 'T1750.out',
'T12485a.package.conf',
'T12485b.package.conf',
'T12485c.package.conf']),
run_command, ['$MAKE -s --no-print-directory T12485a'])
test('T1750', [], run_command, ['$MAKE -s --no-print-directory T1750'])
test('T5442a', [], run_command, ['$MAKE -s --no-print-directory T5442a'])
test('T5442b', [], run_command, ['$MAKE -s --no-print-directory T5442b'])
test('T5442c', [], run_command, ['$MAKE -s --no-print-directory T5442c'])
test('T5442d', [], run_command, ['$MAKE -s --no-print-directory T5442d'])
test('shadow', [], run_command, ['$MAKE -s --no-print-directory shadow'])
test('T12485a', [], run_command, ['$MAKE -s --no-print-directory T12485a'])
......@@ -3,8 +3,4 @@
# separate packages are allowed). Now it is a straightforward test
# for shadowing: the local Foreign module shadows the base package
# one.
test('pkg02',
[extra_clean(['A.o', 'A.hi', 'Foreign.o', 'Foreign.hi'])],
multimod_compile,
['A','-v0'])
test('pkg02', [], multimod_compile, ['A', '-v0'])
......@@ -10,8 +10,7 @@ test('cg008', normal, compile, [''])
test('T1916', normal, compile, [''])
test('T2388', normal, compile, [''])
test('T3132', normal, compile, ['-dcmm-lint'])
test('T3286', extra_clean(['T3286b.o','T3286b.hi']),
multimod_compile, ['T3286', '-v0'])
test('T3286', [], multimod_compile, ['T3286', '-v0'])
test('T3579', normal, compile, [''])
test('T2578', normal, run_command, ['$MAKE -s --no-print-directory T2578'])
# skip llvm on i386 as we don't support fPIC
......@@ -26,11 +25,9 @@ test('T9155', normal, compile, ['-O2'])
test('T9303', normal, compile, ['-O2'])
test('T9329', [cmm_src], compile, [''])
test('debug', [ extra_clean(['debug.cmm']),
when((arch('powerpc64') or arch('powerpc64le')),
expect_broken(11261))],
run_command,
['$MAKE -s --no-print-directory debug'])
test('debug',
[when((arch('powerpc64') or arch('powerpc64le')), expect_broken(11261))],
run_command, ['$MAKE -s --no-print-directory debug'])
test('T9964', normal, compile, ['-O'])
test('T10518', [cmm_src], compile, [''])
test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')),
......
......@@ -70,8 +70,7 @@ test('cgrun063', normal, compile_and_run, [''])
test('cgrun064', normal, compile_and_run, [''])
test('cgrun065', normal, compile_and_run, [''])
test('cgrun066', normal, compile_and_run, [''])
test('cgrun067', extra_clean(['Cgrun067A.hi', 'Cgrun067A.o']),
compile_and_run, [''])
test('cgrun067', [], compile_and_run, [''])
test('cgrun068', reqlib('random'), compile_and_run, [''])
test('cgrun069', omit_ways(['ghci']), multi_compile_and_run,
['cgrun069', [('cgrun069_cmm.cmm', '')], ''])
......
......@@ -12,15 +12,5 @@
# multiple cores, which is why it is only running the 'threaded2' way
# right now. --SDM 1/4/2010
test('concprog001',
[when(fast(), skip),
only_ways(['threaded2']),
extra_clean(['Arithmetic.hi', 'Arithmetic.o',
'Converter.hi', 'Converter.o',
'Mult.hi', 'Mult.o',
'Stream.hi', 'Stream.o',
'Thread.hi', 'Thread.o',
'Trit.hi', 'Trit.o',
'Utilities.hi', 'Utilities.o'])],
multimod_compile_and_run,
['Mult',''])
test('concprog001', [when(fast(), skip), only_ways(['threaded2'])],
multimod_compile_and_run, ['Mult', ''])
......@@ -10,14 +10,6 @@ else:
# hence -O0:
test('concprog002',
[only_ways(['threaded2','threaded2_hT']),
extra_ways(ways),
exit_code(1),
when(fast(), skip),
reqlib('random'),
extra_clean(['Event.hi', 'Event.o',
'Scheduler.hi', 'Scheduler.o',
'Server.hi', 'Server.o',
'Thread.hi', 'Thread.o'])],
multimod_compile_and_run,
['Server','-O0'])
[only_ways(['threaded2', 'threaded2_hT']), extra_ways(ways), exit_code(1),
when(fast(), skip), reqlib('random')],
multimod_compile_and_run, ['Server', '-O0'])
......@@ -10,25 +10,6 @@
# occasionally, but at least the test is here for posterity.
test('concprog003',
[when(fast(), skip),
extra_clean([
'BackList2.hi', 'BackList2.o',
'ImmList.hi', 'ImmList.o',
'MainMVarList.hi', 'MainMVarList.o',
'TestDataParser.hi', 'TestDataParser.o',
'CASList.hi', 'CASList.o',
'IOList.hi', 'IOList.o',
'MVarListLockCoupling.hi', 'MVarListLockCoupling.o',
'TestRun.hi', 'TestRun.o',
'Collate.hi', 'Collate.o',
'LazyList2.hi', 'LazyList2.o',
'RefInterface.hi', 'RefInterface.o',
'Collection.hi', 'Collection.o',
'Main.hi', 'Main.o',
'TestData.hi', 'TestData.o'
]),
reqlib('random'),
extra_run_opts('IMM -t test-8-3000-3000-2-1-4'),
],
multimod_compile_and_run,
['Main',''])
[when(fast(), skip), reqlib('random'),
extra_run_opts('IMM -t test-8-3000-3000-2-1-4')],
multimod_compile_and_run, ['Main', ''])
......@@ -227,12 +227,9 @@ test('conc045', normal, compile_and_run, [''])
test('conc058', normal, compile_and_run, [''])
test('conc059',
[
only_ways(['threaded1','threaded2']),
pre_cmd('$MAKE -s --no-print-directory conc059_setup'),
extra_clean(['conc059_c.o'])],
compile_and_run,
['conc059_c.c -no-hs-main'])
[only_ways(['threaded1', 'threaded2']),
pre_cmd('$MAKE -s --no-print-directory conc059_setup')],
compile_and_run, ['conc059_c.c -no-hs-main'])
# This test sometimes just exits successfully
# when run the threaded2 way. The problem hasn't been diagnosed yet
......@@ -268,13 +265,9 @@ test('hs_try_putmvar001',
# A benchmark for hs_try_putmvar() vs. foreign export
# This one should work for both threaded and non-threaded RTS
test('hs_try_putmvar002',
[
pre_cmd('$MAKE -s --no-print-directory hs_try_putmvar002_setup'),
extra_clean(['hs_try_putmvar002_c.o']),
extra_run_opts('1 8 10000')
],
compile_and_run,
['hs_try_putmvar002_c.c'])
[pre_cmd('$MAKE -s --no-print-directory hs_try_putmvar002_setup'),
extra_run_opts('1 8 10000')],
compile_and_run, ['hs_try_putmvar002_c.c'])
# Another benchmark for hs_try_putmvar() vs. foreign export
test('hs_try_putmvar003',
......
......@@ -4,7 +4,4 @@ def f( name, opts ):
setTestOpts(f)
test('Cpr001',
extra_clean(['Cpr001_imp.hi', 'Cpr001_imp.o', 'Cpr001_imp.comp.stderr']),
multimod_compile,
['Cpr001', '-v0'])
test('Cpr001', [], multimod_compile, ['Cpr001', '-v0'])
......@@ -75,27 +75,14 @@ test('T2395', normal, compile, [''])
test('T4371', normal, compile, [''])
test('T4439', normal, compile, [''])
test('T4488', normal, compile, [''])
test('T4870',
[only_ways(['optasm']),
extra_clean(['T4870a.hi', 'T4870a.o'])],
multimod_compile,
['T4870', '-v0'])
test('T4870', [only_ways(['optasm'])], multimod_compile, ['T4870', '-v0'])
test('T5117', normal, compile, [''])
test('T5252',
extra_clean(['T5252a.hi', 'T5252a.o']),
run_command,
['$MAKE -s --no-print-directory T5252'])
test('T5252', [], run_command, ['$MAKE -s --no-print-directory T5252'])
test('T5455', normal, compile, [''])
test('T5001',
[only_ways(['optasm']),
extra_clean(['T5001a.hi', 'T5001a.o'])],
multimod_compile,
['T5001', '-v0'])
test('T5001', [only_ways(['optasm'])], multimod_compile, ['T5001', '-v0'])
# T5252Take2 failed when compiled *wihtout* optimisation
test('T5252Take2',
extra_clean(['T5252Take2a.hi', 'T5252Take2a.o']),
run_command,
test('T5252Take2', [], run_command,
['$MAKE -s --no-print-directory T5252Take2'])
test('T2431', normal, compile, ['-ddump-simpl -dsuppress-uniques'])
test('T7669', normal, compile, [''])
......