debian/pkg-monitoring-plugins
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Imported Upstream version 1.4.5

Browse source
This commit is contained in:
Jan Wagner 2013-11-26 23:53:19 +01:00
parent 62d1e7d5fe
commit 6a280f6f24
412 changed files with 168642 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

49
plugins-scripts/t/utils.t Normal file
View file

@ -0,0 +1,49 @@
#!/usr/bin/perl -w -I ..
#
# utils.pm tests
#
# $Id: utils.t,v 1.2 2006/10/27 15:37:31 tonvoon Exp $
#
# Run with perl t/utils.t
use warnings;
use strict;
use Test::More;
use NPTest;
use lib "..";
use utils;
my $hostname_checks = {
"www.altinity.com" => 1,
"www.888.com" => 1,
"888.com" => 1,
"host-hyphened.com" => 1,
"rubbish" => 1,
"-start.com" => 0,
"nonfqdn-but-endsindot." => 1,
"fqdn.and.endsindot." => 1,
"lots.of.dots.dot.org" => 1,
"endingwithdoubledots.." => 0,
"toomany..dots" => 0,
".start.with.dot" => 0,
"10.20.30.40" => 1,
"10.20.30.40.50" => 0,
"10.20.30" => 0,
"10.20.30.40." => 1, # This is considered a hostname because of trailing dot. It probably won't exist though...
"888." => 1, # This is because it could be a domain
"host.888." => 1,
"where.did.that.!.come.from." => 0,
"no.underscores_.com" => 0,
};
plan tests => ((scalar keys %$hostname_checks) + 4);
foreach my $h (sort keys %$hostname_checks) {
is (utils::is_hostname($h), $hostname_checks->{$h}, "$h should return ".$hostname_checks->{$h});
}
is(utils::is_hostname(), 0, "No parameter errors");
is(utils::is_hostname(""), 0, "Empty string errors");
is(utils::is_hostname(0), 0, "0 also errors");
is(utils::is_hostname(1), 0, "1 also errors");