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
|
use strict;
use warnings;
my $warnings;
BEGIN { $SIG{__WARN__} = sub {
$warnings++ if($_[0] =~ /^Devel::Hide/)
} }
my %args;
BEGIN {
%args = map {
my($k, $v) = split(/:/, $_);
$k => [split(//, $v)]
} @ARGV;
}
# the command line had -MDevel::Hide=-quiet so
# the warning this generates should be suppressed
use Devel::Hide 'Q';
use Test::More tests => 2 + @{$args{try}};
ok($ENV{PERL5OPT} =~ /\bMlib=t\b/, "PERL5OPT is added to, not overwritten: $ENV{PERL5OPT}");
foreach my $try (@{$args{try}}) {
eval "require $try";
if(!grep { $_ eq $try } @{$args{moan}}) {
ok(!$@, "nothing moaned about loading $try");
} else {
like($@, qr/^Can't locate $try\.pm/, "correctly moaned about loading $try");
}
}
ok(!$warnings, "suppressed warnings");
|
