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.5 by root, Thu May 23 09:31:32 2013 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) = @_;
… …
19 19
20 $coder->incr_parse ($a); 20 $coder->incr_parse ($a);
21 $coder->incr_parse ($b); 21 $coder->incr_parse ($b);
22 22
23 my $data = $coder->incr_parse; 23 my $data = $coder->incr_parse;
24 ok ($data); 24 #ok (defined $data, "split<$a><$b>");
25 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");
26 ok ($coder->incr_text =~ /^\s*$/, "tailws"); 31 ok ($coder->incr_text =~ /^\s*$/, "tailws");
27 } 32 }
28} 33}
29 34
30splitter +JSON::XS->new , ' ["x\\"","\\u1000\\\\n\\nx",1,{"\\\\" :5 , "": "x"}]'; 35splitter +JSON::XS->new->allow_nonref (0), ' ["x\\"","\\u1000\\\\n\\nx",1,{"\\\\" :5 , "": "x"}]';
31splitter +JSON::XS->new , '[ "x\\"","\\u1000\\\\n\\nx" , 1,{"\\\\ " :5 , "": " x"} ] '; 36splitter +JSON::XS->new->allow_nonref (0), '[ "x\\"","\\u1000\\\\n\\nx" , 1,{"\\\\ " :5 , "": " x"} ] ';
32splitter +JSON::XS->new->allow_nonref, '"test"'; 37splitter +JSON::XS->new , '"test"';
33splitter +JSON::XS->new->allow_nonref, ' "5" '; 38splitter +JSON::XS->new , ' "5" ';
39splitter +JSON::XS->new , '-1e5';
40splitter +JSON::XS->new , ' 0.00E+00 ';
34 41
35{ 42{
36 my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}'; 43 my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}';
37 my $coder = new JSON::XS; 44 my $coder = new JSON::XS;
38 for (0 .. length $text) { 45 for (0 .. length $text) {

Diff Legend

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