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.4 by root, Sun Jun 22 12:05:49 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 => 697 }; 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
32{ 42{
33 my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}'; 43 my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}';
34 my $coder = new JSON::XS; 44 my $coder = new JSON::XS;
35 for (0 .. length $text) { 45 for (0 .. length $text) {

Diff Legend

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