[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:
74d6335e by Sylvain Henry at 2022-10-18T02:05:32+02:00
Disable more tests

- - - - -


2 changed files:

- testsuite/tests/package/T20010/all.T
- testsuite/tests/rts/all.T


Changes:

=====================================
testsuite/tests/package/T20010/all.T
=====================================
@@ -1,4 +1,4 @@
 # Test that GHC links to the C++ standard library as expected
 # when the system-cxx-std-lib package is used.
-test('T20010', normal, makefile_test, [])
-test('T20010-ghci', extra_files(['T20010_c.cpp', 'T20010.hs']), makefile_test, [])
+test('T20010', c_src, makefile_test, [])
+test('T20010-ghci', [c_src, extra_files(['T20010_c.cpp', 'T20010.hs'])], makefile_test, [])


=====================================
testsuite/tests/rts/all.T
=====================================
@@ -170,7 +170,9 @@ test('traceEvent', [ omit_ways(['dyn', 'ghci'] + prof_ways),
                    compile_and_run, [''])
 
 test('traceBinaryEvent', [ omit_ways(['dyn', 'ghci'] + prof_ways),
-                           extra_run_opts('+RTS -ls -RTS') ],
+                           extra_run_opts('+RTS -ls -RTS'),
+                           js_skip # traceBinaryEvent not supported
+                           ],
                          compile_and_run, [''])
 
 # Test that -ol flag works as expected
@@ -203,7 +205,7 @@ test('EventlogOutput_IPE',
 def noCapabilityOutputFilter(s):
      return re.sub(r'[a-f0-9]+: IPE:', 'IPE:', s)
 
-test('T4059', [], makefile_test, ['T4059'])
+test('T4059', c_src, makefile_test, ['T4059'])
 
 # Test for #4274
 test('exec_signals',
@@ -214,7 +216,10 @@ test('exec_signals',
 
 test('return_mem_to_os', normal, compile_and_run, [''])
 
-test('T4850', when(opsys('mingw32'), expect_broken(4850)), makefile_test, ['T4850'])
+test('T4850',
+  [ when(opsys('mingw32'), expect_broken(4850))
+  , js_broken(22261) # FFI "dynamic" convention unsupported
+  ], makefile_test, ['T4850'])
 
 def config_T5250(name, opts):
     if not (config.arch in ['i386','x86_64']):
@@ -419,7 +424,9 @@ test('T14900',
   [ js_skip # Compact regions not supported by the JS backend yet
   ], compile_and_run, ['-package ghc-compact'])
 
-test('InternalCounters', normal, makefile_test, ['InternalCounters'])
+test('InternalCounters',
+  [ js_skip # JS backend doesn't support internal counters
+  ], makefile_test, ['InternalCounters'])
 test('alloccounter1', normal, compile_and_run,
   [
     # avoid allocating stack chunks, which counts as
@@ -473,7 +480,10 @@ test('T13676',
       extra_files(['T13676.hs'])],
      ghci_script, ['T13676.script'])
 test('InitEventLogging',
-     [only_ways(['normal']), extra_run_opts('+RTS -RTS')],
+     [ only_ways(['normal'])
+     , extra_run_opts('+RTS -RTS')
+     , c_src
+     ],
      compile_and_run, ['InitEventLogging_c.c'])
 test('RestartEventLogging',
      [only_ways(['threaded1','threaded2']), extra_run_opts('+RTS -la -RTS')],
@@ -498,10 +508,13 @@ test('T19381',
 test('T20199', [ grep_errmsg('Hello') ]
       , makefile_test, [])
 
-test('cloneMyStack', [extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c'])
-test('cloneMyStack2', ignore_stdout, compile_and_run, [''])
-test('cloneMyStack_retBigStackFrame', [extra_files(['cloneStackLib.c']), ignore_stdout], compile_and_run, ['cloneStackLib.c'])
-test('cloneThreadStack', [only_ways(['threaded1']), extra_ways(['threaded1']), extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c -threaded'])
+test('cloneMyStack', [c_src,extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c'])
+test('cloneMyStack2',
+  [ ignore_stdout
+  , js_broken(22261) # cloneMyStack# not yet implemented
+  ], compile_and_run, [''])
+test('cloneMyStack_retBigStackFrame', [c_src,extra_files(['cloneStackLib.c']), ignore_stdout], compile_and_run, ['cloneStackLib.c'])
+test('cloneThreadStack', [c_src,only_ways(['threaded1']), extra_ways(['threaded1']), extra_files(['cloneStackLib.c'])], compile_and_run, ['cloneStackLib.c -threaded'])
 test('decodeMyStack', normal, compile_and_run, ['-finfo-table-map'])
 # Options:
 #   - `-kc8K`: Set stack chunk size to it's minimum to provoke underflow stack frames.



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/74d6335e73184cd29abcbab83027c6d96bb68a98
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/d91d9663/attachment-0001.html>