changeset 23 | 1eed74960c1c |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/t/20-serial-aa.t Mon Jan 19 10:33:29 2015 +0100 @@ -0,0 +1,15 @@ +#! perl +use strict; +use warnings; +use Test::More; +use Test::Exception; +use Nagios::Check::DNS::delegation; + +throws_ok { serial('schlittermann.de', + nameservers => [qw/8.8.8.8 8.8.4.4/], aa => 1) } + qr/no aa/ => 'throws exception on no aa'; + +ok serial('schlittermann.de', nameservers => [qw/212.80.235.130/]) + => 'aa for serial'; + +done_testing;