# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1486719703 -10800
# Node ID 6620cd57a96ab2148f153c4756d12b5945d5a996
# Parent  65fc7a0ca41832463418dc595252fcdf2ef0ad3e
Tests: replaced all occurrences of vec/select API with IO::Select.

diff --git a/debug_connection_syslog.t b/debug_connection_syslog.t
--- a/debug_connection_syslog.t
+++ b/debug_connection_syslog.t
@@ -11,6 +11,8 @@ use strict;
 
 use Test::More;
 
+use IO::Select;
+
 BEGIN { use FindBin; chdir($FindBin::Bin); }
 
 use lib 'lib';
@@ -69,7 +71,6 @@ is($msgs[0], $msgs[1], 'debug_connection
 sub get_syslog {
 	my ($uri, @port) = @_;
 	my (@s);
-	my $rfd = '';
 	my @data;
 
 	eval {
@@ -94,11 +95,8 @@ sub get_syslog {
 
 	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;
diff --git a/syslog.t b/syslog.t
--- a/syslog.t
+++ b/syslog.t
@@ -12,6 +12,8 @@ use strict;
 
 use Test::More;
 
+use IO::Select;
+
 BEGIN { use FindBin; chdir($FindBin::Bin); }
 
 use lib 'lib';
@@ -242,7 +244,6 @@ sub levels {
 sub get_syslog {
 	my ($uri) = @_;
 	my ($s);
-	my $rfd = '';
 	my $data = '';
 
 	eval {
@@ -263,11 +264,8 @@ sub get_syslog {
 
 	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;