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
|
use strict;
use warnings;
# HARNESS-NO-PRELOAD
use Test2::Tools::Tiny;
use Test2::API qw/intercept test2_stack/;
plan 3;
my @warnings;
{
local $SIG{__WARN__} = sub { push @warnings => @_ };
require Test::Builder;
};
is(@warnings, 2, "got warnings");
like(
$warnings[0],
qr/Test::Builder was loaded after Test2 initialization, this is not recommended/,
"Warn about late Test::Builder load"
);
like(
$warnings[1],
qr/Formatter Test::Builder::Formatter loaded too late to be used as the global formatter/,
"Got the formatter warning"
);
|
