[commit: ghc] master: Testsuite: mark tests as expect_broken on win64 (a765f72)

[git at git.haskell.org]

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

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

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

commit a765f72c130111cdbd30f2a3e159186c6e625d2a
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Thu Jun 11 19:28:03 2015 +0200

    Testsuite: mark tests as expect_broken on win64
    
    Tickets: #1407, #9381, #9878.
    
    Differential Revision: https://phabricator.haskell.org/D977


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

a765f72c130111cdbd30f2a3e159186c6e625d2a
 testsuite/tests/ghci/linking/all.T | 3 ++-
 testsuite/tests/ghci/scripts/all.T | 3 ++-
 testsuite/tests/rts/all.T          | 1 +
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/ghci/linking/all.T b/testsuite/tests/ghci/linking/all.T
index c7ce1c3..4d05b8f 100644
--- a/testsuite/tests/ghci/linking/all.T
+++ b/testsuite/tests/ghci/linking/all.T
@@ -51,4 +51,5 @@ test('T3333',
      run_command,
      ['$MAKE -s --no-print-directory T3333'])
 
-test('T1407', normal, ghci_script, ['T1407.script'])
+test('T1407', when(opsys('mingw32'), expect_broken(1407)),
+     ghci_script, ['T1407.script'])
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 8d7b5de..df02add 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -204,7 +204,8 @@ test('T9878',
     [extra_clean(['T9878.hi','T9878.o'])],
     ghci_script, ['T9878.script'])
 test('T9878b',
-    [ extra_run_opts('-fobject-code'),
+    [ when(opsys('mingw32'), expect_broken(9878)),
+      extra_run_opts('-fobject-code'),
       extra_clean(['T9878b.hi','T9878b.o'])],
     ghci_script, ['T9878b.script'])
 test('T10122', normal, ghci_script, ['T10122.script'])
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index 914603d..029cf82 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -248,6 +248,7 @@ test('T10017', [ when(opsys('mingw32'), skip)
                , only_ways(threaded_ways), extra_run_opts('+RTS -N2 -RTS') ], compile_and_run, [''])
 
 test('rdynamic', [ unless(opsys('linux') or opsys('mingw32'), skip)
+                 , when(opsys('mingw32'), expect_broken(9381))
                  # this needs runtime infrastructure to do in ghci:
                  #  '-rdynamic' ghc, load modules only via dlopen(RTLD_BLOBAL) and more.
                  , omit_ways(['ghci'])