summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/t/utils.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins-scripts/t/utils.t')
-rw-r--r--plugins-scripts/t/utils.t34
1 files changed, 34 insertions, 0 deletions
diff --git a/plugins-scripts/t/utils.t b/plugins-scripts/t/utils.t
new file mode 100644
index 0000000..469988c
--- /dev/null
+++ b/plugins-scripts/t/utils.t
@@ -0,0 +1,34 @@
1#!/usr/bin/perl -w -I ..
2#
3# utils.pm tests
4#
5# $Id$
6#
7
8#use strict;
9use Test::More;
10use NPTest;
11
12use lib "..";
13use utils;
14
15my $hostname_checks = {
16 "www.altinity.com" => 1,
17 "www.888.com" => 1,
18 "888.com" => 1,
19 "host-hyphened.com" => 1,
20 "rubbish" => 1,
21 "-start.com" => 0,
22 "endsindot." => 0,
23 "lots.of.dots.dot.org" => 1,
24 "10.20.30.40" => 1,
25 "10.20.30.40.50" => 0,
26 "10.20.30" => 0,
27 };
28
29plan tests => scalar keys %$hostname_checks;
30
31foreach my $h (sort keys %$hostname_checks) {
32 is (utils::is_hostname($h), $hostname_checks->{$h}, "$h should return ".$hostname_checks->{$h});
33}
34