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 files changed, 26 insertions, 26 deletions

diff --git a/libraries/base/tests/IO/all.T b/libraries/base/tests/IO/all.T
index 93bfcf7f37..9bee9e8cd8 100644
--- a/libraries/base/tests/IO/all.T
+++ b/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'])
diff --git a/libraries/base/tests/System/all.T b/libraries/base/tests/System/all.T
index 5280d849c4..ad3b046b25 100644
--- a/libraries/base/tests/System/all.T
+++ b/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, [''])
diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T
index 7ea3d99957..262c91a492 100644
--- a/libraries/base/tests/all.T
+++ b/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, [''])
diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T
index be8aabce4e..e57204b2c2 100644
--- a/testsuite/tests/concurrent/should_run/all.T
+++ b/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, [''])
 
diff --git a/testsuite/tests/driver/T1959/test.T b/testsuite/tests/driver/T1959/test.T
index 0ffcd64806..967310935a 100644
--- a/testsuite/tests/driver/T1959/test.T
+++ b/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'])
diff --git a/testsuite/tests/driver/fat-iface/all.T b/testsuite/tests/driver/fat-iface/all.T
index 223b7adfe5..c526aa7493 100644
--- a/testsuite/tests/driver/fat-iface/all.T
+++ b/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'])
diff --git a/testsuite/tests/driver/recomp008/all.T b/testsuite/tests/driver/recomp008/all.T
index 591ba26665..702b3b6f64 100644
--- a/testsuite/tests/driver/recomp008/all.T
+++ b/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, [])
diff --git a/testsuite/tests/ffi/should_run/all.T b/testsuite/tests/ffi/should_run/all.T
index 9e944ae5fd..707f90f9d3 100644
--- a/testsuite/tests/ffi/should_run/all.T
+++ b/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'])
 
diff --git a/testsuite/tests/ghc-api/all.T b/testsuite/tests/ghc-api/all.T
index ee9f3f509c..4e6aa16748 100644
--- a/testsuite/tests/ghc-api/all.T
+++ b/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'])
diff --git a/testsuite/tests/hp2ps/all.T b/testsuite/tests/hp2ps/all.T
index 6ed4eed898..0227fa0cb6 100644
--- a/testsuite/tests/hp2ps/all.T
+++ b/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, [])
diff --git a/testsuite/tests/primops/should_run/all.T b/testsuite/tests/primops/should_run/all.T
index 8856b6260a..29c7745dce 100644
--- a/testsuite/tests/primops/should_run/all.T
+++ b/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, [''])
diff --git a/testsuite/tests/rep-poly/all.T b/testsuite/tests/rep-poly/all.T
index af2c31e906..92d0a9e056 100644
--- a/testsuite/tests/rep-poly/all.T
+++ b/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, [''])
diff --git a/testsuite/tests/rts/T8308/all.T b/testsuite/tests/rts/T8308/all.T
index 302e531e02..74eeec3ebc 100644
--- a/testsuite/tests/rts/T8308/all.T
+++ b/testsuite/tests/rts/T8308/all.T
@@ -1 +1 @@
-test('T8308', js_skip, makefile_test, ['T8308'])
+test('T8308', js_broken(22261), makefile_test, ['T8308'])
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index ceff977f63..cbcee7f780 100644
--- a/testsuite/tests/rts/all.T
+++ b/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:
diff --git a/testsuite/tests/showIface/all.T b/testsuite/tests/showIface/all.T
index ee1076e760..da691a642c 100644
--- a/testsuite/tests/showIface/all.T
+++ b/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,