Mercurial > hg > nginx-tests
changeset 1127:6620cd57a96a
Tests: replaced all occurrences of vec/select API with IO::Select.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 10 Feb 2017 12:41:43 +0300 |
parents | 65fc7a0ca418 |
children | bef8be8a6224 |
files | debug_connection_syslog.t syslog.t |
diffstat | 2 files changed, 8 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/debug_connection_syslog.t Thu Feb 09 13:05:45 2017 +0300 +++ b/debug_connection_syslog.t Fri Feb 10 12:41:43 2017 +0300 @@ -11,6 +11,8 @@ use Test::More; +use IO::Select; + BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; @@ -69,7 +71,6 @@ sub get_syslog { my ($uri, @port) = @_; my (@s); - my $rfd = ''; my @data; eval { @@ -94,11 +95,8 @@ map { my $data = ''; - vec($rfd, fileno($_), 1) = 1; - select $rfd, undef, undef, 1; - while (select($rfd, undef, undef, 0.1) > 0 - && vec($rfd, fileno($_), 1)) - { + IO::Select->new($_)->can_read(1); + while (IO::Select->new($_)->can_read(0.1)) { my ($buffer); sysread($_, $buffer, 4096); $data .= $buffer;
--- a/syslog.t Thu Feb 09 13:05:45 2017 +0300 +++ b/syslog.t Fri Feb 10 12:41:43 2017 +0300 @@ -12,6 +12,8 @@ use Test::More; +use IO::Select; + BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; @@ -242,7 +244,6 @@ sub get_syslog { my ($uri) = @_; my ($s); - my $rfd = ''; my $data = ''; eval { @@ -263,11 +264,8 @@ http_get($uri); - vec($rfd, fileno($s), 1) = 1; - select $rfd, undef, undef, 1; - while (select($rfd, undef, undef, 0.1) > 0 - && vec($rfd, fileno($s), 1)) - { + IO::Select->new($s)->can_read(1); + while (IO::Select->new($s)->can_read(0.1)) { my $buffer; sysread($s, $buffer, 4096); $data .= $buffer;