ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/t/19_incr.t
(Generate patch)

Comparing JSON-XS/t/19_incr.t (file contents):
Revision 1.1 by root, Tue Mar 25 06:37:39 2008 UTC vs.
Revision 1.6 by root, Thu Nov 15 22:35:35 2018 UTC

1#! perl 1#! perl
2 2
3use strict; 3use strict;
4no warnings; 4no warnings;
5use Test::More; 5use Test::More;
6BEGIN { plan tests => 686 }; 6BEGIN { plan tests => 745 };
7 7
8use JSON::XS; 8use JSON::XS;
9 9
10sub splitter { 10sub splitter {
11 my ($coder, $text) = @_; 11 my ($coder, $text) = @_;
12
13 # work around hash randomisation bug introduced in 5.18
14 $coder->canonical;
12 15
13 for (0 .. length $text) { 16 for (0 .. length $text) {
14 my $a = substr $text, 0, $_; 17 my $a = substr $text, 0, $_;
15 my $b = substr $text, $_; 18 my $b = substr $text, $_;
16 19
17 $coder->incr_parse ($a); 20 $coder->incr_parse ($a);
18 $coder->incr_parse ($b); 21 $coder->incr_parse ($b);
19 22
20 my $data = $coder->incr_parse; 23 my $data = $coder->incr_parse;
21 ok ($data); 24 #ok (defined $data, "split<$a><$b>");
22 ok ($coder->encode ($data) eq $coder->encode ($coder->decode ($text)), "data"); 25 ok (defined $data, "split");
26 my $e1 = $coder->encode ($data);
27 my $e2 = $coder->encode ($coder->decode ($text));
28 #ok ($e1 eq $e2, "data<$a><$b><$e1><$e2>");
29 #ok ($coder->incr_text =~ /^\s*$/, "tailws<$a><$b>");
30 ok ($e1 eq $e2, "data");
23 ok ($coder->incr_text =~ /^\s*$/, "tailws"); 31 ok ($coder->incr_text =~ /^\s*$/, "tailws");
24 } 32 }
25} 33}
26 34
27splitter +JSON::XS->new , ' ["x\\"","\\u1000\\\\n\\nx",1,{"\\\\" :5 , "": "x"}]'; 35splitter +JSON::XS->new->allow_nonref (0), ' ["x\\"","\\u1000\\\\n\\nx",1,{"\\\\" :5 , "": "x"}]';
28splitter +JSON::XS->new , '[ "x\\"","\\u1000\\\\n\\nx" , 1,{"\\\\ " :5 , "": " x"} ] '; 36splitter +JSON::XS->new->allow_nonref (0), '[ "x\\"","\\u1000\\\\n\\nx" , 1,{"\\\\ " :5 , "": " x"} ] ';
29splitter +JSON::XS->new->allow_nonref, '"test"'; 37splitter +JSON::XS->new , '"test"';
30splitter +JSON::XS->new->allow_nonref, ' "5" '; 38splitter +JSON::XS->new , ' "5" ';
39splitter +JSON::XS->new , '-1e5';
40splitter +JSON::XS->new , ' 0.00E+00 ';
31 41
42{
32my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}'; 43 my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}';
33my $coder = new JSON::XS; 44 my $coder = new JSON::XS;
34for (0 .. length $text) { 45 for (0 .. length $text) {
35 my $a = substr $text, 0, $_; 46 my $a = substr $text, 0, $_;
36 my $b = substr $text, $_; 47 my $b = substr $text, $_;
37 48
38 $coder->incr_parse ($a); 49 $coder->incr_parse ($a);
39 $coder->incr_parse ($b); 50 $coder->incr_parse ($b);
40 51
41 my $j1 = $coder->incr_parse; ok ($coder->incr_text =~ s/^\s*,//, "cskip1"); 52 my $j1 = $coder->incr_parse; ok ($coder->incr_text =~ s/^\s*,//, "cskip1");
42 my $j2 = $coder->incr_parse; ok ($coder->incr_text =~ s/^\s*,//, "cskip2"); 53 my $j2 = $coder->incr_parse; ok ($coder->incr_text =~ s/^\s*,//, "cskip2");
43 my $j3 = $coder->incr_parse; ok ($coder->incr_text =~ s/^\s*,//, "cskip3"); 54 my $j3 = $coder->incr_parse; ok ($coder->incr_text =~ s/^\s*,//, "cskip3");
44 my $j4 = $coder->incr_parse; ok ($coder->incr_text !~ s/^\s*,//, "cskip4"); 55 my $j4 = $coder->incr_parse; ok ($coder->incr_text !~ s/^\s*,//, "cskip4");
45 my $j5 = $coder->incr_parse; ok ($coder->incr_text !~ s/^\s*,//, "cskip5"); 56 my $j5 = $coder->incr_parse; ok ($coder->incr_text !~ s/^\s*,//, "cskip5");
46 57
47 ok ('[5]' eq encode_json $j1, "cjson1"); 58 ok ('[5]' eq encode_json $j1, "cjson1");
48 ok ('{"":1}' eq encode_json $j2, "cjson2"); 59 ok ('{"":1}' eq encode_json $j2, "cjson2");
49 ok ('[1,2,3]' eq encode_json $j3, "cjson3"); 60 ok ('[1,2,3]' eq encode_json $j3, "cjson3");
50 ok ('{"3":null}' eq encode_json $j4, "cjson4"); 61 ok ('{"3":null}' eq encode_json $j4, "cjson4");
51 ok (!defined $j5, "cjson5"); 62 ok (!defined $j5, "cjson5");
63 }
52} 64}
53 65
66{
67 my $text = '[x][5]';
68 my $coder = new JSON::XS;
69 $coder->incr_parse ($text);
70 ok (!eval { $coder->incr_parse }, "sparse1");
71 ok (!eval { $coder->incr_parse }, "sparse2");
72 $coder->incr_skip;
73 ok ('[5]' eq $coder->encode (scalar $coder->incr_parse), "sparse3");
74}
75
76{
77 my $coder = JSON::XS->new->max_size (5);
78 ok (!$coder->incr_parse ("[ "), "incsize1");
79 eval { !$coder->incr_parse ("] ") }; ok ($@ =~ /6 bytes/, "incsize2 $@");
80}
81
82{
83 my $coder = JSON::XS->new->max_depth (3);
84 ok (!$coder->incr_parse ("[[["), "incdepth1");
85 eval { !$coder->incr_parse (" [] ") }; ok ($@ =~ /maximum nesting/, "incdepth2 $@");
86}
87
88# contributed by yuval kogman, reformatted to fit style
89{
90 my $coder = JSON::XS->new;
91
92 my $res = eval { $coder->incr_parse("]") };
93 my $e = $@; # test more clobbers $@, we need it twice
94
95 ok (!$res, "unbalanced bracket");
96 ok ($e, "got error");
97 like ($e, qr/malformed/, "malformed json string error");
98
99 $coder->incr_skip;
100
101 is_deeply (eval { $coder->incr_parse("[42]") }, [42], "valid data after incr_skip");
102}
103
104

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines