=pod
=head1 NAME
t/port-names.t - Net::Prober test suite
=head1 DESCRIPTION
Check that port names are resolved to numbers
=cut
use strict;
use warnings;
use Test::More tests => 6;
use Net::Prober;
is Net::Prober::port_name_to_num(undef) => undef;
is Net::Prober::port_name_to_num(23) => 23;
is Net::Prober::port_name_to_num("ftp") => 21;
is Net::Prober::port_name_to_num("echo") => 7;
SKIP: {
skip("'ssh' port can be undefined on Windows systems", 1)
if "MSWin32" eq $^O;
is Net::Prober::port_name_to_num("ssh") => 22;
}
SKIP: {
skip("'http' port name apparently not defined on Solaris", 1)
if "solaris" eq $^O;
is Net::Prober::port_name_to_num("http") => 80;
}