equal
deleted
inserted
replaced
64 is $r3b, $r3c => 'same servers, but not same ref'; |
64 is $r3b, $r3c => 'same servers, but not same ref'; |
65 |
65 |
66 }; |
66 }; |
67 |
67 |
68 |
68 |
69 my %override = ( |
|
70 'example.com' => [qw(ns1.foobar.de ns2.foobar.com)], |
|
71 ); |
|
72 |
|
73 is_deeply [ns('example.com', nameservers => [qw/127.0.0.1/], override => \%override)], |
|
74 $override{'example.com'} => 'override'; |
|
75 |
69 |
76 for (qw(heise.de schlittermann.de google.com debian.org example.org)) { |
70 for (qw(heise.de schlittermann.de google.com debian.org example.org)) { |
77 |
71 |
78 subtest $_ => sub { |
72 subtest $_ => sub { |
79 |
73 |
92 throws_ok { ns('example.org', nameservers => [qw/f.nic.de a.nic.de/]) } |
86 throws_ok { ns('example.org', nameservers => [qw/f.nic.de a.nic.de/]) } |
93 qr/^REFUSED/ => 'throws on refused query'; |
87 qr/^REFUSED/ => 'throws on refused query'; |
94 throws_ok { ns('safasdfasdfrandomadsfefvddeas') } |
88 throws_ok { ns('safasdfasdfrandomadsfefvddeas') } |
95 qr/^NXDOMAIN/ => 'throws on nx domain'; |
89 qr/^NXDOMAIN/ => 'throws on nx domain'; |
96 |
90 |
97 ok ns_ok('schlittermann.de', '212.80.235.130') => 'ns_ok for schlittermann.de'; |
91 ok ns_ok('schlittermann.de', ['212.80.235.130']) => 'ns_ok for schlittermann.de'; |
98 throws_ok { ns_ok('heise.de', '212.80.235.130') } qr/no aa|differ|REFUSED/ => 'ns_ok for heise.de'; |
92 throws_ok { ns_ok('heise.de', ['212.80.235.130']) } qr/no aa|differ|REFUSED/ => 'ns_ok for heise.de'; |
99 throws_ok { ns_ok('heise.de', '8.8.8.8') } qr/no aa|differ|REFUSED/ => 'ns_ok for heise.de'; |
93 throws_ok { ns_ok('heise.de', ['8.8.8.8']) } qr/no aa|differ|REFUSED/ => 'ns_ok for heise.de'; |
100 |
94 |
101 # serial |
95 # serial |
102 |
96 |
103 done_testing(); |
97 done_testing(); |
104 |
98 |