--- JSON-XS/t/22_comment_at_eof.t 2010/01/06 08:01:39 1.1 +++ JSON-XS/t/22_comment_at_eof.t 2010/01/07 06:35:43 1.3 @@ -1,9 +1,9 @@ -# provided by makamaka@donzoko.net. +# provided by IKEGAMI@cpan.org use strict; use warnings; -use Test::More tests => 11; +use Test::More tests => 13; use JSON::XS; @@ -34,6 +34,7 @@ is( decoder( "# foo\n[]" ), '[]', 'comment ignored before array' ); is( decoder( "# fo[o\n[]"), '[]', 'comment ignored before array' ); is( decoder( "# fo]o\n[]"), '[]', 'comment ignored before array' ); +is( decoder( "[# fo]o\n]"), '[]', 'comment ignored inside array' ); is( decoder( "" ), 'undef', 'eof baseline' ); is( decoder( " " ), 'undef', 'space ignored before eof' ); @@ -41,3 +42,5 @@ is( decoder( "#,foo\n" ), 'undef', 'comment ignored before eof' ); is( decoder( "# []o\n" ), 'undef', 'comment ignored before eof' ); +is( decoder(qq/#\n[#foo\n"#\\n"#\n]/), '["#\n"]', 'array and string in multiple lines' ); +