t/Debug.t

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