testsuite: add missing annotations for some tests

This patch adds missing annotations (req_th, req_dynamic_lib_support,
req_rts_linker) to some tests. They were discovered when testing
wasm32, though it's better to be explicit about what features they
require, rather than simply adding when(arch('wasm32'), skip).

5 files changed, 17 insertions, 8 deletions

diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T
index 8d3029bd06..53f6028f9c 100644
--- a/testsuite/tests/rename/should_fail/all.T
+++ b/testsuite/tests/rename/should_fail/all.T
@@ -188,7 +188,7 @@ test('T21605b', normal, compile_fail, [''])
 test('T21605c', normal, compile_fail, [''])
 test('T21605d', normal, compile_fail, [''])
 test('T22839', normal, compile_fail, [''])
-test('RnPatternSynonymFail', js_broken(22261), compile_fail, [''])
+test('RnPatternSynonymFail', [js_broken(22261), req_th], compile_fail, [''])
 test('RnMultipleFixityFail', normal, compile_fail, [''])
 test('RnEmptyCaseFail', normal, compile_fail, [''])
 test('RnDefaultSigFail', normal, compile_fail, [''])
diff --git a/testsuite/tests/rts/linker/all.T b/testsuite/tests/rts/linker/all.T
index 3c005fc377..93207d4d37 100644
--- a/testsuite/tests/rts/linker/all.T
+++ b/testsuite/tests/rts/linker/all.T
@@ -28,6 +28,7 @@ test('T23066',
 # Test to see if linker scripts link properly to real ELF files
 test('T2615',
      [extra_files(['libfoo_T2615.c', 'libfoo_script_T2615.so']),
+       req_dynamic_lib_support,
        # JavaScript linker doesn't support linker scripts
        js_skip,
        # Windows linker doesn't seem to support linker scripts
@@ -130,6 +131,7 @@ test('linker_error3', [extra_files(['linker_error.c']),
 
 ######################################
 test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
+                 , req_rts_linker
                  # this needs runtime infrastructure to do in ghci:
                  #  '-rdynamic' ghc, load modules only via dlopen(RTLD_BLOBAL) and more.
                  , omit_ways(['ghci'])
@@ -138,10 +140,10 @@ test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
      compile_and_run, ['-rdynamic -package ghc'])
 
 
-test('T7072', 
-	[extra_files(['T7072-main.c', 'T7072-obj.c']), 
-		unless(opsys('linux'), skip), 
-		req_rts_linker], 
+test('T7072',
+	[extra_files(['T7072-main.c', 'T7072-obj.c']),
+		unless(opsys('linux'), skip),
+		req_rts_linker],
 	makefile_test, ['T7072'])
 
 test('T20494', [req_rts_linker, when(opsys('linux') and not ghc_dynamic(), expect_broken(20706))],
diff --git a/testsuite/tests/tcplugins/all.T b/testsuite/tests/tcplugins/all.T
index cf1fc211a6..cf496e4198 100644
--- a/testsuite/tests/tcplugins/all.T
+++ b/testsuite/tests/tcplugins/all.T
@@ -8,6 +8,7 @@ test('TcPlugin_Nullary'
         , 'NullaryPlugin.hs'
         , 'TcPlugin_Nullary.hs'
         ])
+      , req_th
       ]
     , multimod_compile
     , [ 'TcPlugin_Nullary.hs'
@@ -22,6 +23,7 @@ test('TcPlugin_Args'
         , 'ArgsPlugin.hs'
         , 'TcPlugin_Args.hs'
         ])
+      , req_th
       ]
     , multimod_compile_and_run
     , [ 'TcPlugin_Args.hs'
@@ -36,6 +38,7 @@ test('TcPlugin_TyFam'
         , 'TyFamPlugin.hs'
         , 'TcPlugin_TyFam.hs'
         ])
+      , req_th
       ]
     , multimod_compile
     , [ 'TcPlugin_TyFam.hs'
@@ -50,6 +53,7 @@ test('TcPlugin_Rewrite'
         , 'RewritePlugin.hs'
         , 'TcPlugin_Rewrite.hs'
         ])
+      , req_th
       ]
     , multimod_compile
     , [ 'TcPlugin_Rewrite.hs'
@@ -66,6 +70,7 @@ test('TcPlugin_RewritePerf'
       , only_ways(['normal'])
       , collect_compiler_stats('bytes allocated', 1)
       , high_memory_usage
+      , req_th
       ]
     , multimod_compile_fail
     , [ 'TcPlugin_RewritePerf.hs'
@@ -80,6 +85,7 @@ test('TcPlugin_EmitWanted'
         , 'EmitWantedPlugin.hs'
         , 'TcPlugin_EmitWanted.hs'
         ])
+      , req_th
       ]
     , multimod_compile_fail
     , [ 'TcPlugin_EmitWanted.hs'
@@ -94,6 +100,7 @@ test('TcPlugin_CtId'
         , 'CtIdPlugin.hs'
         , 'TcPlugin_CtId.hs'
         ])
+      , req_th
       ]
     , multimod_compile
     , [ 'TcPlugin_CtId.hs'
diff --git a/testsuite/tests/type-data/should_compile/all.T b/testsuite/tests/type-data/should_compile/all.T
index 518322e719..e4008cf5db 100644
--- a/testsuite/tests/type-data/should_compile/all.T
+++ b/testsuite/tests/type-data/should_compile/all.T
@@ -3,6 +3,6 @@ test('TDExistential', normal, compile, [''])
 test('TDGADT', normal, compile, [''])
 test('TDGoodConsConstraints', normal, compile, [''])
 test('TDVector', normal, compile, [''])
-test('TD_TH_splice', js_broken(22576), compile, [''])
+test('TD_TH_splice', [js_broken(22576), req_th], compile, [''])
 test('T22315a', [extra_files(['T22315a/'])], multimod_compile, ['T22315a.Lib T22315a.Main', '-v0'])
 test('T22948b', normal, compile, [''])
diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T
index 44a068de7a..5327700fde 100644
--- a/testsuite/tests/typecheck/should_compile/all.T
+++ b/testsuite/tests/typecheck/should_compile/all.T
@@ -491,7 +491,7 @@ test('T10592', normal, compile, [''])
 test('T11305', normal, compile, [''])
 test('T11254', normal, compile, [''])
 test('T11379', normal, compile, [''])
-test('T11462', js_broken(22261), multi_compile,
+test('T11462', [js_broken(22261), req_th], multi_compile,
      [None, [('T11462_Plugin.hs', '-package ghc'), ('T11462.hs', '')],
       '-dynamic' if have_dynamic() else ''])
 test('T11480', normal, compile, [''])
@@ -559,7 +559,7 @@ test('T11723', normal, compile, [''])
 test('T12987', normal, compile, [''])
 test('T11736', normal, compile, [''])
 test('T13248', expect_broken(13248), compile, [''])
-test('T11525', js_broken(22261), multi_compile,
+test('T11525', [js_broken(22261), req_th], multi_compile,
      [None, [('T11525_Plugin.hs', '-package ghc'), ('T11525.hs', '')],
       '-dynamic' if have_dynamic() else ''])
 test('T12923_1', normal, compile, [''])