t/20-serial-aa.t
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;