# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1464851731 -7200
# Node ID c52bb12b3ed06edf0421db7ab772fda682c209ef
# Parent  c440abd2b56ace02c09394647f8d9553898b0382
Add test for multiple TLSA records (fails)

diff -r c440abd2b56a -r c52bb12b3ed0 t/00-basic.t
--- a/t/00-basic.t	Thu Jun 02 09:15:14 2016 +0200
+++ b/t/00-basic.t	Thu Jun 02 09:15:31 2016 +0200
@@ -1,3 +1,5 @@
+use strict;
+use warnings;
 use Test::More qw(no_plan);
 use Test::Exception;
 
@@ -15,9 +17,9 @@
 
 # get and compare the TLSA records via dig_tlsa with `dig …`
 subtest 'Data' => sub {
-    foreach (['ssl.schlittermann.de' => 443], ['mx1.mailbox.org.de' => 25],) {
+    foreach (['ssl.schlittermann.de' => 443], ['mx1.mailbox.org' => 25], ['ssl.kugelbus.de' => 443]) {
         my ($domain, $port) = @$_;
-        is dig_tlsa($domain, $port),
-          `dig +short tlsa _$port._tcp.$domain` => "TLSA $domain:$port";
+	my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*\n)/i  } `dig tlsa _$port._tcp.$domain`;
+        is dig_tlsa($domain, $port), $tlsa[0] => "TLSA for $domain:$port";
     }
 };