equal
deleted
inserted
replaced
26 SOA => 1, |
26 SOA => 1, |
27 NS => 2, |
27 NS => 2, |
28 A => 6, |
28 A => 6, |
29 TXT => 3, |
29 TXT => 3, |
30 AAAA => 1, |
30 AAAA => 1, |
|
31 MX => 5, |
31 }, |
32 }, |
32 a => { |
33 a => { |
33 RRSETS => 32, |
34 RRSETS => 32, |
34 SOA => 1, |
35 SOA => 1, |
35 NS => 16, |
36 NS => 16, |
36 A => 9, |
37 A => 9, |
37 TXT => 4, |
38 TXT => 4, |
38 AAAA => 0, |
39 AAAA => 0, |
|
40 MX => 0, |
39 }, |
41 }, |
40 b => { |
42 b => { |
41 RRSETS => 7, |
43 RRSETS => 7, |
42 SOA => 1, |
44 SOA => 1, |
43 NS => 2, |
45 NS => 2, |
44 A => 1, |
46 A => 1, |
45 TXT => 3, |
47 TXT => 3, |
46 AAAA => 0, |
48 AAAA => 0, |
|
49 MX => 0, |
|
50 }, |
|
51 c => { |
|
52 RRSETS => 12, |
|
53 SOA => 1, |
|
54 NS => 2, |
|
55 A => 2, |
|
56 TXT => 5, |
|
57 AAAA => 0, |
|
58 MX => 2, |
47 }, |
59 }, |
48 ); |
60 ); |
49 |
61 |
50 # uniq list of rrtypes we want to test |
62 # uniq list of rrtypes we want to test |
51 my @sets = do { |
63 my @sets = do { |
52 my %h; |
64 my %h; |
53 @h{ map { keys %{$_} } values %result } = (); |
65 @h{ map { keys %{$_} } values %result } = (); |
54 grep { $_ ne 'RRSETS' } sort keys %h; |
66 grep { $_ ne 'RRSETS' } sort keys %h; |
55 }; |
67 }; |
56 |
68 |
57 foreach my $sample (keys %result) { |
69 foreach my $sample (sort keys %result) { |
58 my $file = "t/samples/$sample"; |
70 my $file = "t/samples/$sample"; |
59 |
71 |
60 subtest "sample $file" => sub { |
72 subtest "sample $file" => sub { |
61 my %result = %{ $result{$sample} }; |
73 my %result = %{ $result{$sample} }; |
62 my @zone = parse(slurp $file); |
74 my @zone = parse(slurp $file); |