--- AnyEvent/t/handle/02_write.t	2008/05/21 14:27:58	1.4
+++ AnyEvent/t/handle/02_write.t	2008/05/24 23:15:14	1.6
@@ -1,5 +1,7 @@
 #!perl
+
 use strict;
+
 use AnyEvent::Impl::Perl;
 use AnyEvent::Handle;
 use Socket;
@@ -30,7 +32,7 @@
 
 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;
@@ -42,7 +44,7 @@
       $wr_ae->on_drain;
       print "ok 5 - fourth write\n";
 
-      $rd_ae->push_read_chunk (1, sub {
+      $rd_ae->push_read (chunk => 1, sub {
          print "ok 6 - second read chunk\n";
          $cv->broadcast
       });