use Test::More;
use Test::Fatal;
+use Test::Moose;
{
};
}
+with_immutable {
{
my $e = create_error( Foo->new );
ok( !ref( $e->{error} ), "error is a string" );
is_deeply( $e->{error}->data, [ $baz, 4 ], "captured args" );
like( $e->{error}->last_error, qr/Blah/, "last error preserved" );
}
+} 'Foo', 'Bar', 'Baz';
{
package Role::Foo;
cmp_ok(scalar(@lines), '==', 1, "didn't get a stacktrace");
}
+with_immutable {
my $default = Quux::Default->new;
my $croak = Quux::Croak->new;
my $confess = Quux::Confess->new;
stacktrace_not_ok { $croak->bar };
stacktrace_ok { $confess->bar };
}
+} 'Quux::Default', 'Quux::Croak', 'Quux::Confess';
done_testing;