[Git][ghc/ghc][wip/js-staging] Upgrade miscellaneous tests from js_skip to js_broken(22261)
Josh Meredith (@JoshMeredith)
gitlab at gitlab.haskell.org
Thu Oct 27 16:10:42 UTC 2022
Josh Meredith pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC
Commits:
71162e41 by Josh Meredith at 2022-10-27T16:10:23+00:00
Upgrade miscellaneous tests from js_skip to js_broken(22261)
- - - - -
20 changed files:
- libraries/base/tests/IO/T21336/all.T
- libraries/base/tests/IO/all.T
- libraries/base/tests/all.T
- testsuite/tests/callarity/perf/all.T
- testsuite/tests/codeGen/should_run/all.T
- testsuite/tests/driver/MergeObjsMode/all.T
- testsuite/tests/driver/T13914/all.T
- testsuite/tests/driver/T14075/all.T
- testsuite/tests/driver/T20030/test1/all.T
- testsuite/tests/driver/all.T
- testsuite/tests/driver/recomp011/all.T
- testsuite/tests/ffi/should_run/all.T
- testsuite/tests/lib/base/all.T
- testsuite/tests/perf/compiler/all.T
- testsuite/tests/rename/prog006/all.T
- testsuite/tests/rts/all.T
- testsuite/tests/rts/flags/T17720/all.T
- testsuite/tests/simplCore/should_compile/all.T
- testsuite/tests/typecheck/should_fail/all.T
- testsuite/tests/unboxedsums/module/all.T
Changes:
=====================================
libraries/base/tests/IO/T21336/all.T
=====================================
@@ -1,6 +1,6 @@
# N.B. /dev/full exists on Darwin but cannot be opened, failing with -EPERM
test('T21336a',
- [unless(opsys('linux') or opsys('freebsd'), skip), js_skip],
+ [unless(opsys('linux') or opsys('freebsd'), skip), js_broken(22261)],
compile_and_run, [''])
test('T21336b',
[unless(opsys('linux') or opsys('freebsd'), skip), req_js_compactor],
=====================================
libraries/base/tests/IO/all.T
=====================================
@@ -10,9 +10,9 @@ test('IOError001', [omit_ways(['ghci']), set_stdin('IOError001.hs')],
test('IOError002', normal, compile_and_run, [''])
test('finalization001', normal, compile_and_run, [''])
test('hClose001', [], compile_and_run, [''])
-test('hClose002', [normalise_win32_io_errors, js_skip], compile_and_run, [''])
+test('hClose002', [normalise_win32_io_errors, js_broken(22261)], compile_and_run, [''])
test('hFileSize001', normal, compile_and_run, [''])
-test('hFileSize002', [omit_ways(['ghci']), js_skip], compile_and_run, [''])
+test('hFileSize002', [omit_ways(['ghci']), js_broken(22261)], compile_and_run, [''])
test('hFlush001', [], compile_and_run, [''])
test('hGetBuffering001',
@@ -48,7 +48,7 @@ test('hSetBuffering002', set_stdin('hSetBuffering002.hs'), compile_and_run, ['']
test('hSetBuffering003',
[ omit_ways(['ghci'])
, set_stdin('hSetBuffering003.hs')
- , js_skip
+ , js_broken(22261)
],
compile_and_run, [''])
=====================================
libraries/base/tests/all.T
=====================================
@@ -200,7 +200,7 @@ test('topHandler04',
test('T8766',
[ collect_stats('bytes allocated',5)
, only_ways(['normal'])
- , js_skip
+ , js_broken(22261)
],
compile_and_run,
['-O'])
@@ -230,7 +230,7 @@ test('T9826',normal, compile_and_run,[''])
test('T9848',
[ collect_stats('bytes allocated')
, only_ways(['normal'])
- , js_skip
+ , js_broken(22261)
],
compile_and_run,
['-O'])
@@ -240,12 +240,12 @@ test('T11555', normal, compile_and_run, [''])
test('T12494', normal, compile_and_run, [''])
test('T12852', [when(opsys('mingw32'), skip), js_skip], compile_and_run, [''])
test('lazySTexamples', normal, compile_and_run, [''])
-test('T11760', [req_smp, js_skip], compile_and_run, ['-threaded -with-rtsopts=-N2'])
+test('T11760', [req_smp, js_broken(22261)], compile_and_run, ['-threaded -with-rtsopts=-N2'])
test('T12874', normal, compile_and_run, [''])
test('T13191',
[ collect_stats('bytes allocated', 5)
, only_ways(['normal'])
- , js_skip
+ , js_broken(22261)
],
compile_and_run,
['-O'])
@@ -266,7 +266,7 @@ test('T13167',
[ when(opsys('mingw32')
, only_ways(['winio', 'winio_threaded']))
, fragile_for(16536, concurrent_ways)
- , js_skip
+ , js_broken(22261)
],
compile_and_run, [''])
test('T15183', normal, compile_and_run, [''])
@@ -274,7 +274,7 @@ test('T15349', [exit_code(1), expect_broken_for(15349, ['ghci'])], compile_and_r
test('T16111', exit_code(1), compile_and_run, [''])
test('T16943a', normal, compile_and_run, [''])
test('T16943b', normal, compile_and_run, [''])
-test('T17499', [collect_stats('bytes allocated',5), js_skip], compile_and_run, ['-O -w'])
+test('T17499', [collect_stats('bytes allocated',5), js_broken(22261)], compile_and_run, ['-O -w'])
test('T16643', normal, compile_and_run, [''])
test('clamp', normal, compile_and_run, [''])
test('T18642',
=====================================
testsuite/tests/callarity/perf/all.T
=====================================
@@ -1,7 +1,7 @@
test('T3924',
[collect_stats('bytes allocated',8)
, only_ways(['normal'])
- , js_skip
+ , js_broken(22261)
],
compile_and_run,
['-O'])
=====================================
testsuite/tests/codeGen/should_run/all.T
=====================================
@@ -156,7 +156,7 @@ test('T10246', normal, compile_and_run, [''])
test('T9533', normal, compile_and_run, [''])
test('T9533b', normal, compile_and_run, [''])
test('T9533c', normal, compile_and_run, [''])
-test('T10414', [only_ways(['threaded2']), extra_ways(['threaded2']), req_smp, js_skip],
+test('T10414', [only_ways(['threaded2']), extra_ways(['threaded2']), req_smp, js_broken(22261)],
compile_and_run, ['-feager-blackholing'])
test('T10521', normal, compile_and_run, [''])
test('T10521b', normal, compile_and_run, [''])
=====================================
testsuite/tests/driver/MergeObjsMode/all.T
=====================================
@@ -1,6 +1,6 @@
test('MergeObjsMode',
[ extra_files(['A.hs', 'B.hs', 'Main.hs'])
- , js_skip
+ , js_broken(22261)
],
makefile_test,
[])
=====================================
testsuite/tests/driver/T13914/all.T
=====================================
@@ -1,5 +1,5 @@
test('T13914',
[ extra_files(['main.hs'])
- , js_skip
+ , js_broken(22261)
],
makefile_test, ['t13914'])
=====================================
testsuite/tests/driver/T14075/all.T
=====================================
@@ -1,6 +1,6 @@
test('T14075',
[ extra_files(['F.hs', 'F.hs-boot', 'O.hs', 'V.hs', 'V.hs-boot'])
, req_smp # uses ghc --make -j2
- , js_skip
+ , js_broken(22261)
],
makefile_test, [])
=====================================
testsuite/tests/driver/T20030/test1/all.T
=====================================
@@ -10,6 +10,6 @@ test('T20030_test1j',
, 'D.hs' , 'E.hs-boot' , 'E.hs' , 'F.hs' , 'G.hs' , 'H.hs'
, 'I.hs', 'J.hs-boot', 'J.hs', 'K.hs' ])
, req_smp
- , js_skip
+ , js_broken(22261)
],
multimod_compile, ['I.hs K.hs', '-v1 -j'])
=====================================
testsuite/tests/driver/all.T
=====================================
@@ -282,7 +282,7 @@ test('inline-check', omit_ways(['hpc', 'profasm'])
, compile
, ['-dinline-check foo -O -ddebug-output'])
-test('T14452', js_skip, makefile_test, [])
+test('T14452', js_broken(22261), makefile_test, [])
test('T14923', normal, makefile_test, [])
test('T15396', normal, compile_and_run, ['-package ghc'])
test('T16737',
@@ -297,7 +297,7 @@ test('T18369', normal, compile, ['-O'])
test('T21682', normal, compile_fail, ['-Werror=unrecognised-warning-flags -Wfoo'])
test('FullGHCVersion', normal, compile_and_run, ['-package ghc-boot'])
test('OneShotTH', req_th, makefile_test, [])
-test('T17481', js_skip, makefile_test, [])
+test('T17481', js_broken(22261), makefile_test, [])
test('T20084', normal, makefile_test, [])
test('RunMode', [req_interp, extra_files(['RunMode/Test.hs'])], run_command, ['{compiler} --run -iRunMode/ -ignore-dot-ghci RunMode.hs -- hello'])
test('T20439', normal, run_command,
@@ -315,6 +315,6 @@ test('T16476b', normal, makefile_test, [])
test('T20569', extra_files(["T20569/"]), makefile_test, [])
test('T21866', normal, multimod_compile, ['T21866','-no-link'])
test('T21349', extra_files(['T21349']), makefile_test, [])
-test('T21869', [js_skip, when(unregisterised(), skip)], makefile_test, [])
+test('T21869', [js_broken(22261), when(unregisterised(), skip)], makefile_test, [])
test('T22044', normal, makefile_test, [])
test('T22048', [only_ways(['normal']), grep_errmsg("_rule")], compile, ["-O -fomit-interface-pragmas -ddump-simpl"])
=====================================
testsuite/tests/driver/recomp011/all.T
=====================================
@@ -3,6 +3,6 @@
test('recomp011',
[ extra_files(['Main.hs'])
, when(arch('powerpc64'), expect_broken(11260))
- , js_skip
+ , js_broken(22261)
],
makefile_test, [])
=====================================
testsuite/tests/ffi/should_run/all.T
=====================================
@@ -120,7 +120,7 @@ test('T2469', js_skip, compile_and_run, ['-optc-std=gnu99'])
test('T2594', [omit_ways(['ghci']), req_c], compile_and_run, ['T2594_c.c'])
-test('fptr01', [omit_ways(['ghci']), js_skip], compile_and_run,
+test('fptr01', [omit_ways(['ghci']), js_broken(22261)], compile_and_run,
[ 'fptr01_js.js' if arch("js") else 'fptr01_c.c'])
test('fptr02', normal, compile_and_run, [''])
=====================================
testsuite/tests/lib/base/all.T
=====================================
@@ -1,10 +1,10 @@
test('DataTypeOrd', normal, compile_and_run, [''])
test('T16586', normal, compile_and_run, ['-O2'])
# Event-manager not supported on Windows
-test('T16916', [when(opsys('mingw32'), skip), js_skip], compile_and_run, ['-O2 -threaded -with-rtsopts="-I0" -rtsopts'])
+test('T16916', [when(opsys('mingw32'), skip), js_broken(22261)], compile_and_run, ['-O2 -threaded -with-rtsopts="-I0" -rtsopts'])
test('T17310', normal, compile, [''])
test('T19691', normal, compile, [''])
-test('executablePath', [extra_run_opts(config.os), js_skip], compile_and_run, [''])
+test('executablePath', [extra_run_opts(config.os), js_broken(22261)], compile_and_run, [''])
test('T17472', normal, compile_and_run, [''])
test('T19569b', normal, compile_and_run, [''])
test('Monoid_ByteArray', normal, compile_and_run, [''])
=====================================
testsuite/tests/perf/compiler/all.T
=====================================
@@ -536,7 +536,7 @@ test('T16190',
test ('T16473',
[ collect_stats('bytes allocated',5)
, only_ways(['normal'])
- , js_skip
+ , js_broken(22261)
],
compile_and_run,
['-O2 -flate-specialise'])
=====================================
testsuite/tests/rename/prog006/all.T
=====================================
@@ -1 +1 @@
-test('rn.prog006', [extra_files(['A.hs', 'B/', 'Main.hs', 'pwd.hs']), js_skip], makefile_test, [])
+test('rn.prog006', [extra_files(['A.hs', 'B/', 'Main.hs', 'pwd.hs']), js_broken(22261)], makefile_test, [])
=====================================
testsuite/tests/rts/all.T
=====================================
@@ -262,7 +262,7 @@ test('T7037', js_skip, makefile_test, ['T7037'])
test('T7087', exit_code(1), compile_and_run, [''])
test('T7160', [ omit_ways(['nonmoving_thr', 'nonmoving_thr_ghc'])
- , js_skip
+ , js_broken(22261)
], compile_and_run, [''])
test('T7040', [omit_ways(['ghci']), req_c], compile_and_run, ['T7040_c.c'])
@@ -336,7 +336,7 @@ test('T11108', normal, compile_and_run, [''])
test('GcStaticPointers', [ when(doing_ghci()
, extra_hc_opts('-fobject-code'))
- , js_skip
+ , js_broken(22261)
],
compile_and_run, [''])
test('ListStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
@@ -358,7 +358,7 @@ def grep_stderr(pattern):
test('T9839_01',
[ omit_ways(['ghci']), extra_run_opts('+RTS -T-s'), no_check_hp
, grep_stderr('given an argument when none was expected')
- , js_skip
+ , js_broken(22261)
],
compile_and_run, [''])
=====================================
testsuite/tests/rts/flags/T17720/all.T
=====================================
@@ -2,7 +2,7 @@ test('T17720a',
[extra_run_opts('+RTS -ibogus'),
exit_code(1), check_errmsg('bad value for -i'), extra_files(['T17720.hs']),
only_ways(['normal']),
- js_skip],
+ js_broken(22261)],
multimod_compile_and_run,
['T17720', '-rtsopts'])
@@ -10,7 +10,7 @@ test('T17720b',
[extra_run_opts('+RTS -Cv'),
exit_code(1), check_errmsg('bad value for -C'), extra_files(['T17720.hs']),
only_ways(['normal']),
- js_skip],
+ js_broken(22261)],
multimod_compile_and_run,
['T17720', '-rtsopts'])
@@ -18,6 +18,6 @@ test('T17720c',
[extra_run_opts('+RTS -V3b'),
exit_code(1), check_errmsg('bad value for -V'), extra_files(['T17720.hs']),
only_ways(['normal']),
- js_skip],
+ js_broken(22261)],
multimod_compile_and_run,
['T17720', '-rtsopts'])
=====================================
testsuite/tests/simplCore/should_compile/all.T
=====================================
@@ -199,7 +199,7 @@ test('T10083',
makefile_test, ['T10083'])
test('T10689', normal, compile, [''])
test('T11155',
- js_skip,
+ js_broken(22261),
makefile_test, ['T11155'])
test('T11232', normal, compile, ['-O2'])
test('T11562', normal, compile, ['-O2'])
=====================================
testsuite/tests/typecheck/should_fail/all.T
=====================================
@@ -413,7 +413,7 @@ test('T11990b', normal, compile_fail, [''])
test('T12035', [], multimod_compile_fail, ['T12035', '-v0'])
test('T12035j', [ extra_files(['T12035.hs', 'T12035a.hs', 'T12035.hs-boot'])
, req_smp
- , js_skip
+ , js_broken(22261)
], multimod_compile_fail, ['T12035', '-j2 -v0'])
test('T12045b', normal, compile_fail, [''])
test('T12045c', normal, compile_fail, [''])
=====================================
testsuite/tests/unboxedsums/module/all.T
=====================================
@@ -1,2 +1,2 @@
-test('sum_mod', [normalise_slashes, extra_files(['Lib.hs', 'Main.hs']), js_skip],
+test('sum_mod', [normalise_slashes, extra_files(['Lib.hs', 'Main.hs']), js_broken(22261)],
run_command, ['$MAKE -s main --no-print-director'])
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/71162e41807aaf7ddb43b2233979235570b0da11
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/71162e41807aaf7ddb43b2233979235570b0da11
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/20221027/d1f862b3/attachment-0001.html>
More information about the ghc-commits
mailing list