perl/tests/debug.pl

   1 #!/usr/bin/perl
   2
   3 use Test::More tests => 4;
   4
   5 BEGIN {
   6     use_ok('Thrasher::Log', qw(logger debug dies));
   7     $Thrasher::Log::SILENT = 1;
   8 };
   9
  10 my $rand_num =  int rand 100000;
  11 my $test_msg = "test message $rand_num";
  12
  13 my ($fn, $line, $msg) = logger($test_msg);
  14
  15 is ("$fn:$line $msg",
  16     "$0:$line $test_msg",
  17     "Valid message call");
  18
  19 is (debug("$test_msg"),
  20     0,
  21     "Silent debug call");
  22
  23 $Thrasher::Log::DEBUG = 1;
  24
  25 $test_msg .= int rand 1000000;
  26 ($fn, $line, $msg) = logger($test_msg);
  27
  28 is ("$fn: $msg",
  29     "$0: $test_msg",
  30     "Loud debug call");
  31
  32 # TODO: flip dies subroutine to use Error and test on try/throw
  33