--- IO-AIO/t/07_feeder.t	2006/10/23 14:49:51	1.2
+++ IO-AIO/t/07_feeder.t	2008/05/10 18:06:41	1.5
@@ -14,20 +14,21 @@
 
 print "ok 1\n";
 
-$grp->feed_limit (5);
+limit $grp 5;
 $grp->feed (sub {
    return if $cn2 >= 10;
    $cn2++;
-   (add $grp IO::AIO::aio_sleep 0)->cb (sub {
+   aioreq_pri $cn2;
+   (add $grp IO::AIO::aio_busy 0)->cb (sub {
       $cn3++;
    });
 });
 
-print $cn2 == 5 ? "" : "not ", "ok 2\n";
-print $cn3 == 0 ? "" : "not ", "ok 3\n";
+print $cn2 == 5 ? "" : "not ", "ok 2 # $cn2 == 5\n";
+print $cn3 == 0 ? "" : "not ", "ok 3 # $cn3 == 0\n";
 
 IO::AIO::poll while IO::AIO::nreqs;
 
-print $cn2 == 10 ? "" : "not ", "ok 5\n";
-print $cn3 == 10 ? "" : "not ", "ok 6\n";
+print $cn2 == 10 ? "" : "not ", "ok 5 # $cn2 == 10\n";
+print $cn3 == 10 ? "" : "not ", "ok 6 # $cn2 == 10\n";