t/Debug.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 5;
   7
   8 use vars qw($debug $cgi_debug);
   9
  10 BEGIN {
  11 $ENV{'KOHA_CGI_DEBUG'}='2';
  12 $ENV{'KOHA_DEBUG'}='5';
  13         diag "BEFORE use:     \$debug is " . (defined     $debug ?     $debug : 'not defined');
  14         diag "BEFORE use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
  15         use_ok('C4::Debug');
  16 }
  17
  18 diag " AFTER use:     \$debug is " . (defined     $debug ?     $debug : 'not defined');
  19 diag " AFTER use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
  20 ok(defined     $debug, "    \$debug defined and imported.");
  21 ok(defined $cgi_debug, "\$cgi_debug defined and imported.");
  22 is($cgi_debug,2,"cgi_debug gets the ENV{'KOHA_CGI_DEBUG'}");
  23 is($debug,5,"debug gets the ENV{'KOHA_DEBUG'}");
  24
  25 diag "Done.";