6 use Test::More tests => 4;
9 use App::Rgit::Utils qw/:levels/;
11 local $SIG{__WARN__} = sub { diag @_ };
12 local $SIG{__DIE__} = sub { diag @_ };
20 my @levels = sort { $levels{$b} <=> $levels{$a} } keys %levels;
23 open $olderr, '>&', \*STDERR or die "Can't dup STDERR: $!";
25 for my $l (0 .. $#levels) {
26 my $arc = App::Rgit::Config->new(
29 debug => $levels{$levels[$l]}
33 open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
34 $arc->$_($_) for qw/info warn err crit/;
35 is($buf, join('', @levels[$l .. $#levels]), "level $l ok");
39 open STDERR, '>&', $olderr or die "Can't dup \$olderr: $!";