C4::Debug - Centralized debug switches module, test and proof conversion (in Dates.pm)

[koha.git] / t / Debug.t

diff --git a/t/Debug.t b/t/Debug.t
new file mode 100755 (executable)
index 0000000..967229c
--- /dev/null
+++ b/t/Debug.t
@@ -0,0 +1,21 @@
+#!/usr/bin/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.";