1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
use warnings;
use strict;
use Test::More import => ['!pass'];
use Dancer;
set global_warnings => 1;
is $^W, 1, "Global warnings turned on through global_warnings";
set global_warnings => 0;
is $^W, 0, "Global warnings turned off through global_warnings";
#
SKIP: {
skip 'config setting \'import_warnings\' has been deprecated', 2 unless ($ENV{RELEASE_TESTING});
set import_warnings => 1;
is $^W, 1, "Global warnings turned on through import_warnings";
set import_warnings => 0;
is $^W, 0, "Global warnings turned off through import_warnings";
}
done_testing();
|
