--- AnyEvent/t/handle/02_write.t	2008/05/21 14:27:58	1.4
+++ AnyEvent/t/handle/02_write.t	2008/07/04 12:21:58	1.8
@@ -1,5 +1,7 @@
 #!perl
+
 use strict;
+
 use AnyEvent::Impl::Perl;
 use AnyEvent::Handle;
 use Socket;
@@ -30,22 +32,24 @@
 
 my $dat = '';
 
-$rd_ae->push_read_chunk (5132, sub {
+$rd_ae->push_read (chunk => 5132, sub {
    my ($rd_ae, $data) = @_;
    $dat = substr $data, 0, 2;
    $dat .= substr $data, -5;
 
    print "ok 4 - first read chunk\n";
+   my $n = 5;
    $wr_ae->push_write ("A" x 5000);
    $wr_ae->on_drain (sub {
       my ($wr_ae) = @_;
       $wr_ae->on_drain;
-      print "ok 5 - fourth write\n";
+      print "ok " . $n++ . " - fourth write\n";
 
-      $rd_ae->push_read_chunk (1, sub {
-         print "ok 6 - second read chunk\n";
-         $cv->broadcast
-      });
+   });
+
+   $rd_ae->push_read (chunk => 5000, sub {
+      print "ok " . $n++ . " - second read chunk\n";
+      $cv->broadcast
    });
 });