Bug 9259: Use is instead of is_deeply
[koha.git] / 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'}");