X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsugar.t;h=8c1dba003345c77525e1aca11bd522ebf53b556b;hb=refs%2Ftags%2Fv2.012;hp=e72955fe7358c2c083c52ff8dffb205ebc44d0b7;hpb=0deeb75fab1e92bc66dd345ed084fe29338ba013;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/t/sugar.t b/t/sugar.t
index e72955f..8c1dba0 100644
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -38,14 +38,24 @@ DWARN: {
    is $bar, 'robot', 'Dwarn passes scalars through correctly';
 }
 
+DWARN_CODEREF: {
+   my $foo = ['warn', 'friend']->$Dwarn;
+   is $warned_string,qq{[\n  "warn",\n  "friend"\n]\n}, 'Dwarn warns lists';
+
+   ok eq_array($foo, ['warn','friend']), 'Dwarn passes lists through correctly';
+}
+
 DWARNN: {
-   my $x = [1];
-   my $foo = DwarnN $x;
-   is $warned_string, qq{\$x => [\n  1\n]\n}, 'DwarnN warns';
+   my $loaded = eval { require Devel::ArgNames; 1 };
+   if ($loaded) {
+      my $x = [1];
+      my $foo = DwarnN $x;
+      is $warned_string, qq{\$x => [\n  1\n]\n}, 'DwarnN warns';
 
-   ok eq_array($foo, [1]), 'DwarnN passes through correctly';
+      ok eq_array($foo, [1]), 'DwarnN passes through correctly';
 
-   DwarnN [1];
-   is $warned_string, qq{(anon) => [\n  1\n]\n}, 'DwarnN warns';
+      DwarnN [1];
+      is $warned_string, qq{(anon) => [\n  1\n]\n}, 'DwarnN warns';
+   }
 }