[Git][ghc/ghc][wip/js-staging] testsuite: skip remaining failing tests for JS

doyougnu (@doyougnu) gitlab at gitlab.haskell.org
Mon Oct 24 20:27:28 UTC 2022



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


Commits:
0645098b by doyougnu at 2022-10-24T16:26:40-04:00
testsuite: skip remaining failing tests for JS

- - - - -


12 changed files:

- testsuite/tests/codeGen/should_run/all.T
- testsuite/tests/concurrent/should_run/all.T
- testsuite/tests/dependent/should_compile/all.T
- testsuite/tests/ghc-api/all.T
- testsuite/tests/haddock/perf/all.T
- testsuite/tests/hsc2hs/all.T
- testsuite/tests/indexed-types/should_compile/all.T
- testsuite/tests/numeric/should_run/all.T
- testsuite/tests/rep-poly/all.T
- testsuite/tests/rts/all.T
- testsuite/tests/simplCore/should_compile/all.T
- testsuite/tests/typecheck/should_compile/all.T


Changes:

=====================================
testsuite/tests/codeGen/should_run/all.T
=====================================
@@ -183,7 +183,9 @@ test('T9577', [ unless(arch('x86_64') or arch('i386'),skip),
 test('T13425', normal, compile_and_run, ['-O'])
 test('castFloatWord', normal, compile_and_run, ['-dcmm-lint'])
 test('T13825-unit',
-     extra_run_opts('"' + config.libdir + '"'),
+     [ extra_run_opts('"' + config.libdir + '"')
+     , js_skip
+     ],
      compile_and_run,
      ['-package ghc'])
 test('T14619', normal, compile_and_run, [''])


=====================================
testsuite/tests/concurrent/should_run/all.T
=====================================
@@ -133,7 +133,9 @@ test('conc015',
   [ when(arch("js"), fragile(22261)) # delays are flaky with the JS backend when the system is overloaded
   ], compile_and_run, [''])
 test('conc015a', normal, compile_and_run, [''])
-test('conc016', omit_ways(concurrent_ways), # see comment in conc016.hs
+test('conc016', [omit_ways(concurrent_ways)  # see comment in conc016.hs
+                , js_skip
+                ],
                 compile_and_run, [''])
 test('conc017', normal, compile_and_run, [''])
 test('conc017a', normal, compile_and_run, [''])
@@ -163,7 +165,8 @@ test('conc033', normal, compile_and_run, [''])
 test('conc034', [
                  normal,
                  omit_ways(['ghci']),
-                 extra_run_opts('+RTS -C0 -RTS')],
+                 extra_run_opts('+RTS -C0 -RTS'),
+                 js_skip],
 		compile_and_run, [''])
 
 test('conc035', normal, compile_and_run, [''])


=====================================
testsuite/tests/dependent/should_compile/all.T
=====================================
@@ -1,6 +1,6 @@
 test('Dep1', only_ways(['normal']), compile, [''])
 test('Dep2', only_ways(['normal']), compile, [''])
-test('Dep3', only_ways(['normal']), compile, [''])
+test('Dep3', [only_ways(['normal']), js_skip], compile, [''])
 test('KindEqualities', only_ways(['normal']), compile, [''])
 test('KindEqualities2', [req_th,only_ways(['normal'])], compile, [''])
 test('Rae31', [req_th,only_ways(['normal'])], compile, [''])
@@ -49,7 +49,7 @@ test('T13938', [req_th, extra_files(['T13938a.hs'])], makefile_test, ['T13938'])
 test('T14556', normal, compile, [''])
 test('T14720', normal, compile, [''])
 test('T14066a', normal, compile, [''])
-test('T14749', normal, compile, [''])
+test('T14749', js_skip, compile, [''])
 test('T14845_compile', normal, compile, [''])
 test('T14991', normal, compile, [''])
 test('DkNameRes', normal, compile, [''])


=====================================
testsuite/tests/ghc-api/all.T
=====================================
@@ -17,7 +17,7 @@ test('T10942', [extra_run_opts('"' + config.libdir + '"'), js_skip],
 test('T9015', extra_run_opts('"' + config.libdir + '"'),
               compile_and_run,
               ['-package ghc'])
-test('T11579', extra_run_opts('"' + config.libdir + '"'), compile_and_run,
+test('T11579', [extra_run_opts('"' + config.libdir + '"'), js_skip], compile_and_run,
      ['-package ghc'])
 test('T12099', normal, compile_and_run, ['-package ghc'])
 test('T18181',


=====================================
testsuite/tests/haddock/perf/all.T
=====================================
@@ -1,2 +1,2 @@
-test('haddock_parser_perf', [extra_files(['Fold.hs'])], makefile_test, [])
-test('haddock_renamer_perf', [extra_files(['Fold.hs'])], makefile_test, [])
+test('haddock_parser_perf', [extra_files(['Fold.hs']), js_skip], makefile_test, [])
+test('haddock_renamer_perf', [extra_files(['Fold.hs']), js_skip], makefile_test, [])


=====================================
testsuite/tests/hsc2hs/all.T
=====================================
@@ -1,7 +1,7 @@
 
-test('hsc2hs001', [], makefile_test, [])
+test('hsc2hs001', js_skip, makefile_test, [])
 
-test('hsc2hs002', [], makefile_test, [])
+test('hsc2hs002', js_skip, makefile_test, [])
 
 test('hsc2hs003', js_skip, makefile_test, [])
 
@@ -24,4 +24,4 @@ test('T11004', js_skip, makefile_test, [])
 test('T12504', [extra_files(['T12504']), ignore_stdout, js_skip], makefile_test, [])
 
 # Make sure response files are read and used.
-test('T15758', [], makefile_test, [])
+test('T15758', js_skip, makefile_test, [])


=====================================
testsuite/tests/indexed-types/should_compile/all.T
=====================================
@@ -253,7 +253,7 @@ test('T12522b', normal, compile, [''])
 test('T12676', normal, compile, [''])
 test('T12526', normal, compile, [''])
 test('T12538', normal, compile_fail, [''])
-test('T13244', normal, compile, [''])
+test('T13244', js_skip, compile, [''])
 test('T13398a', normal, compile, [''])
 test('T13398b', normal, compile, [''])
 test('T13662', normal, compile, [''])


=====================================
testsuite/tests/numeric/should_run/all.T
=====================================
@@ -53,7 +53,7 @@ test('mul2', normal, compile_and_run, ['-fobject-code'])
 test('quotRem2', normal, compile_and_run, ['-fobject-code'])
 test('T5863', normal, compile_and_run, [''])
 
-test('T7014', [], makefile_test, [])
+test('T7014', js_skip, makefile_test, [])
 
 test('T7233', normal, compile_and_run, [''])
 test('NumDecimals', normal, compile_and_run, [''])


=====================================
testsuite/tests/rep-poly/all.T
=====================================
@@ -95,7 +95,7 @@ test('UnliftedNewtypesLevityBinder', normal, compile_fail, [''])
 ##                                                                           ##
 ## These tests work!                                                         ##
                                                                              ##
-test('T13105', normal, compile, [''])                                        ##
+test('T13105', js_skip, compile, [''])                                       ##
 test('T17536b', normal, compile, [''])                                       ##
                                                                              ##
 ## These don't!                                                              ##


=====================================
testsuite/tests/rts/all.T
=====================================
@@ -165,7 +165,7 @@ test('rtsflags001', [ only_ways(['normal']),
                      compile_and_run, [''])
 
 # Crashed with 7.2 and earlier
-test('rtsflags002', [ only_ways(['normal']) ], compile_and_run, ['-with-rtsopts="-B -B -B"'])
+test('rtsflags002', [ only_ways(['normal']), js_skip ], compile_and_run, ['-with-rtsopts="-B -B -B"'])
 
 # omit dyn and profiling ways, because we don't build dyn_l or p_l
 # variants of the RTS by default
@@ -221,7 +221,8 @@ test('T4059', req_c, makefile_test, ['T4059'])
 test('exec_signals',
      [when(opsys('mingw32'), skip),
       pre_cmd('$MAKE -s --no-print-directory exec_signals-prep'),
-      cmd_prefix('./exec_signals_prepare')],
+      cmd_prefix('./exec_signals_prepare'),
+      js_skip],
      compile_and_run, [''])
 
 test('return_mem_to_os', normal, compile_and_run, [''])
@@ -420,7 +421,8 @@ test('T13617', [ unless(opsys('mingw32'), skip)],
 test('T12903', [ when(opsys('mingw32'), skip)
                , when(opsys('darwin'), skip)
                , when(arch('i386'), fragile(20377))
-               , omit_ways(['ghci', 'profasm'])]
+               , omit_ways(['ghci', 'profasm'])
+               , js_skip]
                , compile_and_run, [''])
 
 test('T13832', exit_code(1), compile_and_run, ['-threaded'])


=====================================
testsuite/tests/simplCore/should_compile/all.T
=====================================
@@ -177,7 +177,7 @@ test('T5996',
      normal,
      makefile_test, ['T5996'])
 test('T8537', normal, compile, [''])
-test('T8832', normal, makefile_test, ['T8832'])
+test('T8832', js_skip, makefile_test, ['T8832'])
 test('T8848', normal, makefile_test, ['T8848'])
 test('T8848a', only_ways(['optasm']), compile, ['-ddump-rules'])
 test('T8331', only_ways(['optasm']), compile, ['-ddump-rules'])
@@ -238,7 +238,7 @@ test('T13170', only_ways(['optasm']), compile, ['-dcore-lint'])
 test('T13317',
      normal,
      makefile_test, ['T13317'])
-test('T13340', normal, makefile_test, ['T13340'])
+test('T13340', js_skip, makefile_test, ['T13340'])
 test('T13338', only_ways(['optasm']), compile, ['-dcore-lint'])
 test('T13367', normal, makefile_test, ['T13367'])
 test('T13417', normal, compile, ['-O'])


=====================================
testsuite/tests/typecheck/should_compile/all.T
=====================================
@@ -586,7 +586,7 @@ test('T13651a', normal, compile, [''])
 test('T13680', normal, compile, [''])
 test('T13785', normal, compile, [''])
 test('T13804', normal, compile, [''])
-test('T13822', normal, compile, [''])
+test('T13822', js_skip, compile, [''])
 test('T13848', normal, compile, [''])
 test('T13871', normal, compile, [''])
 test('T13879', normal, compile, [''])



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0645098b4ffd689dc6df82fde93838d2f3c8ac62
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/20221024/f33c155b/attachment-0001.html>


More information about the ghc-commits mailing list