Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
000_load.t	159 B	-r--r--r--	2014-12-27 11:48
001_utf8.t	1.11 KB	-r--r--r--	2014-12-27 11:48
002_error.t	2.54 KB	-r--r--r--	2014-12-27 11:48
003_types.t	2.26 KB	-r--r--r--	2014-12-27 11:48
006_pc_pretty.t	1.28 KB	-r--r--r--	2014-12-27 11:48
007_pc_esc.t	2.02 KB	-r--r--r--	2014-12-27 11:48
008_pc_base.t	2.1 KB	-r--r--r--	2014-12-27 11:48
009_pc_extra_number.t	752 B	-r--r--r--	2014-12-27 11:48
010_pc_keysort.t	473 B	-r--r--r--	2014-12-27 11:48
011_pc_expo.t	1.06 KB	-r--r--r--	2014-12-27 11:48
012_blessed.t	1.46 KB	-r--r--r--	2014-12-27 11:48
013_limit.t	855 B	-r--r--r--	2014-12-27 11:48
014_latin1.t	652 B	-r--r--r--	2014-12-27 11:48
015_prefix.t	459 B	-r--r--r--	2014-12-27 11:48
016_tied.t	387 B	-r--r--r--	2014-12-27 11:48
017_relaxed.t	710 B	-r--r--r--	2014-12-27 11:48
018_json_checker.t	3.83 KB	-r--r--r--	2014-12-27 11:48
019_incr.t	5.05 KB	-r--r--r--	2014-12-27 11:48
020_unknown.t	1.03 KB	-r--r--r--	2014-12-27 11:48
021_evans_bugrep.t	831 B	-r--r--r--	2014-12-27 11:48
022_comment_at_eof.t	1.36 KB	-r--r--r--	2014-12-27 11:48
099_binary.t	1.65 KB	-r--r--r--	2014-12-27 11:48
104_sortby.t	656 B	-r--r--r--	2014-12-27 11:48
105_esc_slash.t	285 B	-r--r--r--	2014-12-27 11:48
106_allow_barekey.t	362 B	-r--r--r--	2014-12-27 11:48
107_allow_singlequote.t	486 B	-r--r--r--	2014-12-27 11:48
108_decode.t	776 B	-r--r--r--	2014-12-27 11:48
109_encode.t	833 B	-r--r--r--	2014-12-27 11:48
110_bignum.t	852 B	-r--r--r--	2014-12-27 11:48
112_upgrade.t	583 B	-r--r--r--	2014-12-27 11:48
113_overloaded_eq.t	946 B	-r--r--r--	2014-12-27 11:48
114_decode_prefix.t	808 B	-r--r--r--	2014-12-27 11:48
115_tie_ixhash.t	729 B	-r--r--r--	2014-12-27 11:48
116_incr_parse_fixed.t	408 B	-r--r--r--	2014-12-27 11:48
_unicode_handling.pm	477 B	-r--r--r--	2014-12-27 11:48

Rename

#! perl

# use the testsuite from http://www.json.org/JSON::PP_checker/
# except for fail18.json, as we do not support a depth of 20 (but 16 and 32).

# copied over from JSON::PP::XS and modified to use JSON::PP

use strict;
#no warnings;
local $^W = undef;
use Test::More;
BEGIN { plan tests => 39 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }

use JSON::PP;

my $json = JSON::PP->new->utf8->max_depth(32)->canonical;

binmode DATA;
my $num = 1;
for (;;) {

$/ = "\n# ";
   chomp (my $test = <DATA>)
      or last;
   $/ = "\n";
   my $name = <DATA>;
   if (my $perl = eval { $json->decode ($test) }) {
      ok ($name =~ /^pass/, $name);
#print $json->encode ($perl), "\n";
      is ($json->encode ($json->decode ($json->encode ($perl))), $json->encode ($perl));
   } else {
      ok ($name =~ /^fail/, "$name ($@)");
   }

}

__DATA__
"A JSON::PP payload should be an object or array, not a string."
# fail1.json
{"Extra value after close": true} "misplaced quoted value"
# fail10.json
{"Illegal expression": 1 + 2}
# fail11.json
{"Illegal invocation": alert()}
# fail12.json
{"Numbers cannot have leading zeroes": 013}
# fail13.json
{"Numbers cannot be hex": 0x14}
# fail14.json
["Illegal backslash escape: \x15"]
# fail15.json
[\naked]
# fail16.json
["Illegal backslash escape: \017"]
# fail17.json
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[["Too deep"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
# fail18.json
{"Missing colon" null}
# fail19.json
["Unclosed array"
# fail2.json
{"Double colon":: null}
# fail20.json
{"Comma instead of colon", null}
# fail21.json
["Colon instead of comma": false]
# fail22.json
["Bad value", truth]
# fail23.json
['single quote']
# fail24.json
["	tab	character	in	string	"]
# fail25.json
["tab\   character\   in\  string\  "]
# fail26.json
["line
break"]
# fail27.json
["line\
break"]
# fail28.json
[0e]
# fail29.json
{unquoted_key: "keys must be quoted"}
# fail3.json
[0e+]
# fail30.json
[0e+-1]
# fail31.json
{"Comma instead if closing brace": true,
# fail32.json
["mismatch"}
# fail33.json
["extra comma",]
# fail4.json
["double extra comma",,]
# fail5.json
[   , "<-- missing value"]
# fail6.json
["Comma after the close"],
# fail7.json
["Extra close"]]
# fail8.json
{"Extra comma": true,}
# fail9.json
[
    "JSON::PP Test Pattern pass1",
    {"object with 1 member":["array with 1 element"]},
    {},
    [],
    -42,
    true,
    false,
    null,
    {
        "integer": 1234567890,
        "real": -9876.543210,
        "e": 0.123456789e-12,
        "E": 1.234567890E+34,
        "":  23456789012E66,
        "zero": 0,
        "one": 1,
        "space": " ",
        "quote": "\"",
        "backslash": "\\",
        "controls": "\b\f\n\r\t",
        "slash": "/ & \/",
        "alpha": "abcdefghijklmnopqrstuvwyz",
        "ALPHA": "ABCDEFGHIJKLMNOPQRSTUVWYZ",
        "digit": "0123456789",
        "0123456789": "digit",
        "special": "`1~!@#$%^&*()_+-={':[,]}|;.</>?",
        "hex": "\u0123\u4567\u89AB\uCDEF\uabcd\uef4A",
        "true": true,
        "false": false,
        "null": null,
        "array":[  ],
        "object":{  },
        "address": "50 St. James Street",
        "url": "http://www.JSON::PP.org/",
        "comment": "// /*  */": " ",
        " s p a c e d " :[1,2 , 3

4 , 5        ,          6           ,7        ],"compact":[1,2,3,4,5,6,7],
        "jsontext": "{\"object with 1 member\":[\"array with 1 element\"]}",
        "quotes": "&#34; \u0022 %22 0x22 034 &#x22;",
        "\/\\\"\uCAFE\uBABE\uAB98\uFCDE\ubcda\uef4A\b\f\n\r\t`1~!@#$%^&*()_+-=[]{}|;:',./<>?"
: "A key can be any string"
    },
    0.5 ,98.6
,
99.44
,

1066,
1e1,
0.1e1,
1e-1,
1e00,2e+00,2e-00
,"rosebud"]
# pass1.json
[[[[[[[[[[[[[[[[[[["Not too deep"]]]]]]]]]]]]]]]]]]]
# pass2.json
{
    "JSON::PP Test Pattern pass3": {
        "The outermost value": "must be an object or array.",
        "In this test": "It is an object."
    }
}

# pass3.json