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=817f4addb131a78431dfc98041b93dc0742bd90d;hp=8c1dba003345c77525e1aca11bd522ebf53b556b;hb=92264889a0f278aa61cdee48aef484496fb6e5ce;hpb=452e7ff29c95f7771bf5efd31c24cfb6f2d7b2bb

diff --git a/t/sugar.t b/t/sugar.t
index 8c1dba0..817f4ad 100644
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -45,6 +45,13 @@ DWARN_CODEREF: {
    ok eq_array($foo, ['warn','friend']), 'Dwarn passes lists through correctly';
 }
 
+DWARNF: {
+   my @foo = DwarnF { "arr: $_[0] str: $_[1]" } [qw(wut HALP)], "gnarl";
+
+   is($warned_string, qq{arr: [\n  "wut",\n  "HALP"\n]\n str: "gnarl"\n}, '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) {