bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / 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.";