X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FData-Dumper-Concise.git;a=blobdiff_plain;f=t%2Fsugar.t;fp=t%2Fsugar.t;h=2ccc009038df9cd87306cedb3fc5028b5ec09ca7;hp=20eb013115a381740c5cdfb2fc8de98155eb19f9;hb=0d51197846c3fe198ef94aa255efbbad77432d02;hpb=f717f5934bee3df4d972b7c7bf40d170127fb859 diff --git a/t/sugar.t b/t/sugar.t index 20eb013..2ccc009 100644 --- a/t/sugar.t +++ b/t/sugar.t @@ -34,7 +34,7 @@ DWARN: { ok eq_array(\@foo, ['warn','friend']), 'Dwarn passes lists through correctly'; my $bar = Dwarn 'robot',2,3; - is $warned_string,qq{"robot"\n}, 'Dwarn warns scalars correctly'; + is $warned_string,qq{"robot"\n2\n3\n}, 'Dwarn warns scalars correctly'; is $bar, 'robot', 'Dwarn passes scalars through correctly'; }