--- CBOR-XS/t/57_incr.t	2013/12/10 13:54:40	1.1
+++ CBOR-XS/t/57_incr.t	2013/12/10 14:01:53	1.2
@@ -1,4 +1,4 @@
-BEGIN { $| = 1; print "1..21\n"; }
+BEGIN { $| = 1; print "1..140\n"; }
 
 use CBOR::XS;
 
@@ -8,6 +8,7 @@
 sub tst($$) {
    my ($cbor, $correct) = @_;
 
+   # chop
    for my $step (1 .. length $cbor) {
       my $dec = CBOR::XS->new;
       my $buf = "";
@@ -15,7 +16,7 @@
 
       for (unpack "(a$step)*", $cbor) {
          $buf .= $_;
-         push @cbor, $dec->incr_parse ($buf, 1);
+         push @cbor, $dec->incr_parse ($buf);
       }
 
       print length $buf ? "not " : "", "ok ", ++$tst, "\n";