[Git][ghc/ghc][wip/js-staging] 2 commits: stm: mark tests for JS backend as broken
doyougnu (@doyougnu)
gitlab at gitlab.haskell.org
Thu Oct 27 23:00:29 UTC 2022
doyougnu pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC
Commits:
4a589bfb by doyougnu at 2022-10-27T18:56:41-04:00
stm: mark tests for JS backend as broken
- - - - -
25e3d1f2 by doyougnu at 2022-10-27T18:58:15-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
listThreads
mask002
Timeout001
T15904
recomp008
- - - - -
16 changed files:
- libraries/base/tests/IO/all.T
- libraries/base/tests/System/all.T
- libraries/base/tests/all.T
- libraries/stm
- 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, [''])
=====================================
libraries/stm
=====================================
@@ -1 +1 @@
-Subproject commit a19548081cf54ce1835263532feeb1bc7bea89cc
+Subproject commit 41c9eca2351bb2fbbf0837f3a7569325f327be6a
=====================================
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/-/compare/26983561b047d31e55c56acd4f804fefcfb5ef82...25e3d1f2e2e0d677c51a85840a88f228dac82c2e
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/26983561b047d31e55c56acd4f804fefcfb5ef82...25e3d1f2e2e0d677c51a85840a88f228dac82c2e
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/ca0a85b6/attachment-0001.html>
More information about the ghc-commits
mailing list