--- a/t/10-minimal.t Wed Jan 07 17:15:54 2015 +0100
+++ b/t/10-minimal.t Wed Jan 07 23:57:31 2015 +0100
@@ -19,13 +19,11 @@
sub dig_serial { (split " ", `dig +short SOA @_`)[2] }
-
-sub dig_ns {
- sort map { /(\S+?)\.?$/ } `dig +short NS @_`;
-}
+sub dig_ns { sort map { /(\S+?)\.?$/ } `dig +short NS @_` }
# we require it, it's not a normal module
-require_ok 'blib/nagios/plugins/ius/check_dns-delegation'
+use blib;
+use_ok('Nagios::Check::DNS::delegation')
or BAIL_OUT q{can't require the module};
@@ -91,7 +89,7 @@
}
# ns for some domain we're not the master for, should be refused
-throws_ok { ns('example.org', nameservers => [qw/f.nic.de a.nic.de b.nic.de/]) }
+throws_ok { ns('example.org', nameservers => [qw/f.nic.de a.nic.de/]) }
qr/^REFUSED/ => 'throws on refused query';
throws_ok { ns('safasdfasdfrandomadsfefvddeas') }
qr/^NXDOMAIN/ => 'throws on nx domain';