[commit: ghc] wip/disable-fragile-unreg-tests: testsuite: Disable more tests in unregisterised build (9bce364)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/disable-fragile-unreg-tests
Link       : http://ghc.haskell.org/trac/ghc/changeset/9bce364125b55407e632d9a2061d09c6f346fa71/ghc

>---------------------------------------------------------------

commit 9bce364125b55407e632d9a2061d09c6f346fa71
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Dec 28 19:19:48 2018 -0500

    testsuite: Disable more tests in unregisterised build
    
    This disables `ghcilink005`, `foreignInterruptable`, and `T7040_ghci` in
    the unregisterised build as they tend to fail non-deterministically. See
    ticket #16085.


>---------------------------------------------------------------

9bce364125b55407e632d9a2061d09c6f346fa71
 testsuite/tests/ghci/linking/all.T | 8 ++++++--
 testsuite/tests/rts/all.T          | 2 ++
 testsuite/tests/th/all.T           | 5 ++++-
 3 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/ghci/linking/all.T b/testsuite/tests/ghci/linking/all.T
index f9617c5..4f12d27 100644
--- a/testsuite/tests/ghci/linking/all.T
+++ b/testsuite/tests/ghci/linking/all.T
@@ -19,8 +19,12 @@ test('ghcilink004',
       when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11259))],
      run_command, ['$MAKE -s --no-print-directory ghcilink004'])
 
-test('ghcilink005', [extra_files(['TestLink.hs', 'f.c']),
-                     unless(doing_ghci, skip)], run_command,
+test('ghcilink005',
+     [extra_files(['TestLink.hs', 'f.c']),
+      # Fragile when unregisterised; see #16085
+      when(unregisterised(), skip),
+      unless(doing_ghci, skip)],
+     run_command,
      ['$MAKE -s --no-print-directory ghcilink005'])
 
 test('ghcilink006', [unless(doing_ghci, skip)], run_command,
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index 466ee84..4152840 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -247,6 +247,8 @@ test('T7040', [omit_ways(['ghci'])], compile_and_run, ['T7040_c.c'])
 test('T7040_ghci',
      [extra_files(['T7040_c.h']),
       only_ways(['ghci']),
+      # Fragile when unregisterised; see #16085
+      when(unregisterised(), skip),
       pre_cmd('$MAKE -s --no-print-directory T7040_ghci_setup')],
      compile_and_run, ['T7040_ghci_c.o'])
 
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index 1bea110..881ba81 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -149,7 +149,10 @@ test('T3177', normal, compile, ['-v0'])
 test('T3177a', normal, compile_fail, ['-v0'])
 
 test('T3319', normal, compile, ['-ddump-splices -v0'])
-test('TH_foreignInterruptible', normal, compile, ['-ddump-splices -v0'])
+test('TH_foreignInterruptible',
+     # Fragile when unregisterised; see #16085
+     when(unregisterised(), skip),
+     compile, ['-ddump-splices -v0'])
 test('TH_foreignCallingConventions', normal,
                                      compile,
                                      ['-ddump-splices -dsuppress-uniques -v0'])