Bug 22493: Clean up DecreaseLoanHighHolds.t

[koha.git] / t / Debug.t

diff --git a/t/Debug.t b/t/Debug.t
index 54ef5c6..3202164 100755 (executable)
--- 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.";