Main Koha release repository
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

19 lines
556 B

use Modern::Perl;
use Test::More tests => 7;
use vars qw($debug $cgi_debug);
is($debug, undef," \$debug is undefined as expected.");
is($cgi_debug,undef,"\$cgi_debug is undefined as expected.");
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'}");