5d8aa7b70b
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>
19 lines
556 B
Perl
Executable file
19 lines
556 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use Test::More tests => 7;
|
|
|
|
use vars qw($debug $cgi_debug);
|
|
|
|
BEGIN {
|
|
$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');
|
|
}
|
|
|
|
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'}");
|