[Git][ghc/ghc][wip/js-staging] Disable runInteractiveProcess tests for ghcjs

[Josh Meredith (@JoshMeredith)]

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


Commits:
39001d3d by Josh Meredith at 2022-10-18T07:27:03+00:00
Disable runInteractiveProcess tests for ghcjs

- - - - -


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
=====================================
@@ -66,7 +66,7 @@ test('openFile004', [], compile_and_run, [''])
 test('openFile005', [], compile_and_run, [''])
 test('openFile006', [], compile_and_run, [''])
 test('openFile007', [], compile_and_run, [''])
-test('openFile008', cmd_prefix('ulimit -n 1024; '), compile_and_run, [''])
+test('openFile008', [when(platform('js-unknown-ghcjs'), skip), 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(opsys("mingw32"), skip), \
+test('system001', [when(platform('js-unknown-ghcjs'), skip), when(opsys("mingw32"), skip)], \
 	compile_and_run, [''])
 test('Timeout001', normal, 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', normalise_fun(normalise_quotes), compile_and_run, [''])
+test('T4006', [when(platform('js-unknown-ghcjs'), skip), normalise_fun(normalise_quotes)], compile_and_run, [''])
 
 test('T5943', normal, compile_and_run, [''])
 test('T5962', normal, compile_and_run, [''])
@@ -221,7 +221,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', [expect_broken_for(16535, threaded_ways), omit_ways(['ghci'])], 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('T9826',normal, compile_and_run,[''])
 test('T9848',
         [ collect_stats('bytes allocated')



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/39001d3dbbd0e27d5e2daa534efda5ac79627dfd
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/20221018/d2db8e84/attachment-0001.html>