1 #! perl

     2 use strict;

     3 use warnings;

     4 use Test::More;

     5 use Test::Exception;

     6 use Nagios::Check::DNS::delegation;

     7 

     8 throws_ok { serial('schlittermann.de', 

     9 		nameservers => [qw/8.8.8.8 8.8.4.4/], aa => 1) }

    10 	  qr/no aa/ => 'throws exception on no aa';

    11 

    12 ok serial('schlittermann.de', nameservers => [qw/212.80.235.130/])

    13 	=> 'aa for serial';

    14 

    15 done_testing;