[commit: ghc] master: testsuite: Mark T9405 as broken on Windows (3325435)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/332543587eea41825ad7ad5addcb0de6b3bfa2f1/ghc

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

commit 332543587eea41825ad7ad5addcb0de6b3bfa2f1
Author: Ben Gamari <ben at well-typed.com>
Date:   Sun Oct 16 02:53:06 2016 +0000

    testsuite: Mark T9405 as broken on Windows
    
    There seems to be a runtime system bug here, as described in #12714.


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

332543587eea41825ad7ad5addcb0de6b3bfa2f1
 testsuite/tests/rts/Makefile | 4 +++-
 testsuite/tests/rts/all.T    | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/rts/Makefile b/testsuite/tests/rts/Makefile
index 94f38fa..a6d2482 100644
--- a/testsuite/tests/rts/Makefile
+++ b/testsuite/tests/rts/Makefile
@@ -52,7 +52,9 @@ T9405:
     sleep 0.2; \
     kill -2 $$!; \
     wait $$!; \
-    [ -s T9405.ticky ] && echo Ticky-Ticky
+    [ -e T9405.ticky ] || echo "Error: Ticky profile doesn't exist"; \
+    [ -s T9405.ticky ] || echo "Error: Ticky profile is empty"; \
+    echo Ticky-Ticky;
 
 # Naming convention: 'T5423_' obj-way '_' obj-src
 # obj-way ::= v | dyn
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index fc37f8d..1c13b97 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -357,7 +357,7 @@ test('T10904', [ omit_ways(['ghci']), extra_run_opts('20000') ],
 test('T10728', [extra_run_opts('+RTS -maxN3 -RTS'), only_ways(['threaded2'])],
                compile_and_run, [''])
 
-test('T9405', [extra_clean(['T9405.ticky'])],
+test('T9405', [extra_clean(['T9405.ticky']), when(msys(), expect_broken(12714))],
               run_command, ['$MAKE -s --no-print-directory T9405'])
 
 test('T11788', when(ghc_dynamic(), skip),