X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdom.t;h=ee3fe5f9b2bdd7849a38a1b33ae24eed7b4fd652;hb=dbff35d446a6229bd6b6de1e3b9351ab0702fc57;hp=d80a3c33aa2c0d063a292e0ab329961401c0c240;hpb=e5227dad64c9dd23a3712c31626208e3b85e4026;p=catagits%2FDOM-Tiny.git

diff --git a/t/dom.t b/t/dom.t
index d80a3c3..ee3fe5f 100644
--- a/t/dom.t
+++ b/t/dom.t
@@ -3,6 +3,7 @@ use warnings;
 use utf8;
 use Test::More;
 use DOM::Tiny;
+use JSON::PP ();
 
 # Empty
 is(DOM::Tiny->new,                     '',    'right result');
@@ -2501,4 +2502,7 @@ $dom = DOM::Tiny->new($huge);
 is $dom->all_text, 'works', 'right text';
 is "$dom", $huge, 'right result';
 
+# TO_JSON
+is +JSON::PP->new->convert_blessed->encode([DOM::Tiny->new('<a></a>')]), '["<a></a>"]', 'right result';
+
 done_testing();