[commit: testsuite] master: Mark tests as expect_broken when borken with -DDEBUG (9f10d5b)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9f10d5ba0fae4357f962032dda1be5316c16db1b/testsuite

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

commit 9f10d5ba0fae4357f962032dda1be5316c16db1b
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Fri Nov 22 09:40:02 2013 +0000

    Mark tests as expect_broken when borken with -DDEBUG
    
    The related bugs are #8553 and #8525.


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

9f10d5ba0fae4357f962032dda1be5316c16db1b
 tests/gadt/all.T                         |    2 +-
 tests/indexed-types/should_compile/all.T |    2 +-
 tests/lib/integer/all.T                  |    3 ++-
 tests/typecheck/should_fail/all.T        |    2 +-
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/gadt/all.T b/tests/gadt/all.T
index d23d1fc..aa37918 100644
--- a/tests/gadt/all.T
+++ b/tests/gadt/all.T
@@ -10,7 +10,7 @@ test('gadt2', when(fast(), skip), compile_and_run, [''])
 test('gadt3', normal, compile, [''])
 test('gadt4', when(fast(), skip), compile_and_run, [''])
 test('gadt5', when(fast(), skip), compile_and_run, [''])
-test('gadt6', normal, compile, [''])
+test('gadt6', when(compiler_debugged(), expect_broken(8553)), compile, [''])
 test('gadt7', normal, compile_fail, [''])
 test('gadt8', normal, compile, [''])
 test('gadt9', normal, compile, [''])
diff --git a/tests/indexed-types/should_compile/all.T b/tests/indexed-types/should_compile/all.T
index 8e68a59..2b25bfb 100644
--- a/tests/indexed-types/should_compile/all.T
+++ b/tests/indexed-types/should_compile/all.T
@@ -206,7 +206,7 @@ test('T7156', normal, compile, [''])
 test('T5591a', normal, compile, [''])
 test('T5591b', normal, compile, [''])
 test('T7280', normal, compile, [''])
-test('T7474', normal, compile, [''])
+test('T7474', when(compiler_debugged(), expect_broken(8553)), compile, [''])
 test('T7489', normal, compile, [''])
 test('T7585', normal, compile, [''])
 test('T7282', normal, compile, [''])
diff --git a/tests/lib/integer/all.T b/tests/lib/integer/all.T
index cdb8838..7b5e5f2 100644
--- a/tests/lib/integer/all.T
+++ b/tests/lib/integer/all.T
@@ -3,7 +3,8 @@ test('integerConversions', normal, compile_and_run, [''])
 # skip ghci as it doesn't support unboxed tuples
 test('integerGmpInternals', [reqlib('integer-gmp'), omit_ways('ghci')], compile_and_run, [''])
 test('integerConstantFolding',
-     extra_clean(['integerConstantFolding.simpl']),
+     [ extra_clean(['integerConstantFolding.simpl'])
+     , when(compiler_debugged(), expect_broken(8525))],
      run_command,
      ['$MAKE -s --no-print-directory integerConstantFolding'])
 test('fromToInteger',
diff --git a/tests/typecheck/should_fail/all.T b/tests/typecheck/should_fail/all.T
index b6530b1..39a5fc2 100644
--- a/tests/typecheck/should_fail/all.T
+++ b/tests/typecheck/should_fail/all.T
@@ -252,7 +252,7 @@ test('FailDueToGivenOverlapping', normal, compile_fail, [''])
 test('LongWayOverlapping', normal, compile_fail, [''])
 test('T5051', normal, compile_fail, [''])
 test('T5236',normal,compile_fail,[''])
-test('T5246',normal,compile_fail,[''])
+test('T5246',when(compiler_debugged(), expect_broken(8553)),compile_fail,[''])
 test('T5300',normal,compile_fail,[''])
 test('T5095',normal,compile_fail,[''])
 test('T1897a',normal,compile_fail,[''])