1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
# This is -*- perl -*-
use Net::DNS;
use Net::DNS::ZoneFile::Fast;
BEGIN {
@test =
(
q{. 300 IN A 127.0.0.1},
q{localhost. 300 IN A 127.0.0.1},
q{localhost IN A 127.0.0.1},
q{localhost A 127.0.0.1},
q{localhost. 300 A 127.0.0.1},
q{*.acme.com. 300 IN MX 10 host.acme.com.},
q{* 300 IN MX 10 host.acme.com.},
q{10.10.10.10.in-addr.arpa 300 IN PTR www.acme.com.},
q{10.10.10.10.in-addr.arpa. 300 IN PTR www.acme.com.},
q{10.10.10.10.in-addr.arpa. 300 PTR www.acme.com.},
q{10.10.10.10.in-addr.arpa. IN PTR www.acme.com.},
q{10.10.10.10.in-addr.arpa PTR www.acme.com.},
q{10.10/10.10.10.in-addr.arpa. IN PTR www.acme.com.},
q{. 3600 IN NS dns1.acme.com.},
q{acme.com. 3600 IN NS dns1.acme.com.},
q{@ 3600 IN NS dns1.acme.com.},
q{acme.com. 100 IN CNAME www.acme.com.},
q{acme.com 100 IN CNAME www.acme.com.},
q{acme.com. 100 IN DNAME example.com.},
q{acme.com 100 IN DNAME example.com.},
q{text.acme.com. 100 IN TXT "This is a quite long text"},
q{text.acme.com IN TXT "This is another piece"},
q{text.acme.com TXT "This is another piece"},
q{text.acme.com. 100 IN SPF "SPF record - contents not checked for SPF validity"},
q{text.acme.com IN SPF "SPF record - contents not checked for SPF validity"},
q{text.acme.com SPF "SPF record - contents not checked for SPF validity"},
q{* 100 IN MX 10 mailhost.acme.com.},
q{* IN A 1.2.3.4},
q{* 10 IN A 1.2.3.4},
# q{* IN 10 A 1.2.3.4}, XXX newer Net::DNS does not like this syntax
q{fo\157.acme.com. 10 IN A 1.2.3.4},
q{acme.com. 200 IN MX 10 mailhost.acme.com.},
q{acme.com. 200 IN MX 10 .},
q{acme.com. IN MX 10 mailhost.acme.com.},
q{acme.com. MX 10 mailhost.acme.com.},
q{acme.com 200 IN MX 10 mailhost.acme.com.},
q{acme.com IN MX 10 mailhost.acme.com.},
q{acme.com MX 10 mailhost.acme.com.},
q{acme.com. IN SOA dns1.acme.com. me.acme.com. ( 1 2 3 4 5 )},
q{. IN SOA dns1.acme.com. hostmaster.acme.com. ( 1 1 1 1 1 )},
q{@ IN SOA dns1.acme.com. hostmaster.acme.com. ( 1 1 1 1 1 )},
q{. IN SOA dns1.acme.com. hostmaster.acme.com. ( 1 1 1 1 1 )},
# included te test cpan bug 17745
q{. IN SOA dns1.acme.com. hostmaster.acme.com ( 1 1 1 1 1 )},
q{. IN SOA dns1.acme.com. hostmaster ( 1 1 1 1 1 )},
q{. IN SOA dns1.acme.com hostmaster.acme.com. ( 1 1 1 1 1 )},
q{. IN SOA dns1 hostmaster. ( 1 1 1 1 1 )},
q{. IN SOA @ hostmaster.acme.com. ( 1 1 1 1 1 )},
q{. IN SOA @ hostmaster+foo.acme.com. ( 1 1 1 1 1 )},
q{acme.com. IN AAAA 2001:688:0:102::1:2},
q{acme.com. IN AAAA 2001:688:0:102::3},
q{acme.com. IN RP abuse.acme.com. acme.com.},
q{acme.com. IN SSHFP 2 1 123456789ABCDEF67890123456789ABCDEF67890},
q{acme.com. IN HINFO SUN4/110 UNIX},
q{acme.com. IN HINFO "SUN4/110 foo" UNIX},
q{acme.com. IN HINFO "SUN4/110 foo" "UNIX bar"},
);
if ($Net::DNS::VERSION > 0.72) {
push @test, q{acme.com. IN TLSA 3 0 1 1BFC4290C5798EFCC6D4A1F2D79C3C5F49ACCAC687DF42974B68A45F 05BA074F};
push @test, q{acme.com. IN TLSA 3 0 1 ( 1BFC4290C5798EFCC6D4A1F2D79C3C5F49ACCAC687DF42974B68A45F 05BA074F )};
push @test, q{acme.com. IN TLSA 3 0 1 (
1BFC4290C5798EFCC6D4A1F2D79C3C5F49ACCAC687DF42974B68A45F 05BA074F )};
}
}
use Test::More tests => 2 + 2 * scalar @test;
for my $rrdata (@test) {
my $rrset = Net::DNS::ZoneFile::Fast::parse($rrdata);
(my $adata = $rrdata) =~ s/@/./;
$adata =~ s/(IN SOA .* (\d+)) \)/ $2 $1/;
my $rr = new Net::DNS::RR $adata;
(my $rrcorrect = $rr->string) =~ s/\s+/ /g;
ok(defined $rrset, "Parsing $rrdata");
(my $rrtxt = $rrset->[0]->string) =~ s/\s+/ /g;
is($rrtxt, $rrcorrect, "RR comparison for $rrdata");
}
ok(!defined Net::DNS::ZoneFile::Fast::parse(text => "acme.com. in aaaa ok", quiet => 1, soft_errors => 1),
"Bad AAAA");
ok(!defined eval { Net::DNS::ZoneFile::Fast::parse(text => "acme.com. in aaaa ok", quiet => 1) },
"Bad AAAA with die");
|
