[commit: ghc] wip/devel2-ci: testsuite: Mark T14740 and tcfail159 as broken in debugged compiler (da0062c)

git at git.haskell.org git at git.haskell.org
Sun Dec 30 18:35:44 UTC 2018


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

On branch  : wip/devel2-ci
Link       : http://ghc.haskell.org/trac/ghc/changeset/da0062cae1b2814ab59b3e2acaca1c3fc1bda3e1/ghc

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

commit da0062cae1b2814ab59b3e2acaca1c3fc1bda3e1
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Dec 30 13:32:50 2018 -0500

    testsuite: Mark T14740 and tcfail159 as broken in debugged compiler
    
    As noted in #16113, these trigger an assertion in isUnliftedRuntimeRep.


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

da0062cae1b2814ab59b3e2acaca1c3fc1bda3e1
 testsuite/tests/parser/should_fail/all.T    | 2 +-
 testsuite/tests/typecheck/should_fail/all.T | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/parser/should_fail/all.T b/testsuite/tests/parser/should_fail/all.T
index f1f5122..ce67d20 100644
--- a/testsuite/tests/parser/should_fail/all.T
+++ b/testsuite/tests/parser/should_fail/all.T
@@ -114,7 +114,7 @@ test('T12610', normal, compile_fail, [''])
 test('T13450', normal, compile_fail, [''])
 test('T13450TH', normal, compile_fail, [''])
 test('T14588', normal, compile_fail, [''])
-test('T14740', normal, compile_fail, [''])
+test('T14740', when(compiler_debugged(), expect_broken(16113)), compile_fail, [''])
 test('T15209', normal, compile_fail, [''])
 
 test('NoNumericUnderscores0', normal, compile_fail, [''])
diff --git a/testsuite/tests/typecheck/should_fail/all.T b/testsuite/tests/typecheck/should_fail/all.T
index f0afa0d..27e971f 100644
--- a/testsuite/tests/typecheck/should_fail/all.T
+++ b/testsuite/tests/typecheck/should_fail/all.T
@@ -143,7 +143,7 @@ test('tcfail156', normal, compile_fail, [''])
 test('tcfail157', normal, compile_fail, [''])
 # Skip tcfail158 until Trac ticket #15899 fixes the broken test
 test('tcfail158', skip, compile_fail, [''])
-test('tcfail159', normal, compile_fail, [''])
+test('tcfail159', when(debugged_compiler(), expect_broken(16113)), compile_fail, [''])
 test('tcfail160', normal, compile_fail, [''])
 test('tcfail161', normal, compile_fail, [''])
 test('tcfail162', normal, compile_fail, [''])



More information about the ghc-commits mailing list