ヤミRoot VoidGate

Viewing: strace_bug.t

#!perl
use strict;
use warnings;

use Test::More;

{
    package My::Trace;
    sub new { bless {} }
    sub as_string { '' }
}

{
    package My::X;
    use Moose;
    with(
        'Throwable',
        'StackTrace::Auto',
    );

    has message              => ( is      => 'ro' );
    has '+stack_trace_class' => ( builder => 'tclass' );
    sub tclass { 'My::Trace' }
}

eval {
    eval "die 'Previously'" or My::X->throw(message => 'WTF!');
};
my $error = $@;
is $error->message, 'WTF!', 'Should have message';
like $error->previous_exception, qr/Previously/, 'Should have previous exception';
isa_ok $error->stack_trace_class, 'My::Trace';

done_testing();

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64