[Git][ghc/ghc][wip/js-staging] testsuite: skip tests that unexpected pass/fail
doyougnu (@doyougnu)
gitlab at gitlab.haskell.org
Fri Oct 21 01:45:07 UTC 2022
doyougnu pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC
Commits:
50eb9824 by doyougnu at 2022-10-20T21:44:16-04:00
testsuite: skip tests that unexpected pass/fail
- - - - -
8 changed files:
- libraries/base/tests/all.T
- testsuite/tests/callarity/perf/all.T
- testsuite/tests/driver/T14075/all.T
- testsuite/tests/driver/T20030/test1/all.T
- testsuite/tests/perf/compiler/all.T
- testsuite/tests/rts/all.T
- testsuite/tests/rts/flags/T17720/all.T
- testsuite/tests/typecheck/should_fail/all.T
Changes:
=====================================
libraries/base/tests/all.T
=====================================
@@ -199,7 +199,9 @@ test('topHandler04',
test('T8766',
[ collect_stats('bytes allocated',5)
- , only_ways(['normal'])],
+ , only_ways(['normal'])
+ , js_skip
+ ],
compile_and_run,
['-O'])
@@ -227,7 +229,9 @@ test('hWaitForInput-accurate-stdin', [when(platform('js-unknown-ghcjs'), skip),
test('T9826',normal, compile_and_run,[''])
test('T9848',
[ collect_stats('bytes allocated')
- , only_ways(['normal'])],
+ , only_ways(['normal'])
+ , js_skip
+ ],
compile_and_run,
['-O'])
test('T10149', normal, compile_and_run, [''])
@@ -236,11 +240,13 @@ test('T11555', normal, compile_and_run, [''])
test('T12494', normal, compile_and_run, [''])
test('T12852', when(opsys('mingw32'), skip), compile_and_run, [''])
test('lazySTexamples', normal, compile_and_run, [''])
-test('T11760', req_smp, compile_and_run, ['-threaded -with-rtsopts=-N2'])
+test('T11760', [req_smp, js_skip], compile_and_run, ['-threaded -with-rtsopts=-N2'])
test('T12874', normal, compile_and_run, [''])
test('T13191',
[ collect_stats('bytes allocated', 5)
- , only_ways(['normal'])],
+ , only_ways(['normal'])
+ , js_skip
+ ],
compile_and_run,
['-O'])
test('T13525', when(opsys('mingw32'), skip), compile_and_run, [''])
@@ -265,7 +271,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)], compile_and_run, ['-O -w'])
+test('T17499', [collect_stats('bytes allocated',5), js_skip], 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,8 @@
test('T3924',
[collect_stats('bytes allocated',8)
, only_ways(['normal'])
- ],
+ , js_skip
+ ],
compile_and_run,
['-O'])
=====================================
testsuite/tests/driver/T14075/all.T
=====================================
@@ -1,5 +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
],
makefile_test, [])
=====================================
testsuite/tests/driver/T20030/test1/all.T
=====================================
@@ -10,5 +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
],
multimod_compile, ['I.hs K.hs', '-v1 -j'])
=====================================
testsuite/tests/perf/compiler/all.T
=====================================
@@ -536,6 +536,7 @@ test('T16190',
test ('T16473',
[ collect_stats('bytes allocated',5)
, only_ways(['normal'])
+ , js_skip
],
compile_and_run,
['-O2 -flate-specialise'])
@@ -649,4 +650,4 @@ test('T21839c',
[ collect_compiler_stats('all', 1),
only_ways(['normal'])],
compile,
- ['-O'])
\ No newline at end of file
+ ['-O'])
=====================================
testsuite/tests/rts/all.T
=====================================
@@ -350,8 +350,10 @@ def grep_stderr(pattern):
# The ghci way gets confused by the RTS options
test('T9839_01',
- [omit_ways(['ghci']), extra_run_opts('+RTS -T-s'), no_check_hp,
- grep_stderr('given an argument when none was expected')],
+ [ omit_ways(['ghci']), extra_run_opts('+RTS -T-s'), no_check_hp
+ , grep_stderr('given an argument when none was expected')
+ , js_skip
+ ],
compile_and_run, [''])
test('T9839_02',
=====================================
testsuite/tests/rts/flags/T17720/all.T
=====================================
@@ -1,20 +1,23 @@
test('T17720a',
[extra_run_opts('+RTS -ibogus'),
exit_code(1), check_errmsg('bad value for -i'), extra_files(['T17720.hs']),
- only_ways(['normal'])],
+ only_ways(['normal']),
+ js_skip],
multimod_compile_and_run,
['T17720', '-rtsopts'])
test('T17720b',
[extra_run_opts('+RTS -Cv'),
exit_code(1), check_errmsg('bad value for -C'), extra_files(['T17720.hs']),
- only_ways(['normal'])],
+ only_ways(['normal']),
+ js_skip],
multimod_compile_and_run,
['T17720', '-rtsopts'])
test('T17720c',
[extra_run_opts('+RTS -V3b'),
exit_code(1), check_errmsg('bad value for -V'), extra_files(['T17720.hs']),
- only_ways(['normal'])],
+ only_ways(['normal']),
+ js_skip],
multimod_compile_and_run,
- ['T17720', '-rtsopts'])
\ No newline at end of file
+ ['T17720', '-rtsopts'])
=====================================
testsuite/tests/typecheck/should_fail/all.T
=====================================
@@ -411,8 +411,10 @@ test('T11948', normal, compile_fail, [''])
test('T11990a', normal, compile_fail, [''])
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], multimod_compile_fail, ['T12035', '-j2 -v0'])
+test('T12035j', [ extra_files(['T12035.hs', 'T12035a.hs', 'T12035.hs-boot'])
+ , req_smp
+ , js_skip
+ ], multimod_compile_fail, ['T12035', '-j2 -v0'])
test('T12045b', normal, compile_fail, [''])
test('T12045c', normal, compile_fail, [''])
test('T12063', [expect_broken(12063)], multimod_compile_fail, ['T12063', '-v0'])
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/50eb98244583a106031f98af3f7d0df95ffef87f
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/50eb98244583a106031f98af3f7d0df95ffef87f
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/20221020/4ffce48b/attachment-0001.html>
More information about the ghc-commits
mailing list