3 use Data::Dumper::Concise::Sugar;
5 use Data::Dumper::Concise ();
7 use Test::More qw(no_plan);
12 $SIG{'__WARN__'} = sub {
13 $warned_string = $_[0]
17 my @foo = Dwarn 'warn', 'friend';
18 is $warned_string,qq{"warn"\n"friend"\n}, 'Dwarn warns';
20 ok eq_array(\@foo, ['warn','friend']), 'Dwarn passes through correctly';
22 my $bar = DwarnS 'robot',2,3;
23 is $warned_string,qq{"robot"\n}, 'DwarnS warns';
24 is $bar, 'robot', 'DwarnS passes through correctly';