t/sugar.t

   1 use strict;
   2 use warnings;
   3 use Data::Dumper::Concise::Sugar;
   4
   5 use Data::Dumper::Concise ();
   6
   7 use Test::More qw(no_plan);
   8
   9 my $warned_string;
  10
  11 BEGIN {
  12    $SIG{'__WARN__'} = sub {
  13       $warned_string = $_[0]
  14    }
  15 }
  16
  17 my @foo = Dwarn 'warn', 'friend';
  18 is $warned_string,qq{"warn"\n"friend"\n}, 'Dwarn warns';
  19
  20 ok eq_array(\@foo, ['warn','friend']), 'Dwarn passes through correctly';
  21
  22 my $bar = DwarnS 'robot',2,3;
  23 is $warned_string,qq{"robot"\n}, 'DwarnS warns';
  24 is $bar, 'robot', 'DwarnS passes through correctly';