Fix-n-skip the tests under 5005threads.

[p5sagit/p5-mst-13.2.git] / t / lib / io_poll.t

diff --git a/t/lib/io_poll.t b/t/lib/io_poll.t
index c179ce9..925830e 100755 (executable)
--- a/t/lib/io_poll.t
+++ b/t/lib/io_poll.t
@@ -7,10 +7,15 @@ BEGIN {
     }
 }
 
+if ($^O eq 'mpeix') {
+    print "1..0 # Skip: broken on MPE/iX\n";
+    exit 0;
+}
+
 select(STDERR); $| = 1;
 select(STDOUT); $| = 1;
 
-print "1..8\n";
+print "1..9\n";
 
 use IO::Handle;
 use IO::Poll qw(/POLL/);
@@ -70,3 +75,8 @@ $poll->poll(0.1);
 print "not "
        if $poll->events($stdout);
 print "ok 8\n";
+
+$poll->remove($dupout);
+print "not "
+    if $poll->handles;
+print "ok 9\n";