From aa50e118b201ae4ac2714afb998d430c9a4a9caa Mon Sep 17 00:00:00 2001
From: Peter Trommler <ptrommler@acm.org>
Date: Sat, 22 Jan 2022 17:33:59 +0100
Subject: [PATCH] testsuite: Mark test that require RTS linker

---
 testsuite/tests/ghci/scripts/all.T | 4 +++-
 testsuite/tests/th/all.T           | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 71e0ea80a5ad..3745d30bf402 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -316,7 +316,9 @@ test('T17403', normal, ghci_script, ['T17403.script'])
 test('T17431', normal, ghci_script, ['T17431.script'])
 test('T17500', [extra_run_opts('-ddump-to-file -ddump-bcos')], ghci_script, ['T17500.script'])
 test('T17549', normal, ghci_script, ['T17549.script'])
-test('T17669', [extra_run_opts('-fexternal-interpreter -fobject-code')], ghci_script, ['T17669.script'])
+test('T17669', [extra_run_opts('-fexternal-interpreter -fobject-code'),
+                req_rts_linker ],
+     ghci_script, ['T17669.script'])
 test('T18330', [copy_files, extra_files(['../shell.hs', 'T18330.extra', 'T18330.hs'])
                , filter_stdout_lines(r'ghci>.*')
                , extra_hc_opts('-v1')]
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index 2e67879b33ef..2f304ddc5561 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -56,7 +56,7 @@ test('TH_spliceE5_prof',
       when(opsys('mingw32'), expect_broken(18271))],
      makefile_test, ['TH_spliceE5_prof'])
 
-test('TH_spliceE5_prof_ext', [req_profiling, only_ways(['normal'])],
+test('TH_spliceE5_prof_ext', [req_profiling, req_rts_linker, only_ways(['normal'])],
      makefile_test, ['TH_spliceE5_prof_ext'])
 
 test('TH_spliceD1', [], multimod_compile_fail,
-- 
GitLab