t/dlog.t

   1 use strict;
   2 use warnings;
   3
   4 use lib 't/lib';
   5 use VarLogger;
   6 use Test::More 'no_plan';
   7 my $var_log;
   8
   9 BEGIN { $var_log = VarLogger->new }
  10 use Log::Contextual qw{:dlog}, -logger => $var_log;
  11 {
  12 my @foo = Dlog_trace { "Look ma, data: $_" } qw{frew bar baz};
  13 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_trace passes data through correctly');
  14 is( $var_log->var, <<'OUT', 'Output for Dlog_trace is correct');
  15 tLook ma, data: "frew"
  16 "bar"
  17 "baz"
  18 OUT
  19
  20 my $bar = DlogS_trace { "Look ma, data: $_" } [qw{frew bar baz}];
  21 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_trace passes data through correctly');
  22 is( $var_log->var, <<'OUT', 'Output for DlogS_trace is correct');
  23 tLook ma, data: [
  24   "frew",
  25   "bar",
  26   "baz"
  27 ]
  28 OUT
  29 }
  30
  31
  32 {
  33 my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz};
  34 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly');
  35 is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct');
  36 dLook ma, data: "frew"
  37 "bar"
  38 "baz"
  39 OUT
  40
  41 my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}];
  42 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly');
  43 is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct');
  44 dLook ma, data: [
  45   "frew",
  46   "bar",
  47   "baz"
  48 ]
  49 OUT
  50 }
  51
  52
  53 {
  54 my @foo = Dlog_info { "Look ma, data: $_" } qw{frew bar baz};
  55 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_info passes data through correctly');
  56 is( $var_log->var, <<'OUT', 'Output for Dlog_info is correct');
  57 iLook ma, data: "frew"
  58 "bar"
  59 "baz"
  60 OUT
  61
  62 my $bar = DlogS_info { "Look ma, data: $_" } [qw{frew bar baz}];
  63 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_info passes data through correctly');
  64 is( $var_log->var, <<'OUT', 'Output for DlogS_info is correct');
  65 iLook ma, data: [
  66   "frew",
  67   "bar",
  68   "baz"
  69 ]
  70 OUT
  71 }
  72
  73
  74 {
  75 my @foo = Dlog_warn { "Look ma, data: $_" } qw{frew bar baz};
  76 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_warn passes data through correctly');
  77 is( $var_log->var, <<'OUT', 'Output for Dlog_warn is correct');
  78 wLook ma, data: "frew"
  79 "bar"
  80 "baz"
  81 OUT
  82
  83 my $bar = DlogS_warn { "Look ma, data: $_" } [qw{frew bar baz}];
  84 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_warn passes data through correctly');
  85 is( $var_log->var, <<'OUT', 'Output for DlogS_warn is correct');
  86 wLook ma, data: [
  87   "frew",
  88   "bar",
  89   "baz"
  90 ]
  91 OUT
  92 }
  93
  94
  95 {
  96 my @foo = Dlog_error { "Look ma, data: $_" } qw{frew bar baz};
  97 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_error passes data through correctly');
  98 is( $var_log->var, <<'OUT', 'Output for Dlog_error is correct');
  99 eLook ma, data: "frew"
 100 "bar"
 101 "baz"
 102 OUT
 103
 104 my $bar = DlogS_error { "Look ma, data: $_" } [qw{frew bar baz}];
 105 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_error passes data through correctly');
 106 is( $var_log->var, <<'OUT', 'Output for DlogS_error is correct');
 107 eLook ma, data: [
 108   "frew",
 109   "bar",
 110   "baz"
 111 ]
 112 OUT
 113 }
 114
 115
 116 {
 117 my @foo = Dlog_fatal { "Look ma, data: $_" } qw{frew bar baz};
 118 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_fatal passes data through correctly');
 119 is( $var_log->var, <<'OUT', 'Output for Dlog_fatal is correct');
 120 fLook ma, data: "frew"
 121 "bar"
 122 "baz"
 123 OUT
 124
 125 my $bar = DlogS_fatal { "Look ma, data: $_" } [qw{frew bar baz}];
 126 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_fatal passes data through correctly');
 127 is( $var_log->var, <<'OUT', 'Output for DlogS_fatal is correct');
 128 fLook ma, data: [
 129   "frew",
 130   "bar",
 131   "baz"
 132 ]
 133 OUT
 134 }