summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas Miedema <thomasmiedema@gmail.com>2016-06-27 23:12:19 +0200
committerThomas Miedema <thomasmiedema@gmail.com>2016-06-28 13:14:37 +0200
commit3fb9837f3d69a6353df5a09d86c94f855dba20dc (patch)
tree7536f696372bbb6a4a729f91546749ffe2d478ce
parent0eb037814b39dc66a2c5549d2310e9853bc8292a (diff)
downloadhaskell-3fb9837f3d69a6353df5a09d86c94f855dba20dc.tar.gz
Testsuite: mark tests expect_broken
* T7837 is still broken for prof_ways (#9406) * T11627b is broken on Windows for WAY=prof_hc_hb (#12236) * T8089 is also broken for WAY=profasm on Windows
-rw-r--r--libraries/base/tests/all.T11
-rw-r--r--testsuite/tests/indexed-types/should_compile/all.T3
-rw-r--r--testsuite/tests/profiling/should_run/all.T2
3 files changed, 9 insertions, 7 deletions
diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T
index ac22336483..7950786487 100644
--- a/libraries/base/tests/all.T
+++ b/libraries/base/tests/all.T
@@ -194,12 +194,11 @@ test('T9681', normal, compile_fail, [''])
# Probably something like 1s is already enough, but I don't know enough to
# make an educated guess how long it needs to be guaranteed to reach the C
# call."
-test('T8089', [exit_code(99),
- run_timeout_multiplier(0.01),
- when(opsys('mingw32'),
- expect_broken_for(7325, ['normal', 'hpc', 'optasm'])),
- ],
- compile_and_run, [''])
+test('T8089',
+ [exit_code(99), run_timeout_multiplier(0.01),
+ when(opsys('mingw32'),
+ expect_broken_for(7325, ['normal', 'hpc', 'optasm', 'profasm']))],
+ compile_and_run, [''])
test('T9826',normal, compile_and_run,[''])
test('T9848',
[ stats_num_field('bytes allocated',
diff --git a/testsuite/tests/indexed-types/should_compile/all.T b/testsuite/tests/indexed-types/should_compile/all.T
index 06b1222a2b..84cd5dc957 100644
--- a/testsuite/tests/indexed-types/should_compile/all.T
+++ b/testsuite/tests/indexed-types/should_compile/all.T
@@ -206,7 +206,8 @@ test('T7489', normal, compile, [''])
test('T7585', normal, compile, [''])
test('T7282', normal, compile, [''])
test('T7804', normal, compile, [''])
-test('T7837', normal, compile, ['-O -ddump-rule-firings'])
+test('T7837', expect_broken_for(9406, prof_ways), compile,
+ ['-O -ddump-rule-firings'])
test('T4185', normal, compile, [''])
# Caused infinite loop in the compiler
diff --git a/testsuite/tests/profiling/should_run/all.T b/testsuite/tests/profiling/should_run/all.T
index f3ea9b160c..76956bd220 100644
--- a/testsuite/tests/profiling/should_run/all.T
+++ b/testsuite/tests/profiling/should_run/all.T
@@ -103,6 +103,8 @@ test('T11627a', [extra_ways(extra_prof_ways)], compile_and_run, [''])
test('T11627b', [ extra_run_opts('+RTS -i0 -RTS') # census after each GC
, extra_ways(extra_prof_ways)
+ , when(opsys('mingw32'),
+ expect_broken_for(12236, ['prof_hc_hb']))
]
, compile_and_run
, [''])