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
   8 use Log::Contextual qw{:dlog set_logger};
   9
  10 my $var_log =  VarLogger->new;
  11
  12 set_logger(sub { $var_log });
  13 my @foo = Dlog_debug { "Look ma, data: $_" } qw{frew bar baz};
  14 ok( eq_array(\@foo, [qw{frew bar baz}]), 'Dlog_debug passes data through correctly');
  15 is( $var_log->var, <<'OUT', 'Output for Dlog_debug is correct');
  16 Look ma, data: "frew"
  17 "bar"
  18 "baz"
  19 OUT
  20 my $bar = DlogS_debug { "Look ma, data: $_" } [qw{frew bar baz}];
  21 ok( eq_array($bar, [qw{frew bar baz}]), 'DlogS_debug passes data through correctly');
  22 is( $var_log->var, <<'OUT', 'Output for DlogS_debug is correct');
  23 Look ma, data: [
  24   "frew",
  25   "bar",
  26   "baz"
  27 ]
  28 OUT
  29