[Git][ghc/ghc][wip/js-staging] testsuite: skip golden failure tests

[doyougnu (@doyougnu)]

doyougnu pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC


Commits:
e3575308 by doyougnu at 2022-10-21T07:24:08-04:00
testsuite: skip golden failure tests

Specifically:

GcStaticPointers
T13167
T14452
T16707
T17481
T7160
bkp32
fptr01

- - - - -


5 changed files:

- libraries/base/tests/all.T
- testsuite/tests/backpack/should_compile/all.T
- testsuite/tests/driver/all.T
- testsuite/tests/ffi/should_run/all.T
- testsuite/tests/rts/all.T


Changes:

=====================================
libraries/base/tests/all.T
=====================================
@@ -263,8 +263,11 @@ test('T13896', normal, compile_and_run, [''])
 # On Windows this test is fragile using the old MIO IO manager due to an
 # apparent flushing bug.
 test('T13167',
-     [when(opsys('mingw32'), only_ways(['winio', 'winio_threaded'])),
-      fragile_for(16536, concurrent_ways)],
+     [ when(opsys('mingw32')
+     , only_ways(['winio', 'winio_threaded']))
+     , fragile_for(16536, concurrent_ways)
+     , js_skip
+     ],
      compile_and_run, [''])
 test('T15183', normal, compile_and_run, [''])
 test('T15349', [exit_code(1), expect_broken_for(15349, ['ghci'])], compile_and_run, [''])


=====================================
testsuite/tests/backpack/should_compile/all.T
=====================================
@@ -23,7 +23,7 @@ test('bkp28', normal, backpack_compile, [''])
 test('bkp29', normal, backpack_compile, [''])
 test('bkp30', normal, backpack_compile, [''])
 test('bkp31', normal, backpack_compile, [''])
-test('bkp32', normal, backpack_compile, [''])
+test('bkp32', js_skip, backpack_compile, [''])
 test('bkp33', normal, backpack_compile, [''])
 test('bkp34', normal, backpack_compile, [''])
 test('bkp35', normal, backpack_compile, [''])


=====================================
testsuite/tests/driver/all.T
=====================================
@@ -282,7 +282,7 @@ test('inline-check', omit_ways(['hpc', 'profasm'])
                    , compile
 		   , ['-dinline-check foo -O -ddebug-output'])
 
-test('T14452', [], makefile_test, [])
+test('T14452', js_skip, makefile_test, [])
 test('T14923', normal, makefile_test, [])
 test('T15396', normal, compile_and_run, ['-package ghc'])
 test('T16737',
@@ -297,7 +297,7 @@ test('T18369', normal, compile, ['-O'])
 test('T21682', normal, compile_fail, ['-Werror=unrecognised-warning-flags -Wfoo'])
 test('FullGHCVersion', normal, compile_and_run, ['-package ghc-boot'])
 test('OneShotTH', req_th, makefile_test, [])
-test('T17481', normal, makefile_test, [])
+test('T17481', js_skip, makefile_test, [])
 test('T20084', normal, makefile_test, [])
 test('RunMode', [req_interp, extra_files(['RunMode/Test.hs'])], run_command, ['{compiler} --run -iRunMode/ -ignore-dot-ghci RunMode.hs -- hello'])
 test('T20439', normal, run_command,


=====================================
testsuite/tests/ffi/should_run/all.T
=====================================
@@ -120,7 +120,7 @@ test('T2469', js_skip, compile_and_run, ['-optc-std=gnu99'])
 
 test('T2594', [omit_ways(['ghci']), req_c], compile_and_run, ['T2594_c.c'])
 
-test('fptr01', [omit_ways(['ghci'])], compile_and_run,
+test('fptr01', [omit_ways(['ghci']), js_skip], compile_and_run,
       [ 'fptr01_js.js' if arch("js") else 'fptr01_c.c'])
 test('fptr02', normal, compile_and_run, [''])
 


=====================================
testsuite/tests/rts/all.T
=====================================
@@ -260,7 +260,9 @@ test('T6006', [ omit_ways(prof_ways + ['ghci']),
 test('T7037', js_skip, makefile_test, ['T7037'])
 
 test('T7087', exit_code(1), compile_and_run, [''])
-test('T7160', omit_ways(['nonmoving_thr', 'nonmoving_thr_ghc']), compile_and_run, [''])
+test('T7160', [ omit_ways(['nonmoving_thr', 'nonmoving_thr_ghc'])
+              , js_skip
+              ], compile_and_run, [''])
 
 test('T7040', [omit_ways(['ghci']), req_c], compile_and_run, ['T7040_c.c'])
 
@@ -331,7 +333,10 @@ test('T10017', [ when(opsys('mingw32'), skip)
 
 test('T11108', normal, compile_and_run, [''])
 
-test('GcStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
+test('GcStaticPointers', [ when(doing_ghci()
+                         , extra_hc_opts('-fobject-code'))
+                         , js_skip
+                         ],
      compile_and_run, [''])
 test('ListStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
      compile_and_run, [''])



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e357530881fd5ce893bd2589376ecf259a4b8cd0

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e357530881fd5ce893bd2589376ecf259a4b8cd0
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221021/ab510258/attachment-0001.html>