Commit 1d938aa3 authored by thomie's avatar thomie
Browse files

Testsuite: mark tests expect broken

* CgStaticPointers, GcStaticPointers, ListStaticPointers,
  TcStaticPointers01, TcStaticPointers02:  #12207
* T11535: #12210
* ffi017/ffi021: #12209
* T11108: #11108
* T9646: #9646
parent 1ddc10bb
......@@ -117,7 +117,9 @@ test('T8103', only_ways(['normal']), compile_and_run, [''])
test('T7953', reqlib('random'), compile_and_run, [''])
test('T8256', normal, compile_and_run, ['-dcore-lint -O1'])
test('T6084',normal, compile_and_run, ['-O2'])
test('CgStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
test('CgStaticPointers',
[when(doing_ghci(), extra_hc_opts('-fobject-code')),
expect_broken_for(12207, opt_ways)],
compile_and_run, [''])
test('StaticArraySize', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
compile_and_run, ['-O2'])
......
......@@ -40,4 +40,5 @@ test('T9576', exit_code(1), compile_and_run, [''])
test('T9830', extra_clean(['T9830a.hi', 'T9830a.o']), multimod_compile_and_run, ['T9830','-v0'])
test('T10104', normal, compile_and_run, [''])
test('T10447', normal, compile_and_run, [''])
test('T11535', normal, compile_and_run, [''])
test('T11535', when(opsys('mingw32'), expect_broken_for(12210, ['ghci'])),
compile_and_run, [''])
......@@ -372,10 +372,13 @@ test('spacesInArgs',
compile_and_run,
[''])
test( 'T4114a', normal, compile_and_run, ['-cpp'])
test( 'T4114b', normal, compile_and_run, ['-no-keep-hi-files'])
test( 'T4114c', normal, compile_and_run, ['-no-keep-o-files'])
test( 'T4114d', normal, compile_and_run, ['-hisuf .myhi -osuf .myo -no-keep-o-files'])
fobject_code = when(doing_ghci(), extra_hc_opts('-fobject-code'))
test( 'T4114a', fobject_code, compile_and_run, ['-cpp'])
test( 'T4114b', fobject_code, compile_and_run, ['-no-keep-hi-files'])
test( 'T4114c', fobject_code, compile_and_run, ['-no-keep-o-files'])
test( 'T4114d', fobject_code, compile_and_run,
['-hisuf .myhi -osuf .myo -no-keep-o-files'])
test('T5584',
extra_clean(['T5584_in/A.hi-boot', 'T5584_out/T5584/A.o-boot']),
......
......@@ -87,7 +87,8 @@ test('ffi015', [ omit_ways(['ghci']), extra_clean(['ffi015_cbits.o']) ],
# GHCi can't handle foreign import "&"
test('ffi016', omit_ways(['ghci']), compile_and_run, [''])
test('ffi017', normal, compile_and_run, [''])
test('ffi017', when(opsys('mingw32'), expect_broken_for(12209, ['ghci'])),
compile_and_run, [''])
test('ffi018', [ omit_ways(['ghci']), extra_clean(['ffi018_c.o']) ],
compile_and_run, ['ffi018_c.c'])
......@@ -142,7 +143,8 @@ test('ffi020', [ omit_ways(prof_ways),
exit_code(1) ], compile_and_run, [''])
test('ffi021', normal, compile_and_run, [''])
test('ffi021', when(opsys('mingw32'), expect_broken_for(12209, ['ghci'])),
compile_and_run, [''])
test('ffi022', normal, compile_and_run, [''])
......
......@@ -266,7 +266,7 @@ test('T9078', [ omit_ways(threaded_ways) ], compile_and_run, ['-with-rtsopts="-D
test('T10017', [ when(opsys('mingw32'), skip)
, only_ways(threaded_ways), extra_run_opts('+RTS -N2 -RTS') ], compile_and_run, [''])
test('T11108', normal, compile_and_run, [''])
test('T11108', expect_broken_for(11108, ['ghci', 'hpc']), compile_and_run, [''])
test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
# this needs runtime infrastructure to do in ghci:
......@@ -275,9 +275,13 @@ test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
],
compile_and_run, ['-rdynamic -package ghc'])
test('GcStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
test('GcStaticPointers',
[when(doing_ghci(), extra_hc_opts('-fobject-code')),
expect_broken_for(12207, opt_ways)],
compile_and_run, [''])
test('ListStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
test('ListStaticPointers',
[when(doing_ghci(), extra_hc_opts('-fobject-code')),
expect_broken_for(12207, opt_ways)],
compile_and_run, [''])
# 251 = RTS exit code for "out of memory"
......
test('T9646',
[when(fast(), skip),
expect_broken_for(9646, ['ghci']),
extra_clean(['Main.hi', 'Main.o', 'Main.dump-simpl',
'Natural.dump-simpl', 'StrictPrim.dump-simpl',
'Type.dump-simpl'])],
......
......@@ -421,8 +421,8 @@ test('T8474', normal, compile, [''])
test('T8563', normal, compile, [''])
test('T8565', normal, compile, [''])
test('T8644', normal, compile, [''])
test('TcStaticPointers01', [], compile, [''])
test('TcStaticPointers02', [], compile, [''])
test('TcStaticPointers01', expect_broken_for(12207, ['hpc']), compile, [''])
test('TcStaticPointers02', expect_broken_for(12207, ['hpc']), compile, [''])
test('T8762', normal, compile, [''])
test('MutRec', normal, compile, [''])
test('T8856', normal, compile, [''])
......
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