Revamp t/16-levels.t

diff --git a/t/16-levels.t b/t/16-levels.t
index 9a4410db5afc02365d651412dfefacd0091439ea..38e126a6a26c294873b5d55b33d8fb292b1448eb 100644 (file)
--- a/t/16-levels.t
+++ b/t/16-levels.t
@@ -1,5 +1,7 @@
 #!perl
 
+use 5.008;
+
 use strict;
 use warnings;
 
@@ -8,8 +10,8 @@ use Test::More tests => 4;
 use App::Rgit::Config;
 use App::Rgit::Utils qw/:levels/;
 
-local $SIG{__WARN__} = sub { diag @_ };
-local $SIG{__DIE__} = sub { diag @_ };
+local $SIG{__WARN__} = sub { diag 'warning:',   @_ };
+local $SIG{__DIE__}  = sub { diag 'exception:', @_ };
 
 my %levels = (
  info => INFO,
@@ -26,13 +28,13 @@ for my $l (0 .. $#levels) {
  my $arc = App::Rgit::Config->new(
   root  => 't',
   git   => 't/bin/git',
-  debug => $levels{$levels[$l]}
+  debug => $levels{$levels[$l]},
  );
  my $buf = '';
  close STDERR;
  open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
  $arc->$_($_) for qw/info warn err crit/;
- is($buf, join('', @levels[$l .. $#levels]), "level $l ok");
+ is $buf, join('', @levels[$l .. $#levels]), "level $l ok";
 }
 
 close STDERR;