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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
#--
#Copyright 2007 Nominet UK
#
#Licensed under the Apache License, Version 2.0 (the "License");
#you may not use this file except in compliance with the License.
#You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
#Unless required by applicable law or agreed to in writing, software
#distributed under the License is distributed on an "AS IS" BASIS,
#WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
#See the License for the specific language governing permissions and
#limitations under the License.
#++
begin
require 'rubygems'
rescue LoadError
end
require 'test/unit'
require 'dnsruby'
class TestMisc < Test::Unit::TestCase
def test_wildcard
# test to make sure that wildcarding works.
#
rr = Dnsruby::RR.create('*.t.dnsruby.validation-test-servers.nominet.org.uk 60 IN A 10.0.0.1')
assert(rr, 'RR got made')
assert_equal('*.t.dnsruby.validation-test-servers.nominet.org.uk', rr.name.to_s, 'Name is correct' )
assert_equal(60, rr.ttl, 'TTL is correct' )
assert_equal(Dnsruby::Classes.IN, rr.klass, 'CLASS is correct' )
assert_equal(Dnsruby::Types.A, rr.type, 'TYPE is correct' )
assert_equal('10.0.0.1', rr.address.to_s, 'Address is correct')
end
def test_misc
#
# Make sure the underscore in SRV hostnames work.
#
srv = Dnsruby::RR.create('_rvp._tcp.t.dnsruby.validation-test-servers.nominet.org.uk. 60 IN SRV 0 0 80 im.bastardsinc.biz')
assert(!$@, 'No errors')
assert(srv, 'SRV got made')
#~ # Test that the 5.005 Use of uninitialized value at
#~ # /usr/local/lib/perl5/site_perl/5.005/Net/DNS/RR.pm line 639. bug is gone
rr = Dnsruby::RR.create('mx.t.dnsruby.validation-test-servers.nominet.org.uk 60 IN MX 10 a.t.dnsruby.validation-test-servers.nominet.org.uk')
assert(rr, 'RR created')
assert_equal(rr.preference, 10, 'Preference works')
mx = Dnsruby::RR.create('mx.t.dnsruby.validation-test-servers.nominet.org.uk 60 IN MX 0 mail.dnsruby.validation-test-servers.nominet.org.uk')
assert(mx.to_s =~ /0 mail.dnsruby.validation-test-servers.nominet.org.uk/) # was 'like'
assert_equal(mx.preference, 0)
assert_equal(mx.exchange.to_s, 'mail.dnsruby.validation-test-servers.nominet.org.uk')
srv = Dnsruby::RR.create('srv.t.dnsruby.validation-test-servers.nominet.org.uk 60 IN SRV 0 2 3 target.dnsruby.validation-test-servers.nominet.org.uk')
# # @todo@ Absolute name issues
# assert(srv.inspect =~ /0 2 3 target.dnsruby.validation-test-servers.nominet.org.uk\./)
# assert_equal(srv.rdatastr, '0 2 3 target.dnsruby.validation-test-servers.nominet.org.uk.')
end
def test_TXT_RR
#
#
# Below are some thests that have to do with TXT RRs
#
#
# QUESTION SECTION:
#txt2.t.net-dns.org. IN TXT
# ANSWER SECTION:
#txt2.t.net-dns.org. 60 IN TXT "Net-DNS\ complicated $tuff" "sort of \" text\ and binary \000 data"
# AUTHORITY SECTION:
#net-dns.org. 3600 IN NS ns1.net-dns.org.
#net-dns.org. 3600 IN NS ns.ripe.net.
#net-dns.org. 3600 IN NS ns.hactrn.net.
# ADDITIONAL SECTION:
#ns1.net-dns.org. 3600 IN A 193.0.4.49
#ns1.net-dns.org. 3600 IN AAAA
uuencodedPacket=%w{
11 99 85 00 00 01
00 01 00 03 00 02 04 74 78 74 32 01 74 07 6e 65
74 2d 64 6e 73 03 6f 72 67 00 00 10 00 01 c0 0c
00 10 00 01 00 00 00 3c 00 3d 1a 4e 65 74 2d 44
4e 53 3b 20 63 6f 6d 70 6c 69 63 61 74 65 64 20
24 74 75 66 66 21 73 6f 72 74 20 6f 66 20 22 20
74 65 78 74 3b 20 61 6e 64 20 62 69 6e 61 72 79
20 00 20 64 61 74 61 c0 13 00 02 00 01 00 00 0e
10 00 06 03 6e 73 31 c0 13 c0 13 00 02 00 01 00
00 0e 10 00 0d 02 6e 73 04 72 69 70 65 03 6e 65
74 00 c0 13 00 02 00 01 00 00 0e 10 00 0c 02 6e
73 06 68 61 63 74 72 6e c0 93 c0 79 00 01 00 01
00 00 0e 10 00 04 c1 00 04 31 c0 79 00 1c 00 01
00 00 0e 10 00 10 20 01 06 10 02 40 00 03 00 00
12 34 be 21 e3 1e
}
uuencodedPacket.map!{|e| e.hex}
packetdata = uuencodedPacket.pack('c*')
packetdata.gsub!("\s*", "")
packet = Dnsruby::Message.decode(packetdata)
txtRr=(packet.answer)[0]
assert_equal('Net-DNS; complicated $tuff',txtRr.strings[0],"First Char string in TXT RR read from wireformat")
# Compare the second char_str this contains a NULL byte (space NULL
# space=200020 in hex)
temp = (txtRr.strings)[1].unpack('H*')[0]
# #assert_equal(unpack('H*',(TXTrr.char_str_list())[1]),"736f7274206f66202220746578743b20616e642062696e61727920002064617461", "Second Char string in TXT RR read from wireformat")
assert_equal("736f7274206f66202220746578743b20616e642062696e61727920002064617461", temp,"Second Char string in TXT RR read from wireformat")
txtRr2=Dnsruby::RR.create('txt2.t.dnsruby.validation-test-servers.nominet.org.uk. 60 IN TXT "Test1 \" \; more stuff" "Test2"')
assert_equal((txtRr2.strings)[0],'Test1 " ; more stuff', "First arg string in TXT RR read from zonefileformat")
assert_equal((txtRr2.strings)[1],'Test2',"Second Char string in TXT RR read from zonefileformat")
# txtRr3 = RR.create("baz.example.com 3600 HS TXT '\"' 'Char Str2'")
txtRr3 = Dnsruby::RR.create("baz.example.com 3600 IN TXT '\"' 'Char Str2'")
assert_equal( (txtRr3.strings)[0],'"',"Escaped \" between the single quotes")
end
end
|
