1 files changed, 25 insertions, 0 deletions
diff --git a/t/21_evans.t b/t/21_evans.t
new file mode 100644
index 0000000..9136791
--- /dev/null
+++ b/t/21_evans.t
@@ -0,0 +1,25 @@
+# copied over from JSON::XS and modified to use JSON
+
+# adapted from a test by Martin Evans
+
+use strict;
+use warnings;
+
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+
+use JSON;
+
+print "1..1\n";
+
+my $data = ["\x{53f0}\x{6240}\x{306e}\x{6d41}\x{3057}",
+            "\x{6c60}\x{306e}\x{30ab}\x{30a8}\x{30eb}"];
+my $js = JSON->new->encode ($data);
+my $j = new JSON;
+my $object = $j->incr_parse ($js);
+
+die "no object" if !$object;
+
+eval { $j->incr_text };
+
+print $@ ? "not " : "", "ok 1 # $@\n";
+