1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use Test::More tests => 1;
END {
final_tests();
}
use Test::Warnings 'warning'; # should not add an END test
use Test::Warnings ':no_end_test';
use if "$]" >= '5.008', lib => 't/lib';
use if "$]" >= '5.008', 'SilenceStderr';
warn 'this warning is not expected to be caught';
like(warning { warn 'ohhai' }, qr/^ohhai/, 'warning() was imported');
# this is run in the END block
sub final_tests
{
# if there was anything else than 1 test run, then we will fail
exit (Test::Builder->new->current_test <=> 1);
}
|
