--- IO-AIO/t/04_fork.t	2005/08/17 05:06:59	1.2
+++ IO-AIO/t/04_fork.t	2011/07/17 04:20:04	1.8
@@ -1,33 +1,49 @@
 #!/usr/bin/perl
 
+BEGIN {
+   if ($^O ne "linux") {
+      print qq{1..0 # SKIP only linux supports pthreads + fork\n};
+      exit 0;
+   }
+}
+
 use Test;
 use IO::AIO;
 
 # this is a lame test, but....
 
-BEGIN { plan tests => 8 }
+BEGIN { plan tests => 10 }
 
 IO::AIO::min_parallel 2;
 
+IO::AIO::aio_nop sub {
+   print "ok 6\n";
+};
+
+IO::AIO::aio_busy 1, sub {
+   print "ok 8\n";
+
+};
+
 print "ok 1\n";
 
 if (open FH, "-|") {
    print while <FH>;
    aio_stat "/", sub {
-      print "ok 6\n";
+      print "ok 7\n";
    };
    print "ok 5\n";
-   IO::AIO::poll;
-   print "ok 7\n";
+   IO::AIO::poll while IO::AIO::nreqs;
+   print "ok 9\n";
 } else {
    print "ok 2\n";
    aio_stat "/", sub {
       print "ok 3\n";
    };
-   IO::AIO::poll;
+   IO::AIO::poll while IO::AIO::nreqs;
    print "ok 4\n";
    exit;
 }
 
-print "ok 8\n";
+print "ok 10\n";