From 3464a3e0f790f7f279f5340d0857a52fb09129a8 Mon Sep 17 00:00:00 2001 From: Simon Jakobi Date: Mon, 29 Mar 2021 22:09:53 +0200 Subject: Mark p6 and T3333 as fragile See #17018. --- testsuite/tests/ghci/linking/all.T | 3 ++- testsuite/tests/safeHaskell/ghci/all.T | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/testsuite/tests/ghci/linking/all.T b/testsuite/tests/ghci/linking/all.T index 82a7822ea4..09284b5cea 100644 --- a/testsuite/tests/ghci/linking/all.T +++ b/testsuite/tests/ghci/linking/all.T @@ -41,7 +41,8 @@ test('ghcilink006', test('T3333', [unless(doing_ghci, skip), unless(opsys('linux') or opsys('darwin') or ghc_dynamic(), - expect_broken(3333))], + expect_broken(3333)), + when(unregisterised(), fragile(17018))], makefile_test, ['T3333']) test('T11531', diff --git a/testsuite/tests/safeHaskell/ghci/all.T b/testsuite/tests/safeHaskell/ghci/all.T index fac80f36c0..5caaaf09c0 100644 --- a/testsuite/tests/safeHaskell/ghci/all.T +++ b/testsuite/tests/safeHaskell/ghci/all.T @@ -5,7 +5,7 @@ test('p2', normal, ghci_script, ['p2.script']) test('p3', normalise_version("bytestring"), ghci_script, ['p3.script']) test('p4', normal, ghci_script, ['p4.script']) test('p5', normal, ghci_script, ['p5.script']) -test('p6', normal, ghci_script, ['p6.script']) +test('p6', [when(unregisterised(), fragile(17018))], ghci_script, ['p6.script']) test('p7', extra_files(['A.hs']), ghci_script, ['p7.script']) test('p8', extra_files(['B.hs']), ghci_script, ['p8.script']) test('p9', extra_files(['C.hs']), ghci_script, ['p9.script']) -- cgit v1.2.1