4 use Test
::More tests
=> 7;
6 use vars
qw($debug $cgi_debug);
9 $ENV{'KOHA_CGI_DEBUG'}='2';
10 $ENV{'KOHA_DEBUG'}='5';
11 is($debug, undef," \$debug is undefined as expected.");
12 is($cgi_debug,undef,"\$cgi_debug is undefined as expected.");
16 ok(defined $debug, " \$debug defined and imported.");
17 ok(defined $cgi_debug, "\$cgi_debug defined and imported.");
18 is($cgi_debug,2,"cgi_debug gets the ENV{'KOHA_CGI_DEBUG'}");
19 is($debug,5,"debug gets the ENV{'KOHA_DEBUG'}");