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
|
use strict;
use warnings;
use Test::More 0.88;
sub DEFAULT {
die 'DEFAULT sub called; this is wrong!';
}
BEGIN {
$SIG{__WARN__} = 'DEFAULT';
}
use Test::Warnings qw(:all :no_end_test);
use if "$]" >= '5.008', lib => 't/lib';
use if "$]" >= '5.008', 'SilenceStderr';
warn 'this warning is not expected to be caught';
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 saw the warning, and allowed it to go by',
);
}
done_testing;
|
