From 62dded2895b0d4d6b8dc94e84aacbb9a99e19e5c Mon Sep 17 00:00:00 2001
From: Teo Camarasu <teofilcamarasu@gmail.com>
Date: Tue, 28 May 2024 12:25:31 +0100
Subject: [PATCH] testsuite: mark tests broken by #24886
Now that `template-haskell` is no longer wired-in.
These tests are triggering #24886, and so need to be marked broken.
---
testsuite/tests/overloadedrecflds/should_compile/all.T | 2 +-
testsuite/tests/overloadedrecflds/should_run/all.T | 2 +-
testsuite/tests/saks/should_compile/all.T | 2 +-
testsuite/tests/showIface/all.T | 2 +-
testsuite/tests/vdq-rta/should_compile/all.T | 6 +++---
5 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/testsuite/tests/overloadedrecflds/should_compile/all.T b/testsuite/tests/overloadedrecflds/should_compile/all.T
index 690b39a2b5b..9104b5180f1 100644
--- a/testsuite/tests/overloadedrecflds/should_compile/all.T
+++ b/testsuite/tests/overloadedrecflds/should_compile/all.T
@@ -48,7 +48,7 @@ test('BootFldReexport'
# the final module (BootFldReexport), but not fail earlier.
, ['BootFldReexport', '-v0'])
test('T23220'
- , [req_th, extra_files(['T23220_aux.hs'])]
+ , [req_th, extra_files(['T23220_aux.hs']), js_broken(24886)]
, multimod_compile, ['T23220_aux.hs T23220.hs', '-v0'])
test('T22106_A', [extra_files(['T22106_aux.hs'])], multimod_compile, ['T22106_A', '-v0'])
test('T22106_B', [extra_files(['T22106_aux.hs'])], multimod_compile, ['T22106_B', '-v0'])
diff --git a/testsuite/tests/overloadedrecflds/should_run/all.T b/testsuite/tests/overloadedrecflds/should_run/all.T
index af33803acdf..3d5b4b336a4 100644
--- a/testsuite/tests/overloadedrecflds/should_run/all.T
+++ b/testsuite/tests/overloadedrecflds/should_run/all.T
@@ -3,7 +3,7 @@ test('overloadedrecfldsrun01', [], multimod_compile_and_run,
test('overloadedrecfldsrun02', [extra_files(['OverloadedRecFldsRun02_A.hs'])], multimod_compile_and_run,
['overloadedrecfldsrun02', ''])
test('overloadedrecfldsrun03', normal, compile_and_run, [''])
-test('overloadedrecfldsrun04', [req_th,omit_ways(prof_ways)], compile_and_run, [''])
+test('overloadedrecfldsrun04', [req_th,omit_ways(prof_ways), js_broken(24886)], compile_and_run, [''])
test('overloadedrecfldsrun05', normal, compile_and_run, [''])
test('overloadedrecfldsrun07', normal, compile_and_run, [''])
test('overloadedrecflds_generics', normal, compile_and_run, [''])
diff --git a/testsuite/tests/saks/should_compile/all.T b/testsuite/tests/saks/should_compile/all.T
index c7aece981ea..339b1a7203d 100644
--- a/testsuite/tests/saks/should_compile/all.T
+++ b/testsuite/tests/saks/should_compile/all.T
@@ -37,5 +37,5 @@ test('T16721', normal, ghci_script, ['T16721.script'])
test('T16756a', normal, compile, [''])
test('saks027', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])
-test('saks028', req_th, compile, [''])
+test('saks028', [req_th, js_broken(24886)], compile, [''])
test('T17164', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])
diff --git a/testsuite/tests/showIface/all.T b/testsuite/tests/showIface/all.T
index 52884007571..fe1af75b617 100644
--- a/testsuite/tests/showIface/all.T
+++ b/testsuite/tests/showIface/all.T
@@ -3,7 +3,7 @@ test('DocsInHiFile0', extra_files(['DocsInHiFile.hs']), makefile_test, [])
test('DocsInHiFile1', extra_files(['DocsInHiFile.hs']), makefile_test, [])
test('T17871', [extra_files(['T17871a.hs'])], multimod_compile, ['T17871', '-v0'])
test('DocsInHiFileTH',
- [extra_files(['DocsInHiFileTHExternal.hs', 'DocsInHiFileTH.hs']), req_th],
+ [extra_files(['DocsInHiFileTHExternal.hs', 'DocsInHiFileTH.hs']), req_th, js_broken(24886)],
makefile_test, [])
test('NoExportList', normal, makefile_test, [])
test('PragmaDocs', normal, makefile_test, [])
diff --git a/testsuite/tests/vdq-rta/should_compile/all.T b/testsuite/tests/vdq-rta/should_compile/all.T
index 4d94adbc764..f5408847c78 100644
--- a/testsuite/tests/vdq-rta/should_compile/all.T
+++ b/testsuite/tests/vdq-rta/should_compile/all.T
@@ -26,6 +26,6 @@ test('T24570', normal, compile, [''])
test('T22326_th_dump1', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])
test('T23739_th_dump1', req_th, compile, ['-v0 -ddump-splices -dsuppress-uniques'])
-test('T22326_th_pprint1', req_th, compile, [''])
-test('T23739_th_pprint1', req_th, compile, [''])
-test('T23738_th', req_th, compile, [''])
\ No newline at end of file
+test('T22326_th_pprint1', [req_th, js_broken(24886)], compile, [''])
+test('T23739_th_pprint1', [req_th, js_broken(24886)], compile, [''])
+test('T23738_th', req_th, compile, [''])
--
GitLab