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
37
38
39
40
|
use strict;
use warnings;
use Test::More 0.88;
my @warnings;
sub warning_capturer {
note 'original warn handler captured a warning: ', $_[0];
push @warnings, $_[0]
}
BEGIN {
$SIG{__WARN__} = 'warning_capturer';
}
use Test::Warnings qw(:all :no_end_test);
warn 'hello this is a warning'; my $file = __FILE__; my $line = __LINE__;
is(@warnings, 1, 'got one warning propagated')
&&
is(
$warnings[0],
"hello this is a warning at $file line $line.\n",
'..and it is the warning we just issued, with original location intact',
)
||
diag 'warnings propagated to original handler: ', explain \@warnings;
SKIP: {
skip 'PadWalker required for this test', 1
if not eval { require PadWalker; 1 };
is(
${ PadWalker::closed_over(\&Test::Warnings::had_no_warnings)->{'$forbidden_warnings_found'} },
1,
'Test::Warnings also saw the warning go by',
);
}
done_testing;
|
