Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (12 sloc) 353 Bytes
use strict;
use warnings;
use Test::More tests => 2;
use Devel::StackTrace;
use Devel::StackTrace::WithLexicals;
sub foo {
return Devel::StackTrace::WithLexicals->new(message => "blah", indent => 1);
}
my $t = foo();
my $trace = $t->as_string;
unlike $trace, qr/^Trace begun/, "has the message";
like $trace, qr/^\tmain::foo/m, "indent works";