[Git][ghc/ghc][wip/js-staging] testsuite: mark js_skip -> js_broken(22261)
doyougnu (@doyougnu)
gitlab at gitlab.haskell.org
Thu Oct 27 23:06:47 UTC 2022
doyougnu pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC
Commits:
52f2c6c6 by doyougnu at 2022-10-27T19:05:54-04:00
testsuite: mark js_skip -> js_broken(22261)
Specifically:
DocsInHiFileTH
alloccounter1
T19156
rtsflags002
T7773
topHandler01
T1959
T1679
T2469
T4038
UnliftedTVar2
T15136
T8308
T9405
openFile005
openFile007
readFile001
countReaders001
RepPolyUnliftedDatatype2
fat005
topHandler02
topHandler03
T10414
T11760
T12035j
T13191
T14075
T16473
T17499
T17720a
T17720b
T17720c
T20030_test1j
T3924
T8766
T9839_01
T9848
fptr01
GcStaticPointers
T13167
T14452
T17481
T7160
listThreads
mask002
Timeout001
hClose002
hFileSize002
hSetBuffering003
sum_mod
T11155
T21336a
T21869
T15904
MergeObjsMode
recomp011
T13914
executablePath
rn.prog006
T16916
recomp008
- - - - -
15 changed files:
- libraries/base/tests/IO/all.T
- libraries/base/tests/System/all.T
- libraries/base/tests/all.T
- testsuite/tests/concurrent/should_run/all.T
- testsuite/tests/driver/T1959/test.T
- testsuite/tests/driver/fat-iface/all.T
- testsuite/tests/driver/recomp008/all.T
- testsuite/tests/ffi/should_run/all.T
- testsuite/tests/ghc-api/all.T
- testsuite/tests/hp2ps/all.T
- testsuite/tests/primops/should_run/all.T
- testsuite/tests/rep-poly/all.T
- testsuite/tests/rts/T8308/all.T
- testsuite/tests/rts/all.T
- testsuite/tests/showIface/all.T
Changes:
=====================================
libraries/base/tests/IO/all.T
=====================================
@@ -66,14 +66,14 @@ test('openFile001', normal, compile_and_run, [''])
test('openFile002', [exit_code(1), normalise_win32_io_errors], compile_and_run, [''])
test('openFile003', [normalise_win32_io_errors, js_broken(22374)], compile_and_run, [''])
test('openFile004', [], compile_and_run, [''])
-test('openFile005', js_skip, compile_and_run, [''])
+test('openFile005', js_broken(22261), compile_and_run, [''])
test('openFile006', [], compile_and_run, [''])
-test('openFile007', js_skip, compile_and_run, [''])
+test('openFile007', js_broken(22261), compile_and_run, [''])
test('openFile008', [js_broken(22349), cmd_prefix('ulimit -n 1024; ')], compile_and_run, [''])
test('openFile009', [], compile_and_run, [''])
test('putStr001', normal, compile_and_run, [''])
-test('readFile001', js_skip, compile_and_run, [''])
+test('readFile001', js_broken(22261), compile_and_run, [''])
test('readwrite001', [], compile_and_run, ['-cpp'])
@@ -92,7 +92,7 @@ test('hGetBuf001',
test('hDuplicateTo001', [fragile_for(16819, concurrent_ways),
when(opsys('mingw32'), skip)], compile_and_run, [''])
-test('countReaders001', js_skip, compile_and_run, [''])
+test('countReaders001', js_broken(22261), compile_and_run, [''])
test('concio001', [normal, multi_cpu_race],
makefile_test, ['test.concio001'])
=====================================
libraries/base/tests/System/all.T
=====================================
@@ -6,5 +6,5 @@ test('T5930', normal, compile_and_run, [''])
test('system001', [js_broken(22349), when(opsys("mingw32"), skip)], \
compile_and_run, [''])
-test('Timeout001', js_skip, compile_and_run, [''])
+test('Timeout001', js_broken(22261), compile_and_run, [''])
test('T16466', normal, compile_and_run, [''])
=====================================
libraries/base/tests/all.T
=====================================
@@ -167,7 +167,7 @@ test('qsemn001', normal, compile_and_run, [''])
test('T7457', normal, compile_and_run, [''])
-test('T7773', [when(opsys('mingw32'), skip), js_skip], compile_and_run, [''])
+test('T7773', [when(opsys('mingw32'), skip), js_broken(22261)], compile_and_run, [''])
# Andreas says that T7773 will not (and should not) work on Windows
# Tests for kind-polymorphic Category
@@ -179,17 +179,17 @@ test('T7653', [when(opsys('mingw32'), skip),
omit_ways(prof_ways+['ghci'])], compile_and_run, [''])
test('T7787', normal, compile_and_run, [''])
-test('topHandler01', [when(opsys('mingw32'), skip), js_skip], compile_and_run, [''])
+test('topHandler01', [when(opsys('mingw32'), skip), js_broken(22261)], compile_and_run, [''])
test('topHandler02',
[when(opsys('mingw32'), skip),
omit_ways(['ghci']),
signal_exit_code(2),
- js_skip
+ js_broken(22261)
], compile_and_run, [''])
test('topHandler03',
[when(opsys('mingw32'), skip), ignore_stderr,
signal_exit_code(15),
- js_skip
+ js_broken(22261)
], compile_and_run, [''])
test('topHandler04',
[when(opsys('mingw32'), skip),
@@ -287,5 +287,5 @@ test('T19288', exit_code(1), compile_and_run, [''])
test('T19719', normal, compile_and_run, [''])
test('T20107', extra_run_opts('+RTS -M50M'), compile_and_run, ['-package bytestring'])
test('trace', normal, compile_and_run, [''])
-test('listThreads', js_skip, compile_and_run, [''])
+test('listThreads', js_broken(22261), compile_and_run, [''])
test('inits1tails1', normal, compile_and_run, [''])
=====================================
testsuite/tests/concurrent/should_run/all.T
=====================================
@@ -45,7 +45,7 @@ test('throwto002', normal, compile_and_run, [''])
test('throwto003', normal, compile_and_run, [''])
test('mask001', normal, compile_and_run, [''])
-test('mask002', js_skip, compile_and_run, [''])
+test('mask002', js_broken(22261), compile_and_run, [''])
test('async001', normal, compile_and_run, [''])
=====================================
testsuite/tests/driver/T1959/test.T
=====================================
@@ -1 +1 @@
-test('T1959', [extra_files(['B.hs', 'C.hs', 'D.hs', 'E1.hs', 'E2.hs']), js_skip], makefile_test, ['dotest'])
+test('T1959', [extra_files(['B.hs', 'C.hs', 'D.hs', 'E1.hs', 'E2.hs']), js_broken(22261)], makefile_test, ['dotest'])
=====================================
testsuite/tests/driver/fat-iface/all.T
=====================================
@@ -1,5 +1,5 @@
test('fat001', [extra_files(['Fat.hs'])], makefile_test, ['fat001'])
-test('fat005', [extra_files(['Fat.hs']), filter_stdout_lines(r'= Proto-BCOs'), js_skip], makefile_test, ['fat005'])
+test('fat005', [extra_files(['Fat.hs']), filter_stdout_lines(r'= Proto-BCOs'), js_broken(22261)], makefile_test, ['fat005'])
test('fat006', [extra_files(['Fat.hs'])], makefile_test, ['fat006'])
test('fat006a', [extra_files(['Fat.hs'])], makefile_test, ['fat006a'])
test('fat007', [extra_files(['Fat.hs'])], makefile_test, ['fat007'])
=====================================
testsuite/tests/driver/recomp008/all.T
=====================================
@@ -4,5 +4,5 @@ test('recomp008',
[extra_files(['A1.hs', 'A2.hs', 'B.hs', 'Main.hs'])
, when(fast(), skip)
, normalise_slashes
- , js_skip],
+ , js_broken(22261)],
makefile_test, [])
=====================================
testsuite/tests/ffi/should_run/all.T
=====================================
@@ -101,7 +101,7 @@ test('ffi018_ghci',
test('ffi019', [normal, js_broken(22363)], compile_and_run, [''])
# This one originally failed only GHCi, but doesn't hurt to test all ways.
-test('T1679', js_skip, compile_and_run, [''])
+test('T1679', js_broken(22261), compile_and_run, [''])
test('T1288', [omit_ways(['ghci']), req_c], compile_and_run, ['T1288_c.c'])
test('T1288_ghci',
@@ -116,7 +116,7 @@ test('T2276_ghci', [ only_ways(['ghci']),
pre_cmd('$MAKE -s --no-print-directory T2276_ghci_setup') ],
compile_and_run, ['-fobject-code T2276_ghci_c.o'])
-test('T2469', js_skip, compile_and_run, ['-optc-std=gnu99'])
+test('T2469', js_broken(22261), compile_and_run, ['-optc-std=gnu99'])
test('T2594', [omit_ways(['ghci']), req_c], compile_and_run, ['T2594_c.c'])
@@ -144,7 +144,7 @@ if config.os == 'mingw32':
flagsForT4038 = ['-optl-Wl,--stack,10485760']
else:
flagsForT4038 = ['']
-test('T4038', js_skip, compile_and_run, flagsForT4038)
+test('T4038', js_broken(22261), compile_and_run, flagsForT4038)
test('T4221', [omit_ways(['ghci']),req_c], compile_and_run, ['T4221_c.c'])
=====================================
testsuite/tests/ghc-api/all.T
=====================================
@@ -30,7 +30,7 @@ test('T18522-dbg-ppr',
compile_and_run,
['-package ghc'])
test('T19156', [ extra_run_opts('"' + config.libdir + '"')
- , js_skip
+ , js_broken(22261)
],
compile_and_run,
['-package ghc'])
=====================================
testsuite/tests/hp2ps/all.T
=====================================
@@ -1 +1 @@
-test('T15904', [when(opsys('mingw32'), expect_broken(16388)), js_skip], makefile_test, [])
+test('T15904', [when(opsys('mingw32'), expect_broken(16388)), js_broken(22261)], makefile_test, [])
=====================================
testsuite/tests/primops/should_run/all.T
=====================================
@@ -56,7 +56,7 @@ test('UnliftedSmallArray1', normal, compile_and_run, [''])
test('UnliftedSmallArray2', normal, compile_and_run, [''])
test('UnliftedStablePtr', normal, compile_and_run, [''])
test('UnliftedTVar1', normal, compile_and_run, [''])
-test('UnliftedTVar2', js_skip, compile_and_run, [''])
+test('UnliftedTVar2', js_broken(22261), compile_and_run, [''])
test('UnliftedWeakPtr', normal, compile_and_run, [''])
test('T21624', normal, compile_and_run, [''])
=====================================
testsuite/tests/rep-poly/all.T
=====================================
@@ -80,7 +80,7 @@ test('RepPolyTuple', normal, compile_fail, [''])
test('RepPolyTupleSection', normal, compile_fail, [''])
test('RepPolyUnboxedPatterns', normal, compile_fail, [''])
test('RepPolyUnliftedDatatype', js_broken(22360), compile, [''])
-test('RepPolyUnliftedDatatype2', js_skip, compile, ['-O'])
+test('RepPolyUnliftedDatatype2', js_broken(22261), compile, ['-O'])
test('RepPolyUnliftedNewtype', normal, compile,
['-fno-warn-partial-type-signatures -fno-warn-deprecated-flags'])
test('RepPolyWildcardPattern', normal, compile_fail, [''])
=====================================
testsuite/tests/rts/T8308/all.T
=====================================
@@ -1 +1 @@
-test('T8308', js_skip, makefile_test, ['T8308'])
+test('T8308', js_broken(22261), makefile_test, ['T8308'])
=====================================
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']), js_skip ], compile_and_run, ['-with-rtsopts="-B -B -B"'])
+test('rtsflags002', [ only_ways(['normal']), js_broken(22261) ], 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
@@ -396,7 +396,7 @@ test('T10904', [ omit_ways(['ghci']), extra_run_opts('20000'), req_c ],
test('T10728', [extra_run_opts('+RTS -maxN3 -RTS'), only_ways(['threaded2'])],
compile_and_run, [''])
-test('T9405', [when(opsys('mingw32'), expect_broken(21361)), js_skip], makefile_test, ['T9405'])
+test('T9405', [when(opsys('mingw32'), expect_broken(21361)), js_broken(22261)], makefile_test, ['T9405'])
test('T11788', [ when(ghc_dynamic(), skip)
, req_interp
@@ -447,7 +447,7 @@ test('T14900',
test('InternalCounters',
[ js_skip # JS backend doesn't support internal counters
], makefile_test, ['InternalCounters'])
-test('alloccounter1', js_skip, compile_and_run,
+test('alloccounter1', js_broken(22261), compile_and_run,
[
# avoid allocating stack chunks, which counts as
# allocation and messes up the results:
=====================================
testsuite/tests/showIface/all.T
=====================================
@@ -7,7 +7,7 @@ test('DocsInHiFile1',
makefile_test, ['DocsInHiFile1'])
test('T17871', [extra_files(['T17871a.hs'])], multimod_compile, ['T17871', '-v0'])
test('DocsInHiFileTH',
- [extra_files(['DocsInHiFileTHExternal.hs', 'DocsInHiFileTH.hs']), js_skip],
+ [extra_files(['DocsInHiFileTHExternal.hs', 'DocsInHiFileTH.hs']), js_broken(22261)],
makefile_test, ['DocsInHiFileTH'])
test('NoExportList',
normal,
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/52f2c6c6d226a13a4e4eb22a50fc62fe4d52fb2d
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/52f2c6c6d226a13a4e4eb22a50fc62fe4d52fb2d
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/704982c0/attachment-0001.html>
More information about the ghc-commits
mailing list