From 2c44ce5486b48a160e73e4d6882bfaa75a993b4c Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Tue, 26 Feb 2019 10:24:31 -0500
Subject: testsuite: Use fragile modifier for more tests

---
 testsuite/tests/concurrent/should_run/all.T | 5 ++---
 testsuite/tests/ffi/should_run/all.T        | 6 ++----
 testsuite/tests/ghci/linking/all.T          | 6 ++----
 testsuite/tests/ghci/should_run/all.T       | 2 +-
 testsuite/tests/profiling/should_run/all.T  | 7 ++-----
 5 files changed, 9 insertions(+), 17 deletions(-)

diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T
index 5ba0657686..f5f399ed68 100644
--- a/testsuite/tests/concurrent/should_run/all.T
+++ b/testsuite/tests/concurrent/should_run/all.T
@@ -75,7 +75,7 @@ test('T5558',
 
 test('T5421', normal, compile_and_run, [''])
 # See #12751, the test fails non-deterministically so we skip it.
-test('T5611', when ( opsys('darwin'), skip) , compile_and_run, [''])
+test('T5611', when ( opsys('darwin'), fragile(12751)) , compile_and_run, [''])
 test('T5238', normal, compile_and_run, [''])
 test('T5866', exit_code(1), compile_and_run, [''])
 
@@ -196,8 +196,7 @@ test('conc036', skip, compile_and_run, [''])
 # Interrupting foreign calls only makes sense if we are threaded
 test('foreignInterruptible', [when(fast(), skip),
                               when(opsys('mingw32'),expect_fail),
-                              # Fragile in unregisterised way; see #15467.
-                              when(unregisterised(), skip),
+                              when(unregisterised(), fragile(15467)),
                               # I don't think we support interrupting Sleep()
                               # on Windows.  --SDM
                               only_threaded_ways,
diff --git a/testsuite/tests/ffi/should_run/all.T b/testsuite/tests/ffi/should_run/all.T
index e9ea97586e..96ab5062b7 100644
--- a/testsuite/tests/ffi/should_run/all.T
+++ b/testsuite/tests/ffi/should_run/all.T
@@ -87,8 +87,7 @@ test('ffi018', [omit_ways(['ghci'])], compile_and_run, ['ffi018_c.c'])
 test('ffi018_ghci',
      [extra_files(['ffi018.h']),
       only_ways(['ghci']),
-      # This test is fragile when unregisterised; see #16085
-      when(unregisterised(), skip),
+      when(unregisterised(), fragile(16085)),
       pre_cmd('$MAKE -s --no-print-directory ffi018_ghci_setup')],
      compile_and_run, ['ffi018_ghci_c.o'])
 
@@ -100,8 +99,7 @@ test('T1679', normal, compile_and_run, [''])
 test('T1288', [omit_ways(['ghci'])], compile_and_run, ['T1288_c.c'])
 test('T1288_ghci',
      [only_ways(['ghci']),
-      # This test is fragile when unregisterised; see #16085
-      when(unregisterised(), skip),
+      when(unregisterised(), fragile(16085)),
       pre_cmd('$MAKE -s --no-print-directory T1288_ghci_setup')],
      compile_and_run, ['T1288_ghci_c.o'])
 
diff --git a/testsuite/tests/ghci/linking/all.T b/testsuite/tests/ghci/linking/all.T
index 792e91bc9a..88ada22332 100644
--- a/testsuite/tests/ghci/linking/all.T
+++ b/testsuite/tests/ghci/linking/all.T
@@ -6,8 +6,7 @@ test('ghcilink001',
      makefile_test, ['ghcilink001'])
 
 test('ghcilink002', [extra_files(['TestLink.hs', 'f.c']),
-                     # Fragile when unregisterised; see #16085
-                     when(unregisterised(), skip),
+                     when(unregisterised(), fragile(16085)),
                      unless(doing_ghci, skip)],
      makefile_test, ['ghcilink002'])
 
@@ -21,8 +20,7 @@ test('ghcilink004',
 
 test('ghcilink005',
      [extra_files(['TestLink.hs', 'f.c']),
-      # Fragile when unregisterised; see #16085
-      when(unregisterised(), skip),
+      when(unregisterised(), fragile(16085)),
       unless(doing_ghci, skip)],
      makefile_test, ['ghcilink005'])
 
diff --git a/testsuite/tests/ghci/should_run/all.T b/testsuite/tests/ghci/should_run/all.T
index 54400197a7..84693d77b5 100644
--- a/testsuite/tests/ghci/should_run/all.T
+++ b/testsuite/tests/ghci/should_run/all.T
@@ -11,7 +11,7 @@ test('T2881',      just_ghci, compile_and_run, [''])
 
 test('T3171',
      [when(opsys('mingw32'),skip),
-      skip, # This test is quite flaky (#15383)
+      fragile(15383),
       req_interp,
       combined_output],
      makefile_test, [])
diff --git a/testsuite/tests/profiling/should_run/all.T b/testsuite/tests/profiling/should_run/all.T
index 044d4fe2c1..f6891c3859 100644
--- a/testsuite/tests/profiling/should_run/all.T
+++ b/testsuite/tests/profiling/should_run/all.T
@@ -87,9 +87,7 @@ test('prof-doc-fib', [], compile_and_run, [''])
 test('prof-doc-last', [], compile_and_run, ['-fno-full-laziness'])
 
 # unicode in cost centre names
-test('T5559',
-     [ skip # Skip due to non-deterministic failures on CI, see Trac #16350
-     ], compile_and_run, [''])
+test('T5559', fragile(16350), compile_and_run, [''])
 
 # Note [consistent stacks]
 #  Certain optimisations can change the stacks we get out of the
@@ -150,6 +148,5 @@ test('T14257', [], makefile_test, ['T14257'])
 test('T15897',
      [extra_ways(['profasm']), only_ways(['profasm']),
       run_timeout_multiplier(2),
-      # Takes too long and is quite fragile (#15467, #16193)
-      skip],
+      fragile(15467)],
      makefile_test, ['T15897'])
-- 
cgit v1.2.1