diff -r d98e12e07560 -r e97dd97b582c t/00-basic.t --- a/t/00-basic.t Tue Jun 07 14:36:03 2016 +0200 +++ b/t/00-basic.t Wed Jun 08 22:32:36 2016 +0200 @@ -22,7 +22,8 @@ ['ssl.kugelbus.de' => 443]) { my ($domain, $port) = @$_; my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*\n)/i } `dig tlsa _$port._tcp.$domain`; - #my (@tlsa) = `dig tlsa _$port._tcp.$domain +short`; - is get_tlsa_from_dns($domain, $port), $tlsa[0] => "TLSA for $domain:$port"; + #is get_tlsa_from_dns($domain, $port), $tlsa[0] => "TLSA for $domain:$port"; + my @check = get_tlsa_from_dns($domain, $port); + is $check[0], $tlsa[0] => "TLSA for $domain:$port"; } };