Testsuite: mark tests expect broken

* CgStaticPointers, GcStaticPointers, ListStaticPointers,
  TcStaticPointers01, TcStaticPointers02:  #12207
* T11535: #12210
* ffi017/ffi021: #12209
* T11108: #11108
* T9646: #9646

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 42ec7d3e7f..b6249edd75 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 f15843bbf8..29e8bbd250 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 36ba99b6ef..f1522b900b 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 efb696906e..bf9fefdcba 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 f15e8a05c7..15f9806e3d 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 d31f8fee28..b2292c12fb 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 3b6e186d8c..0f222aac44 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, [''])