Skip to content

Commit

Permalink
Test Failure.new(Exception.new) does not segfault
Browse files Browse the repository at this point in the history
RT#124434: https://rt.perl.org/Ticket/Display.html?id=124434

Less-specific test also included in roast:
e57c771cd7
  • Loading branch information
zoffixznet committed Dec 11, 2017
1 parent e57c771 commit 1101fea
Showing 1 changed file with 6 additions and 1 deletion.
7 changes: 6 additions & 1 deletion t/05-messages/02-errors.t
Expand Up @@ -2,7 +2,7 @@ use lib <t/packages/>;
use Test;
use Test::Helpers;

plan 4;
plan 5;

# RT #132295

Expand All @@ -28,4 +28,9 @@ throws-like {
is-deeply class { has $.bar }.^methods».name.sort, <BUILDALL bar>,
'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

0 comments on commit 1101fea

Please sign in to comment.