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 my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz};
  32 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly');
  33 is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct');
  34 dLook ma, data: "frew"
  35 "bar"
  36 "baz"
  37 OUT
  38
  39 my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}];
  40 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly');
  41 is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct');
  42 dLook ma, data: [
  43   "frew",
  44   "bar",
  45   "baz"
  46 ]
  47 OUT
  48
  49
  50 my @foo = Dlog_info { "Look ma, data: $_" } qw{frew bar baz};
  51 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_info passes data through correctly');
  52 is( $var_log->var, <<'OUT', 'Output for Dlog_info is correct');
  53 iLook ma, data: "frew"
  54 "bar"
  55 "baz"
  56 OUT
  57
  58 my $bar = DlogS_info { "Look ma, data: $_" } [qw{frew bar baz}];
  59 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_info passes data through correctly');
  60 is( $var_log->var, <<'OUT', 'Output for DlogS_info is correct');
  61 iLook ma, data: [
  62   "frew",
  63   "bar",
  64   "baz"
  65 ]
  66 OUT
  67
  68
  69 my @foo = Dlog_warn { "Look ma, data: $_" } qw{frew bar baz};
  70 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_warn passes data through correctly');
  71 is( $var_log->var, <<'OUT', 'Output for Dlog_warn is correct');
  72 wLook ma, data: "frew"
  73 "bar"
  74 "baz"
  75 OUT
  76
  77 my $bar = DlogS_warn { "Look ma, data: $_" } [qw{frew bar baz}];
  78 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_warn passes data through correctly');
  79 is( $var_log->var, <<'OUT', 'Output for DlogS_warn is correct');
  80 wLook ma, data: [
  81   "frew",
  82   "bar",
  83   "baz"
  84 ]
  85 OUT
  86
  87
  88 my @foo = Dlog_error { "Look ma, data: $_" } qw{frew bar baz};
  89 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_error passes data through correctly');
  90 is( $var_log->var, <<'OUT', 'Output for Dlog_error is correct');
  91 eLook ma, data: "frew"
  92 "bar"
  93 "baz"
  94 OUT
  95
  96 my $bar = DlogS_error { "Look ma, data: $_" } [qw{frew bar baz}];
  97 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_error passes data through correctly');
  98 is( $var_log->var, <<'OUT', 'Output for DlogS_error is correct');
  99 eLook ma, data: [
 100   "frew",
 101   "bar",
 102   "baz"
 103 ]
 104 OUT
 105
 106
 107 my @foo = Dlog_fatal { "Look ma, data: $_" } qw{frew bar baz};
 108 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_fatal passes data through correctly');
 109 is( $var_log->var, <<'OUT', 'Output for Dlog_fatal is correct');
 110 fLook ma, data: "frew"
 111 "bar"
 112 "baz"
 113 OUT
 114
 115 my $bar = DlogS_fatal { "Look ma, data: $_" } [qw{frew bar baz}];
 116 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_fatal passes data through correctly');
 117 is( $var_log->var, <<'OUT', 'Output for DlogS_fatal is correct');
 118 fLook ma, data: [
 119   "frew",
 120   "bar",
 121   "baz"
 122 ]
 123 OUT
 124