X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsugar.t;fp=t%2Fsugar.t;h=20eb013115a381740c5cdfb2fc8de98155eb19f9;hb=2566c738d28b5c6fd48615bd8a7a297d3e92cffd;hp=817f4addb131a78431dfc98041b93dc0742bd90d;hpb=92264889a0f278aa61cdee48aef484496fb6e5ce;p=p5sagit%2FData-Dumper-Concise.git

diff --git a/t/sugar.t b/t/sugar.t
index 817f4ad..20eb013 100644
--- a/t/sugar.t
+++ b/t/sugar.t
@@ -66,3 +66,10 @@ DWARNN: {
    }
 }
 
+DDIE: {
+   eval {
+      DdieS [ 'k', 'bar' ];
+   };
+   is $@, qq{[\n  "k",\n  "bar"\n]\n}, 'DwarnD dies output correctly';
+}
+