X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FDebug.t;h=3202164a27e0e1d5972f8e98e8c4cb17508ca870;hb=ddd6f6917b6f0012a15d277d1f4f2a6890b7aecf;hp=54ef5c65f562a59417c2dfdac01985abcc4f7511;hpb=3f35705ddcc3eff0df658faf12320a6e8671b668;p=koha.git

diff --git a/t/Debug.t b/t/Debug.t
index 54ef5c65f5..3202164a27 100755
--- a/t/Debug.t
+++ b/t/Debug.t
@@ -1,25 +1,19 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
-
-use Test::More tests => 5;
+use Modern::Perl;
+use Test::More tests => 7;
 
 use vars qw($debug $cgi_debug);
 
 BEGIN {
-$ENV{'KOHA_CGI_DEBUG'}='2';
-$ENV{'KOHA_DEBUG'}='5';
-	diag "BEFORE use:     \$debug is " . (defined     $debug ?     $debug : 'not defined');
-	diag "BEFORE use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
-	use_ok('C4::Debug');
+    $ENV{'KOHA_CGI_DEBUG'}='2';
+    $ENV{'KOHA_DEBUG'}='5';
+    is($debug,    undef,"    \$debug is undefined as expected.");
+    is($cgi_debug,undef,"\$cgi_debug is undefined as expected.");
+    use_ok('C4::Debug');
 }
 
-diag " AFTER use:     \$debug is " . (defined     $debug ?     $debug : 'not defined');
-diag " AFTER use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
 ok(defined     $debug, "    \$debug defined and imported.");
 ok(defined $cgi_debug, "\$cgi_debug defined and imported.");
 is($cgi_debug,2,"cgi_debug gets the ENV{'KOHA_CGI_DEBUG'}");
 is($debug,5,"debug gets the ENV{'KOHA_DEBUG'}");
-
-diag "Done.";