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

Comparing CBOR-XS/t/57_incr.t (file contents):
Revision 1.1 by root, Tue Dec 10 13:54:40 2013 UTC vs.
Revision 1.4 by root, Tue Dec 10 15:31:40 2013 UTC

1BEGIN { $| = 1; print "1..21\n"; } 1BEGIN { $| = 1; print "1..141\n"; }
2 2
3use CBOR::XS; 3use CBOR::XS;
4 4
5print "ok 1\n"; 5print "ok 1\n";
6my $tst = 0; 6my $tst = 1;
7 7
8sub tst($$) { 8sub tst($$) {
9 my ($cbor, $correct) = @_; 9 my ($cbor, $correct) = @_;
10 10
11 my $dec = CBOR::XS->new;
12
13 # chop
11 for my $step (1 .. length $cbor) { 14 for my $step (1 .. length $cbor) {
12 my $dec = CBOR::XS->new;
13 my $buf = ""; 15 my $buf = "";
14 my @cbor; 16 my @cbor;
15 17
18 $dec->incr_reset;
19
16 for (unpack "(a$step)*", $cbor) { 20 for (unpack "(a$step)*", $cbor) {
17 $buf .= $_; 21 $buf .= $_;
18 push @cbor, $dec->incr_parse ($buf, 1); 22 push @cbor, $dec->incr_parse_multiple ($buf);
19 } 23 }
20 24
21 print length $buf ? "not " : "", "ok ", ++$tst, "\n"; 25 print length $buf ? "not " : "", "ok ", ++$tst, "\n";
22 26
23 my $enc = join " ", map +(unpack "H*", encode_cbor $_), @cbor; 27 my $enc = join " ", map +(unpack "H*", encode_cbor $_), @cbor;

Diff Legend

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