1 #!/usr/bin/perl

     2 use strict;

     3 use warnings;

     4 use Test::More;

     5 use Test::Exception;

     6 use Data::Dumper;

     7 

     8 my @ZONES = qw(. schlittermann.info schlittermann.de);

     9 

    10 use_ok DNSSec => qw(keyset ksk keyinfo);

    11 

    12 # first the K.O. tests

    13 dies_ok { dnskeys('this.domain.does.not.exist.never.ever') } 'dies on non existent domain';

    14 

    15 subtest $_ => sub {

    16     # now the real ones

    17     my $keyset = keyset($_);

    18     cmp_ok scalar($keyset->keys), '>=', 2 => 'got some keys';

    19     my @ksk = ksk($keyset->keys);

    20     cmp_ok scalar(@ksk), '>=', 1 => 'got at least one KSK';

    21 } foreach (@ZONES);

    22 

    23 

    24 done_testing;