Bug 14168 - enhance streaming cataloging to include youtube
[koha.git] / t / Debug.t
blob3202164a27e0e1d5972f8e98e8c4cb17508ca870
1 #!/usr/bin/perl
3 use Modern::Perl;
4 use Test::More tests => 7;
6 use vars qw($debug $cgi_debug);
8 BEGIN {
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.");
13 use_ok('C4::Debug');
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'}");