Michael Prokop
14 years ago
parent
da263e7a7c
commit
e7e41d0a4f
@ -0,0 +1,158 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
=head1 NAME
|
||||
|
||||
sites-ok.t - check web sites
|
||||
|
||||
=head SYNOPSIS
|
||||
|
||||
cat >> test-server.yaml << __YAML_END__
|
||||
open-ports:
|
||||
connect:
|
||||
localhost:
|
||||
22: ssh
|
||||
bratislava.pm.org:
|
||||
80: http
|
||||
camel.cle.sk:
|
||||
443: https
|
||||
__YAML_END__
|
||||
|
||||
=cut
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Test::More;
|
||||
use Test::Differences;
|
||||
use Test::Exception;
|
||||
use Test::Net::Service;
|
||||
use YAML::Syck 'LoadFile';
|
||||
use FindBin '$Bin';
|
||||
|
||||
|
||||
eval "use IO::Socket::INET";
|
||||
plan 'skip_all' => "need IO::Socket::INET to run ports open tests" if $@;
|
||||
|
||||
my $config = LoadFile($Bin.'/test-server.yaml');
|
||||
plan 'skip_all' => "no configuration sections for 'open-ports'"
|
||||
if (not $config or not $config->{'open-ports'});
|
||||
|
||||
|
||||
exit main();
|
||||
|
||||
sub main {
|
||||
my $connect = $config->{'open-ports'}->{'connect'};
|
||||
|
||||
# count the tests and plan them
|
||||
my $number_of_tests = 0;
|
||||
foreach my $host (keys %$connect) {
|
||||
foreach my $port (keys %{$connect->{$host}}) {
|
||||
# port connection test
|
||||
$number_of_tests ++;
|
||||
# service check for all besides closed ports
|
||||
$number_of_tests ++
|
||||
if not (($connect->{$host}->{$port} || '') eq 'closed');
|
||||
}
|
||||
}
|
||||
plan 'tests' => $number_of_tests;
|
||||
|
||||
# loop through ports that needs to be working
|
||||
foreach my $host (keys %$connect) {
|
||||
my $net_service = Test::Net::Service->new(
|
||||
'host' => $host
|
||||
);
|
||||
|
||||
foreach my $port (keys %{$connect->{$host}}) {
|
||||
my $service = $connect->{$host}->{$port} || '';
|
||||
my $proto = 'tcp';
|
||||
|
||||
my $socket = IO::Socket::INET->new(
|
||||
PeerAddr => $host,
|
||||
PeerPort => $port,
|
||||
Proto => $proto,
|
||||
);
|
||||
|
||||
# check for closed ports
|
||||
if ($service eq 'closed') {
|
||||
ok(
|
||||
!$socket,
|
||||
'connect to '
|
||||
.$host
|
||||
.' port '
|
||||
.$port
|
||||
.'/'
|
||||
.$proto
|
||||
.' filtered'
|
||||
);
|
||||
next;
|
||||
}
|
||||
|
||||
ok(
|
||||
$socket,
|
||||
'connect to '
|
||||
.$host
|
||||
.' port '
|
||||
.$port
|
||||
.'/'
|
||||
.$proto
|
||||
);
|
||||
|
||||
# skip rest if we failed to connect
|
||||
if (not defined $socket) {
|
||||
SKIP: {
|
||||
skip 'skipping service check if port open failed', 1;
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
# skip rest if servis was not specified
|
||||
if (not $service) {
|
||||
SKIP: {
|
||||
skip 'skipping service check no service defined', 1;
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
# skip rest if there is no test_function for the service
|
||||
if (not $net_service->can('test_'.$service)) {
|
||||
SKIP: {
|
||||
skip 'unknown service '.$service.'!!!', 1;
|
||||
}
|
||||
next;
|
||||
}
|
||||
|
||||
# check the service
|
||||
lives_ok(
|
||||
sub {
|
||||
$net_service->test(
|
||||
'socket' => $socket,
|
||||
'host' => $host,
|
||||
'service' => $service
|
||||
)
|
||||
},
|
||||
'check '
|
||||
.$service
|
||||
.' service default response with proto '
|
||||
.$proto
|
||||
.' port '
|
||||
.$port
|
||||
.' on host '
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
__END__
|
||||
|
||||
=head1 NOTE
|
||||
|
||||
Port checking depends on L<IO::Socket::INET>.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Jozef Kutej
|
||||
|
||||
=cut
|
||||
Loading…
Reference in new issue