3 use Data::Dumper::Concise::Sugar;
5 use Data::Dumper::Concise ();
7 use Test::More qw(no_plan);
12 @foo = Dwarn 'warn', 'friend';
13 } [qr/"warn"/,qr/friend/], "Dwarn warns";
15 ok eq_array(\@foo, ['warn']), 'Dwarn passes through correctly';
19 $bar = DwarnS 'robot',2,3;
20 } qr{^"robot"$}, "DwarnS warns";
22 is $bar, 'robot', 'DwarnS passes through correctly';