[commit: ghc] wip/T16085: testsuite: Skip foreignInterruptible in unregisterised way (d50eff5)

[git at git.haskell.org]

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

On branch  : wip/T16085
Link       : http://ghc.haskell.org/trac/ghc/changeset/d50eff5d279505e3ad2d2b78735a01b60cac5bda/ghc

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

commit d50eff5d279505e3ad2d2b78735a01b60cac5bda
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Jan 23 21:32:47 2019 -0500

    testsuite: Skip foreignInterruptible in unregisterised way
    
    See #15467.


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

d50eff5d279505e3ad2d2b78735a01b60cac5bda
 testsuite/tests/concurrent/should_run/all.T | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T
index 99f9b6e..5ba0657 100644
--- a/testsuite/tests/concurrent/should_run/all.T
+++ b/testsuite/tests/concurrent/should_run/all.T
@@ -196,6 +196,8 @@ 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),
                               # I don't think we support interrupting Sleep()
                               # on Windows.  --SDM
                               only_threaded_ways,