diff -r 52d1ff194af0 -r a08198ba5150 t/01-dnssec.t --- a/t/01-dnssec.t Tue Apr 07 14:14:51 2015 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,24 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; -use Test::More; -use Test::Exception; -use Data::Dumper; - -my @ZONES = qw(. schlittermann.info schlittermann.de); - -use_ok DNSSec => qw(keyset ksk keyinfo); - -# first the K.O. tests -dies_ok { dnskeys('this.domain.does.not.exist.never.ever') } 'dies on non existent domain'; - -subtest $_ => sub { - # now the real ones - my $keyset = keyset($_); - cmp_ok scalar($keyset->keys), '>=', 2 => 'got some keys'; - my @ksk = ksk($keyset->keys); - cmp_ok scalar(@ksk), '>=', 1 => 'got at least one KSK'; -} foreach (@ZONES); - - -done_testing;