diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-28 21:00:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-28 21:00:00 +0000 |
| commit | c8aac49750e64fa298173e55691b4af8a48992fe (patch) | |
| tree | 449d50707f07c5700ac42fbfbc0f4a99ad8e4deb /t/lib/io_poll.t | |
| parent | 0185066f9a43dc5a4d6cf84b0d34d31afa12c47d (diff) | |
| download | perl-c8aac49750e64fa298173e55691b4af8a48992fe.tar.gz | |
IO::Poll bugs fixed (from Lincoln Stein <lstein@cshl.org>)
p4raw-id: //depot/perl@6009
Diffstat (limited to 't/lib/io_poll.t')
| -rwxr-xr-x | t/lib/io_poll.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/lib/io_poll.t b/t/lib/io_poll.t index 68ad7b74cb..925830e09d 100755 --- a/t/lib/io_poll.t +++ b/t/lib/io_poll.t @@ -15,7 +15,7 @@ if ($^O eq 'mpeix') { select(STDERR); $| = 1; select(STDOUT); $| = 1; -print "1..8\n"; +print "1..9\n"; use IO::Handle; use IO::Poll qw(/POLL/); @@ -75,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"; |