--- JSON-XS/t/03_types.t	2007/06/23 23:49:29	1.5
+++ JSON-XS/t/03_types.t	2007/07/23 22:57:40	1.6
@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..75\n"; }
+BEGIN { $| = 1; print "1..76\n"; }
 
 use utf8;
 use JSON::XS;
@@ -54,3 +54,6 @@
 ok (32767 == ((from_json to_json [32767])->[0]));
 ok (32768 == ((from_json to_json [32768])->[0]));
 
+my @sparse; @sparse[0,3] = (1, 4);
+ok ("[1,null,null,4]" eq to_json \@sparse);
+