[Git][ghc/ghc][wip/js-staging] Use js_broken(22349) for releavant base tests

[Josh Meredith (@JoshMeredith)]

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


Commits:
9ccb256e by Josh Meredith at 2022-10-26T07:37:51+00:00
Use js_broken(22349) for releavant base tests

- - - - -


3 changed files:

- libraries/base/tests/IO/all.T
- libraries/base/tests/System/all.T
- libraries/base/tests/all.T


Changes:

=====================================
libraries/base/tests/IO/all.T
=====================================
@@ -69,7 +69,7 @@ test('openFile004', [], compile_and_run, [''])
 test('openFile005', js_skip, compile_and_run, [''])
 test('openFile006', [], compile_and_run, [''])
 test('openFile007', js_skip, compile_and_run, [''])
-test('openFile008', [when(platform('js-unknown-ghcjs'), skip), cmd_prefix('ulimit -n 1024; ')], compile_and_run, [''])
+test('openFile008', [js_broken(22349), cmd_prefix('ulimit -n 1024; ')], compile_and_run, [''])
 test('openFile009', [], compile_and_run, [''])
 
 test('putStr001',    normal, compile_and_run, [''])


=====================================
libraries/base/tests/System/all.T
=====================================
@@ -4,7 +4,7 @@ test('getArgs001',  normal, compile_and_run, [''])
 test('getEnv001',   normal, compile_and_run, [''])
 test('T5930',   normal, compile_and_run, [''])
 
-test('system001', [when(platform('js-unknown-ghcjs'), skip), when(opsys("mingw32"), skip)], \
+test('system001', [js_broken(22349), when(opsys("mingw32"), skip)], \
 	compile_and_run, [''])
 test('Timeout001', js_skip, compile_and_run, [''])
 test('T16466', normal, compile_and_run, [''])


=====================================
libraries/base/tests/all.T
=====================================
@@ -156,7 +156,7 @@ test('T2528', normal, compile_and_run, [''])
 # May 2014: seems to work on msys2
 # May 2018: The behavior of printf seems very implementation dependent.
 #     so let's normalise the output.
-test('T4006', [when(platform('js-unknown-ghcjs'), skip), normalise_fun(normalise_quotes)], compile_and_run, [''])
+test('T4006', [js_broken(22349), normalise_fun(normalise_quotes)], compile_and_run, [''])
 
 test('T5943', normal, compile_and_run, [''])
 test('T5962', normal, compile_and_run, [''])
@@ -225,7 +225,7 @@ test('T8089',
      [exit_code(99), run_timeout_multiplier(0.01)],
      compile_and_run, [''])
 test('T8684', expect_broken(8684), compile_and_run, [''])
-test('hWaitForInput-accurate-stdin', [when(platform('js-unknown-ghcjs'), skip), expect_broken_for(16535, threaded_ways), omit_ways(['ghci'])], compile_and_run, [''])
+test('hWaitForInput-accurate-stdin', [js_broken(22349), expect_broken_for(16535, threaded_ways), omit_ways(['ghci'])], compile_and_run, [''])
 test('T9826',normal, compile_and_run,[''])
 test('T9848',
         [ collect_stats('bytes allocated')



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9ccb256e7f600a41b2cb44769d491b4647fd4d9f
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/20221026/bd8656e3/attachment-0001.html>