X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FData-Dumper-Concise.git;a=blobdiff_plain;f=t%2Fconcise.t;fp=t%2Fconcise.t;h=20e3512ad37509f4383a8e6ea48cc1e038d05b7d;hp=df5e48fc9dd89f8c6ac13e81bc2d5217333d86c0;hb=92264889a0f278aa61cdee48aef484496fb6e5ce;hpb=452e7ff29c95f7771bf5efd31c24cfb6f2d7b2bb

diff --git a/t/concise.t b/t/concise.t
index df5e48f..20e3512 100644
--- a/t/concise.t
+++ b/t/concise.t
@@ -33,3 +33,7 @@ foreach my $to_dump (
 
   is($example, Dumper(@$to_dump), 'Subroutine call usage equivalent');
 }
+
+my $out = DumperF { "arr: $_[0] str: $_[1]" } [qw(wut HALP)], "gnarl";
+
+is($out, qq{arr: [\n  "wut",\n  "HALP"\n]\n str: "gnarl"\n}, 'DumperF works!');