--- AnyEvent/t/handle/02_write.t	2008/05/24 23:15:14	1.6
+++ AnyEvent/t/handle/02_write.t	2008/07/04 12:19:00	1.7
@@ -38,16 +38,18 @@
    $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 => 1, sub {
+      print "ok " . $n++ . " - second read chunk\n";
+      $cv->broadcast
    });
 });