1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use strict;
use warnings;
BEGIN {
# t/exceptions/without-debugging.t and t/exceptions/with-debugging.t are
# identical except for this one line.
$^P &= ~0x200;
}
use Test::More tests => 2;
use Test::Moose;
use Moose::Exception;
# with_immutable only toggles on, not off
Moose::Exception->meta->make_mutable;
my ($line1, $line2);
sub foo
{
$line1 = __LINE__; return Moose::Exception->new(
message => 'something bad happened',
);
}
with_immutable {
my $immutable = shift;
note "testing with immutable = $immutable, \$\^P is $^P";
like(
do { $line2 = __LINE__; foo() },
qr{^something bad happened at .* line $line1\n\tmain::foo at .* line $line2},
"exception is well-formed (immutable = $immutable)",
);
}
'Moose::Exception';
|
