t/Debug.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 7;
   5
   6 use vars qw($debug $cgi_debug);
   7
   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');
  14 }
  15
  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'}");