Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

executable file 22 lines (15 sloc) 0.633 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 3;

use vars qw($debug $cgi_debug);

BEGIN {
diag "BEFORE use: \$debug is " . (defined $debug ? $debug : 'not defined');
diag "BEFORE use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
use_ok('C4::Debug');
}

diag " AFTER use: \$debug is " . (defined $debug ? $debug : 'not defined');
diag " AFTER use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
ok(defined $debug, " \$debug defined and imported.");
ok(defined $cgi_debug, "\$cgi_debug defined and imported.");

diag "Done.";
Something went wrong with that request. Please try again.