1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A unless(grep /blib/, @INC) {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A }
1N/A}
1N/A
1N/Aif ($^O eq 'mpeix') {
1N/A print "1..0 # Skip: broken on MPE/iX\n";
1N/A exit 0;
1N/A}
1N/A
1N/Aselect(STDERR); $| = 1;
1N/Aselect(STDOUT); $| = 1;
1N/A
1N/Aprint "1..10\n";
1N/A
1N/Ause IO::Handle;
1N/Ause IO::Poll qw(/POLL/);
1N/A
1N/Amy $poll = new IO::Poll;
1N/A
1N/Amy $stdout = \*STDOUT;
1N/Amy $dupout = IO::Handle->new_from_fd(fileno($stdout),"w");
1N/A
1N/A$poll->mask($stdout => POLLOUT);
1N/A
1N/Aprint "not "
1N/A unless $poll->mask($stdout) == POLLOUT;
1N/Aprint "ok 1\n";
1N/A
1N/A$poll->mask($dupout => POLLPRI);
1N/A
1N/Aprint "not "
1N/A unless $poll->mask($dupout) == POLLPRI;
1N/Aprint "ok 2\n";
1N/A
1N/A$poll->poll(0.1);
1N/A
1N/Aif ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS' || $^O eq 'beos') {
1N/Aprint "ok 3 # skipped, doesn't work on non-socket fds\n";
1N/Aprint "ok 4 # skipped, doesn't work on non-socket fds\n";
1N/A}
1N/Aelse {
1N/Aprint "not "
1N/A unless $poll->events($stdout) == POLLOUT;
1N/Aprint "ok 3\n";
1N/A
1N/Aprint "not "
1N/A if $poll->events($dupout);
1N/Aprint "ok 4\n";
1N/A}
1N/A
1N/Amy @h = $poll->handles;
1N/Aprint "not "
1N/A unless @h == 2;
1N/Aprint "ok 5\n";
1N/A
1N/A$poll->remove($stdout);
1N/A
1N/A@h = $poll->handles;
1N/A
1N/Aprint "not "
1N/A unless @h == 1;
1N/Aprint "ok 6\n";
1N/A
1N/Aprint "not "
1N/A if $poll->mask($stdout);
1N/Aprint "ok 7\n";
1N/A
1N/A$poll->poll(0.1);
1N/A
1N/Aprint "not "
1N/A if $poll->events($stdout);
1N/Aprint "ok 8\n";
1N/A
1N/A$poll->remove($dupout);
1N/Aprint "not "
1N/A if $poll->handles;
1N/Aprint "ok 9\n";
1N/A
1N/Amy $stdin = \*STDIN;
1N/A$poll->mask($stdin => POLLIN);
1N/A$poll->remove($stdin);
1N/Aclose STDIN;
1N/Aprint "not "
1N/A if $poll->poll(0.1);
1N/Aprint "ok 10\n";