[commit: ghc] master: Testsuite: mark tests expect broken (1d938aa)
git at git.haskell.org
git at git.haskell.org
Mon Jun 20 14:37:43 UTC 2016
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/1d938aa3373f464f46dd3806a21aa85dda764ec6/ghc
>---------------------------------------------------------------
commit 1d938aa3373f464f46dd3806a21aa85dda764ec6
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date: Sun Jun 19 13:03:47 2016 +0200
Testsuite: mark tests expect broken
* CgStaticPointers, GcStaticPointers, ListStaticPointers,
TcStaticPointers01, TcStaticPointers02: #12207
* T11535: #12210
* ffi017/ffi021: #12209
* T11108: #11108
* T9646: #9646
>---------------------------------------------------------------
1d938aa3373f464f46dd3806a21aa85dda764ec6
testsuite/tests/codeGen/should_run/all.T | 4 +++-
testsuite/tests/deriving/should_run/all.T | 3 ++-
testsuite/tests/driver/all.T | 11 +++++++----
testsuite/tests/ffi/should_run/all.T | 6 ++++--
testsuite/tests/rts/all.T | 10 +++++++---
testsuite/tests/simplCore/T9646/test.T | 1 +
testsuite/tests/typecheck/should_compile/all.T | 4 ++--
7 files changed, 26 insertions(+), 13 deletions(-)
diff --git a/testsuite/tests/codeGen/should_run/all.T b/testsuite/tests/codeGen/should_run/all.T
index 42ec7d3..b6249ed 100644
--- a/testsuite/tests/codeGen/should_run/all.T
+++ b/testsuite/tests/codeGen/should_run/all.T
@@ -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'])
diff --git a/testsuite/tests/deriving/should_run/all.T b/testsuite/tests/deriving/should_run/all.T
index f15843b..29e8bbd 100644
--- a/testsuite/tests/deriving/should_run/all.T
+++ b/testsuite/tests/deriving/should_run/all.T
@@ -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, [''])
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 36ba99b..f1522b9 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -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']),
diff --git a/testsuite/tests/ffi/should_run/all.T b/testsuite/tests/ffi/should_run/all.T
index efb6969..bf9fefd 100644
--- a/testsuite/tests/ffi/should_run/all.T
+++ b/testsuite/tests/ffi/should_run/all.T
@@ -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, [''])
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index f15e8a0..15f9806 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -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"
diff --git a/testsuite/tests/simplCore/T9646/test.T b/testsuite/tests/simplCore/T9646/test.T
index d31f8fe..b2292c1 100644
--- a/testsuite/tests/simplCore/T9646/test.T
+++ b/testsuite/tests/simplCore/T9646/test.T
@@ -1,6 +1,7 @@
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'])],
diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T
index 3b6e186..0f222aa 100644
--- a/testsuite/tests/typecheck/should_compile/all.T
+++ b/testsuite/tests/typecheck/should_compile/all.T
@@ -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, [''])
More information about the ghc-commits
mailing list