diff --git a/t/05-messages/02-errors.t b/t/05-messages/02-errors.t index eeaa70e73db..6540a84bdfa 100644 --- a/t/05-messages/02-errors.t +++ b/t/05-messages/02-errors.t @@ -2,7 +2,7 @@ use lib ; use Test; use Test::Helpers; -plan 4; +plan 5; # RT #132295 @@ -28,4 +28,9 @@ throws-like { is-deeply class { has $.bar }.^methods».name.sort, , 'auto-generated methods present in .^methods'; +# RT #124434 +is-run 「Failure.new(Exception.new); Nil」, :1exitcode, + :err{ .contains: "Died with Exception" }, + 'Failure.new(Exception.new) does not segfault'; + # vim: ft=perl6 expandtab sw=4