[Git][ghc/ghc][wip/js-staging] Disable more tests

[Sylvain Henry (@hsyl20)]

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


Commits:
f7d84d1c by Sylvain Henry at 2022-10-17T17:34:40+02:00
Disable more tests

- - - - -


5 changed files:

- testsuite/tests/hpc/all.T
- testsuite/tests/hsc2hs/all.T
- testsuite/tests/numeric/should_run/all.T
- testsuite/tests/profiling/should_run/all.T
- testsuite/tests/rts/all.T


Changes:

=====================================
testsuite/tests/hpc/all.T
=====================================
@@ -1,3 +1,5 @@
+setTestOpts(js_skip) # JS backend doesn't support HPC yet
+
 test('T10138', [extra_files(['.keepme.hpc.T10138/']),
                 ignore_stdout], run_command,
      # Using --hpcdir with an absolute path should work (exit code 0).


=====================================
testsuite/tests/hsc2hs/all.T
=====================================
@@ -12,8 +12,12 @@ test('T3837', [], makefile_test, [])
 
 # These are broken on CI (and potentially elsewhere) since we
 # are building ARMv7 # binaries on an AArch64 machine.
-test('T4340', when(arch('arm'), expect_broken(17556)), makefile_test, [])
-test('T10272', when(arch('arm'), expect_broken(17556)), makefile_test, [])
+test('T4340', [ when(arch('arm'), expect_broken(17556))
+              , js_broken(17556)
+              ], makefile_test, [])
+test('T10272', [ when(arch('arm'), expect_broken(17556))
+               , js_broken(17556)
+               ], makefile_test, [])
 
 test('T11004', [], makefile_test, [])
 


=====================================
testsuite/tests/numeric/should_run/all.T
=====================================
@@ -63,7 +63,7 @@ test('T9407', normal, compile_and_run, [''])
 test('T9810', normal, compile_and_run, [''])
 test('T10011', normal, compile_and_run, [''])
 test('T10962', omit_ways(['ghci']), compile_and_run, ['-O2'])
-test('T11702', extra_ways(['optasm']), compile_and_run, [''])
+test('T11702', [unless(arch("js"),extra_ways(['optasm']))], compile_and_run, [''])
 test('T12136', normal, compile_and_run, [''])
 test('T15301', normal, compile_and_run, ['-O2'])
 test('T497', normal, compile_and_run, ['-O'])


=====================================
testsuite/tests/profiling/should_run/all.T
=====================================
@@ -1,3 +1,5 @@
+setTestOpts(js_skip) # JS backend doesn't support profiling yet
+
 # Test for #1227, #1418
 
 test('heapprof002',


=====================================
testsuite/tests/rts/all.T
=====================================
@@ -164,7 +164,9 @@ test('rtsflags002', [ only_ways(['normal']) ], compile_and_run, ['-with-rtsopts=
 # omit dyn and profiling ways, because we don't build dyn_l or p_l
 # variants of the RTS by default
 test('traceEvent', [ omit_ways(['dyn', 'ghci'] + prof_ways),
-                     extra_run_opts('+RTS -ls -RTS') ],
+                     extra_run_opts('+RTS -ls -RTS'),
+                     js_skip # JS backend has no payload size limit
+                   ],
                    compile_and_run, [''])
 
 test('traceBinaryEvent', [ omit_ways(['dyn', 'ghci'] + prof_ways),
@@ -359,7 +361,10 @@ test('T9839_05',
 # ignore_stderr as RTS reports slightly different error messages
 # in 'epoll' and 'select' backends on reading from EBADF
 # mingw32 skip as UNIX pipe and close(fd) is used to exercise the problem
-test('T10590', [ignore_stderr, when(opsys('mingw32'), skip)], compile_and_run, [''])
+test('T10590', [ ignore_stderr
+               , when(opsys('mingw32'), skip)
+               , js_skip # JS backend doesn't support pipes
+               ], compile_and_run, [''])
 
 # 20000 was easily enough to trigger the bug with 7.10
 test('T10904', [ omit_ways(['ghci']), extra_run_opts('20000'), js_skip_csources ],
@@ -370,7 +375,7 @@ test('T10728', [extra_run_opts('+RTS -maxN3 -RTS'), only_ways(['threaded2'])],
 
 test('T9405', [when(opsys('mingw32'), expect_broken(21361))], makefile_test, ['T9405'])
 
-test('T11788', when(ghc_dynamic(), skip),
+test('T11788', [req_interp, when(ghc_dynamic(), skip)],
               makefile_test, ['T11788'])
 
 test('T10296a', [req_smp], makefile_test, ['T10296a'])



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/f7d84d1cd6648de9986a7a3326774d4dc7d5fa7c
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/20221017/3a2616d4/attachment-0001.html>