diff -r 8014e5fee219 -r da5ca0b73fda t/10-dnsvi.t --- a/t/10-dnsvi.t Tue Feb 03 23:10:38 2015 +0100 +++ b/t/10-dnsvi.t Thu Apr 09 13:25:31 2015 +0200 @@ -72,14 +72,21 @@ RRSETS => 15, SOA => 1, NS => 2, - A => [sort qw/ + A => [qw/ abc.de.km21.de. foo.km21.de. tte.km21.de. tte.km21.de. bar.km21.de. /], - TXT => 5, + TXT => { + 'km21.de.' => [ map { "\"$_\"" } + 'invoice: self', + 'utf8: km21.de', + 'start: 1396981300 2014-04-08T20:21:40', + ], + 'tte.km21.de.' => [ map { "\"$_\"" } 'tte', 'tte2' ], + }, AAAA => 0, MX => 2, }, @@ -112,12 +119,12 @@ foreach my $type (@sets) { if (ref $expect{$type} eq ref[]) { my @entries = sort map { $_->{label} } grep { $_->{rrtype} eq $type } map { $_->{rrset} } @zone; - is_deeply \@entries, $expect{$type} => 'list of labels'; + is_deeply \@entries, [sort @{$expect{$type}} ] => 'list of labels'; } elsif (ref $expect{$type} eq ref{}) { foreach my $label (keys %{ $expect{$type} }) { my @entries = sort map { $_->{data} } grep { $_->{label} eq $label and $_->{rrtype} eq $type } map { $_->{rrset} } @zone; - is_deeply \@entries, $expect{$type}{$label} => 'complete rrsets', + is_deeply \@entries, [sort @{ $expect{$type}{$label} }] => 'complete rrsets', } } else {