Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 14114: Silence warns and cleanup t/Debug.t

Browse source 
TEST PLAN
---------
1) $ prove t/Debug.t
   -- What's with this BEFORE and AFTER stuff?!
2) apply patch
3) $ prove t/Debug.t
   -- cleaner, and you only get fuller output with -v.
4) koha qa test tools

Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Cleaner, no koha-qa errors

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Mark Tompsett 2015-05-01 17:09:58 -04:00 committed by Tomas Cohen Arazi
parent 16d7ba09f3
commit 5d8aa7b70b
1 changed files with 7 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
t/Debug.t
View file

@ -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.";