--- AnyEvent/t/handle/02_write.t	2008/05/15 09:03:43	1.3
+++ 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,23 +32,22 @@
 
 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";
-
    $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 5 - fourth write\n";
 
-   $rd_ae->push_read_chunk (1, sub {
-      print "ok 6 - second read chunk\n";
-      $cv->broadcast
+      $rd_ae->push_read (chunk => 1, sub {
+         print "ok 6 - second read chunk\n";
+         $cv->broadcast
+      });
    });
 });