[Git][ghc/ghc][wip/js-staging] testsuite: mark tests js_skip -> js_broken(22374)

doyougnu (@doyougnu) gitlab at gitlab.haskell.org
Thu Oct 27 19:07:22 UTC 2022



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


Commits:
26983561 by doyougnu at 2022-10-27T15:05:38-04:00
testsuite: mark tests js_skip -> js_broken(22374)

Specifically:

hGetBuf001
T12852
T12903
rdynamic
T2615
T4012
T15427
T18642
T19381
T19481
T3474
stack004
encoding004
ThreadDelay001
TargetContents
openFile003
T13525

Tracking Ticket: https://gitlab.haskell.org/ghc/ghc/-/issues/22374

- - - - -


7 changed files:

- libraries/base/tests/Concurrent/all.T
- libraries/base/tests/IO/all.T
- libraries/base/tests/all.T
- testsuite/tests/ffi/should_run/all.T
- testsuite/tests/ghc-api/target-contents/all.T
- testsuite/tests/rts/all.T
- testsuite/tests/rts/linker/all.T


Changes:

=====================================
libraries/base/tests/Concurrent/all.T
=====================================
@@ -1,3 +1,3 @@
 test('Chan002',      extra_run_opts('100'), compile_and_run, [''])
 test('Chan003',      extra_run_opts('200'), compile_and_run, [''])
-test('ThreadDelay001', js_skip, compile_and_run, [''])
+test('ThreadDelay001', js_broken(22374), compile_and_run, [''])


=====================================
libraries/base/tests/IO/all.T
=====================================
@@ -64,7 +64,7 @@ test('misc001', [extra_run_opts('misc001.hs misc001.out')], compile_and_run,
 
 test('openFile001',  normal, compile_and_run, [''])
 test('openFile002',  [exit_code(1), normalise_win32_io_errors], compile_and_run, [''])
-test('openFile003', [normalise_win32_io_errors, js_skip], compile_and_run, [''])
+test('openFile003', [normalise_win32_io_errors, js_broken(22374)], compile_and_run, [''])
 test('openFile004', [], compile_and_run, [''])
 test('openFile005', js_skip, compile_and_run, [''])
 test('openFile006', [], compile_and_run, [''])
@@ -85,7 +85,7 @@ test('readwrite003', [], compile_and_run, [''])
 test('hGetBuf001',
      [ when(fast(), skip)
      , expect_fail_if_windows
-     , js_skip
+     , js_broken(22374)
      ],
      compile_and_run, ['-package unix'])
 
@@ -119,7 +119,7 @@ test('encoding001', [], compile_and_run, [''])
 
 test('encoding002', normal, compile_and_run, [''])
 test('encoding003', normal, compile_and_run, [''])
-test('encoding004', [extra_files(['encoded-data/']), js_skip], compile_and_run, [''])
+test('encoding004', [extra_files(['encoded-data/']), js_broken(22374)], compile_and_run, [''])
 test('encoding005', normal, compile_and_run, [''])
 
 test('environment001', [], makefile_test, ['environment001-test'])


=====================================
libraries/base/tests/all.T
=====================================
@@ -238,7 +238,7 @@ test('T10149', normal, compile_and_run, [''])
 test('T11334a', normal, compile_and_run, [''])
 test('T11555', normal, compile_and_run, [''])
 test('T12494', normal, compile_and_run, [''])
-test('T12852', [when(opsys('mingw32'), skip), js_skip], compile_and_run, [''])
+test('T12852', [when(opsys('mingw32'), skip), js_broken(22374)], compile_and_run, [''])
 test('lazySTexamples', normal, compile_and_run, [''])
 test('T11760', [req_smp, js_broken(22261)], compile_and_run, ['-threaded -with-rtsopts=-N2'])
 test('T12874', normal, compile_and_run, [''])
@@ -249,12 +249,12 @@ test('T13191',
         ],
       compile_and_run,
       ['-O'])
-test('T13525', [when(opsys('mingw32'), skip), js_skip], compile_and_run, [''])
+test('T13525', [when(opsys('mingw32'), skip), js_broken(22374)], compile_and_run, [''])
 test('T13097', normal, compile_and_run, [''])
 test('functorOperators', normal, compile_and_run, [''])
 test('T3474',
      [collect_stats('max_bytes_used',5),
-      js_skip,
+      js_broken(22374),
       only_ways(['normal'])],
      compile_and_run, ['-O'])
 test('T14425', normal, compile_and_run, [''])
@@ -281,7 +281,7 @@ test('T18642',
      [extra_run_opts('+RTS -T -RTS'),
       # The nonmoving GC's residency behavior is very conservative
       omit_ways(['nonmoving', 'nonmoving_thr', 'nonmoving_thr_sanity']),
-      js_skip],
+      js_broken(22374)],
      compile_and_run, ['-O2'])
 test('T19288', exit_code(1), compile_and_run, [''])
 test('T19719', normal, compile_and_run, [''])


=====================================
testsuite/tests/ffi/should_run/all.T
=====================================
@@ -183,7 +183,7 @@ test('T7170',
       exit_code(1)],
      compile_and_run, [''])
 
-test('T4012', [expect_broken_for(7388, ['ghci']), js_skip], multimod_compile_and_run,
+test('T4012', [expect_broken_for(7388, ['ghci']), js_broken(22374)], multimod_compile_and_run,
      ['T4012', ''])
 
 test('T8083', [omit_ways(['ghci']), req_c], compile_and_run, ['T8083_c.c'])


=====================================
testsuite/tests/ghc-api/target-contents/all.T
=====================================
@@ -1,6 +1,6 @@
 test('TargetContents',
      [ extra_run_opts('"' + config.libdir + '"')
-     , js_skip
+     , js_broken(22374)
      ]
      , compile_and_run,
      ['-package ghc -package exceptions'])


=====================================
testsuite/tests/rts/all.T
=====================================
@@ -141,7 +141,7 @@ test('stack003', [ omit_ways(['ghci']), # uses unboxed tuples
 
 # Test that +RTS -K0 (e.g. no stack limit) parses correctly
 test('stack004', [ extra_run_opts('+RTS -K0 -RTS')
-                 , js_skip
+                 , js_broken(22374)
                  , expect_broken_for(14913, ['ghci'])
                  ], compile_and_run, [''])
 
@@ -423,7 +423,7 @@ test('T12903', [ when(opsys('mingw32'), skip)
                , when(opsys('darwin'), skip)
                , when(arch('i386'), fragile(20377))
                , omit_ways(['ghci', 'profasm'])
-               , js_skip]
+               , js_broken(22374)]
                , compile_and_run, [''])
 
 test('T13832', exit_code(1), compile_and_run, ['-threaded'])
@@ -513,17 +513,17 @@ test('T17088',
      [only_ways(['normal']), extra_run_opts('+RTS -c -A256k -RTS')],
      compile_and_run, ['-rtsopts -O2'])
 
-test('T15427', js_skip, compile_and_run, [''])
+test('T15427', js_broken(22374), compile_and_run, [''])
 
 test('T19481',
      [extra_run_opts('+RTS -T -RTS'),
-      js_skip,
+      js_broken(22374),
       # memory behavior changes appreciably with the nonmoving collector
       omit_ways(['nonmoving', 'nonmoving_thr', 'nonmoving_thr_sanity'])],
      compile_and_run, [''])
 test('T19381',
      [extra_run_opts('+RTS -T -RTS'),
-      js_skip,
+      js_broken(22374),
       # memory behavior changes appreciably with the nonmoving collector
       omit_ways(['nonmoving', 'nonmoving_thr', 'nonmoving_thr_sanity'])],
      compile_and_run, [''])


=====================================
testsuite/tests/rts/linker/all.T
=====================================
@@ -20,7 +20,7 @@ test('section_alignment',
 # Test to see if linker scripts link properly to real ELF files
 test('T2615',
      [extra_files(['libfoo_T2615.c', 'libfoo_script_T2615.so']),
-       js_skip,
+       js_broken(22374),
        when(opsys('mingw32'), skip),
        # OS X doesn't seem to support linker scripts
        when(opsys('darwin'), skip),
@@ -115,7 +115,7 @@ test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
                  # this needs runtime infrastructure to do in ghci:
                  #  '-rdynamic' ghc, load modules only via dlopen(RTLD_BLOBAL) and more.
                  , omit_ways(['ghci'])
-                 , js_skip
+                 , js_broken(22374)
                  ],
      compile_and_run, ['-rdynamic -package ghc'])
 



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/26983561b047d31e55c56acd4f804fefcfb5ef82
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/20221027/507dc0f8/attachment-0001.html>


More information about the ghc-commits mailing list