--- 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";
     }
 };