X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FDebug.t;h=3202164a27e0e1d5972f8e98e8c4cb17508ca870;hb=419d158c7f4c3034c332e4ab6e8d4e3b14f19c5b;hp=54ef5c65f562a59417c2dfdac01985abcc4f7511;hpb=c0234dd9b9649063acf2617fecf5c6efda38a532;p=koha-ffzg.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.";