X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsugar.t;h=c5abd70860584f6d14112813cde84d2be84b6b55;hb=4aab360553cca9fc8b7be05bd6134928cf016ce3;hp=737541504d6a3d909ff6c743d9a694d4403aa705;hpb=e6746e6495d3aae4e1f13f763a5ab2c39682fde1;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/t/sugar.t b/t/sugar.t
index 7375415..c5abd70 100644
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -34,6 +34,42 @@ 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';
 }
+
+DWARN_CODEREF: {
+   my $foo = ['warn', 'friend']->$Dwarn;
+   like $warned_string,qr{^\[\n  "warn",\n  "friend",?\n\]\n\z}, 'Dwarn warns lists';
+
+   ok eq_array($foo, ['warn','friend']), 'Dwarn passes lists through correctly';
+}
+
+DWARNF: {
+   my @foo = DwarnF { "arr: $_[0] str: $_[1]" } [qw(wut HALP)], "gnarl";
+
+   like($warned_string, qr{^arr: \[\n  "wut",\n  "HALP",?\n\]\n str: "gnarl"\n\z}, 'DumperF works!');
+   ok eq_array($foo[0], ['wut','HALP']) && $foo[1] eq 'gnarl', 'DwarnF passes lists through correctly';
+}
+
+DWARNN: {
+   my $loaded = eval { require Devel::ArgNames; 1 };
+   if ($loaded) {
+      my $x = [1];
+      my $foo = DwarnN $x;
+      like $warned_string, qr{^\$x => \[\n  1,?\n\]\n\z}, 'DwarnN warns';
+
+      ok eq_array($foo, [1]), 'DwarnN passes through correctly';
+
+      DwarnN [1];
+      like $warned_string, qr{^\(anon\) => \[\n  1,?\n\]\n\z}, 'DwarnN warns';
+   }
+}
+
+DDIE: {
+   eval {
+      DdieS [ 'k', 'bar' ];
+   };
+   like $@, qr{^\[\n  "k",\n  "bar",?\n\]\n\z}, 'DwarnD dies output correctly';
+}
+