sort for comparison!
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Thu, 09 Apr 2015 13:25:31 +0200
changeset 95 da5ca0b73fda
parent 94 8014e5fee219
child 96 a1d10088dc1d
sort for comparison!
debian/changelog
t/10-dnsvi.t
--- a/debian/changelog	Tue Feb 03 23:10:38 2015 +0100
+++ b/debian/changelog	Thu Apr 09 13:25:31 2015 +0200
@@ -1,3 +1,10 @@
+dnsvi (1.1) UNRELEASED; urgency=medium
+
+  * less verbose for dh_make:
+  * add tw=0 at the very end of the zone file:
+
+ -- Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>  Tue, 03 Feb 2015 23:11:03 +0100
+
 dnsvi (1.0) stable; urgency=medium
 
   * Now we can edit reverse zones!:
--- 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 {