CPAN::Groonga

'LWP+Socks4+Server');
	
	kill 15, $s_pid;
	$page = $ua->get("http://$h_host:$h_port/")->content;
	isnt($page, 'ROOT', 'LWP+Socks4-Server');
	
	kill 15, $h_pid;
};

SKIP: {
	skip "fork, windows, sux" i

(GET => '/index');
		$http->read_response_headers();
		$http->read_entity_body($page, 1024);
	};
	isnt($page, 'INDEX', 'HTTP+Socks5-Server');
	
	kill 15, $h_pid;
};

SKIP: {
	skip "fork, windows, sux"

		SocksVersion => 4,
			Timeout      => 2
		}
	);
	
	diag "2 sec for next test";
	$start = time;
	isnt(HTTP::Tiny->new->get("http://$h_host:$h_port/")->{content}, 'ROOT', "internal IO::Socket timed ou

roxyPort    => $s_port,
		SocksVersion => 4,
	});
	
	diag "2 sec for next test";
	$start = time;
	isnt($ua->get("http://$h_host:$h_port/")->content, 'ROOT', "wraped object timed out");
	$timeout = tim

'LWP+Socks5+Server');
	
	kill 15, $s_pid;
	$page = $ua->get("http://$h_host:$h_port/")->content;
	isnt($page, 'ROOT', 'LWP+Socks5-Server');
	
	my $http = Net::HTTP->new(Host => $h_host, PeerPort => $h

->get("http://$h_host:$h_port/")->{content}, 'ROOT', "http +socks server");
kill 15, our $hs_pid;
isnt($http->get("http://$h_host:$h_port/")->{content}, 'ROOT', "http -socks server");
IO::Socket::Sock

port/")->{content}, 'ROOT', 'HTTP::Tiny::Handle::connect() +Socks5 server');
	
	kill 15, $s_pid;
	isnt($http->get("http://$h_host:$h_port/")->{content}, 'ROOT', 'HTTP::Tiny::Handle::connect() -Socks5 

OB connect -Server');
	close $new_sock;
	
	$page = $ua->get("http://$h_host:$h_port/")->content;
	isnt($page, 'ROOT', 'LWP+Global socks5 -Server');
	
	ok(!eval{Net::FTP->new($f_host, Port => $f_port)-