Testsuite: mark tests as expect_broken on win64
authorThomas Miedema <thomasmiedema@gmail.com>
Thu, 11 Jun 2015 17:28:03 +0000 (19:28 +0200)
committerThomas Miedema <thomasmiedema@gmail.com>
Thu, 11 Jun 2015 17:28:03 +0000 (19:28 +0200)
Tickets: #1407, #9381, #9878.

Differential Revision: https://phabricator.haskell.org/D977

testsuite/tests/ghci/linking/all.T
testsuite/tests/ghci/scripts/all.T
testsuite/tests/rts/all.T

index c7ce1c3..4d05b8f 100644 (file)
@@ -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'])
index 8d7b5de..df02add 100755 (executable)
@@ -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'])
index 914603d..029cf82 100644 (file)
@@ -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'])