--- CBOR-XS/t/57_incr.t	2013/12/10 14:53:18	1.3
+++ CBOR-XS/t/57_incr.t	2013/12/10 15:31:40	1.4
@@ -8,15 +8,18 @@
 sub tst($$) {
    my ($cbor, $correct) = @_;
 
+   my $dec = CBOR::XS->new;
+
    # chop
    for my $step (1 .. length $cbor) {
-      my $dec = CBOR::XS->new;
       my $buf = "";
       my @cbor;
 
+      $dec->incr_reset;
+
       for (unpack "(a$step)*", $cbor) {
          $buf .= $_;
-         push @cbor, $dec->incr_parse ($buf);
+         push @cbor, $dec->incr_parse_multiple ($buf);
       }
 
       print length $buf ? "not " : "", "ok ", ++$tst, "\n";