Dnsruby 0.5.0

data/test/tc_misc.rb

@@ -0,0 +1,139 @@
+#--
+#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.
+#++
+require 'rubygems'
+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

data/test/tc_name.rb

@@ -0,0 +1,53 @@
+#--
+#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.
+#++
+require 'rubygems'
+require 'test/unit'
+require 'dnsruby'
+include Dnsruby
+class TestName < Test::Unit::TestCase
+  def test_label_length
+    Name::Label.set_max_length(Name::Label::MaxLabelLength) # Other tests may have changed this  
+    # Test max label length = 63
+    begin
+      name = Name.create("a.b.12345678901234567890123456789012345678901234567890123456789012345.com")
+      assert(false, "Label of more than max=63 allowed")
+    rescue ResolvError
+    end
+  end
+  
+  def test_name_length
+    # Test max name length=255
+    begin
+      name = Name.create("1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123.com")
+      assert(false, "Name of length > 255 allowed")
+    rescue ResolvError
+    end
+  end
+  
+  def test_absolute
+    n = Name.create("example.com")
+    assert(!n.absolute?)
+    n = Name.create("example.com.")
+    assert(n.absolute?)
+  end
+
+  def test_wild
+    n = Name.create("example.com")
+    assert(!n.wild?)
+    n = Name.create("*.example.com.")
+    assert(n.wild?)
+  end
+end

data/test/tc_packet.rb

@@ -0,0 +1,158 @@
+#--
+#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.
+#++
+require 'rubygems'
+require 'test/unit'
+require 'dnsruby'
+include Dnsruby
+class TestPacket < Test::Unit::TestCase
+  def test_packet
+      domain = "example.com"
+      type = "MX"
+      klass = "IN"
+      
+        packet = Message.new(domain, type, klass)
+      
+      assert(packet,                                 'new() returned something');         #2
+      assert(packet.header,                         'header() method works');            #3
+      assert_instance_of(Header,packet.header,'header() returns right thing');     #4
+      
+      
+      question = packet.question;
+      assert(question && question.length == 1,             'question() returned right number of items'); #5
+#      assert_instance_of(Net::DNS::Question,question[0], 'question() returned the right thing');       #6
+      
+      answer = packet.answer;
+      assert(answer.length == 0,     'answer() works when empty');     #7
+      
+      
+      authority = packet.authority;
+      assert(authority.length == 0,  'authority() works when empty');  #8
+      
+      additional = packet.additional;
+      assert(additional.length == 0, 'additional() works when empty'); #9
+      
+      packet.add_answer(RR.create(   { 
+              :name    => "a1.example.com", 
+		      :type    => Types.A,  
+		      :address => "10.0.0.1"}));
+      assert_equal(1, packet.header.ancount, 'First push into answer section worked');      #10
+      
+      
+      packet.add_answer(RR.create({:name    => "a2.example.com",
+		      :type    => "A", :address => "10.0.0.2"}));
+      assert_equal(packet.header.ancount, 2, 'Second push into answer section worked');     #11
+      
+      
+      packet.add_authority(RR.create({:name    => "a3.example.com",
+		      :type    => "A",
+		      :address => "10.0.0.3"}));
+      assert_equal(1, packet.header.nscount, 'First push into authority section worked');   #12
+      
+      
+      packet.add_authority(RR.create( {
+		      :name    => "a4.example.com",
+		      :type    => "A",
+		      :address => "10.0.0.4"}));
+      assert_equal(2, packet.header.nscount, 'Second push into authority section worked');  #13
+      
+      packet.add_additional(RR.create({
+		      :name    => "a5.example.com",
+		      :type    => "A",
+		      :address => "10.0.0.5"}));
+      assert_equal(1, packet.header.adcount, 'First push into additional section worked');  #14
+      
+      packet.add_additional(RR.create(  {
+		      :name    => "a6.example.com",
+		      :type    => Types.A,
+		      :address => "10.0.0.6"}));
+      assert_equal(2, packet.header.adcount, 'Second push into additional section worked'); #15
+      
+      data = packet.encode;
+      
+      packet2 = Message.decode(data);
+      
+      assert(packet2, 'new() from data buffer works');   #16
+
+      assert_equal(packet.to_s, packet2.to_s, 'inspect() works correctly');  #17
+      
+      
+      string = packet2.to_s
+      6.times do |count|
+            	ip = "10.0.0.#{count+1}";
+      	assert(string =~ /#{ip}/,  "Found #{ip} in packet");  # 18 though 23
+      end
+      
+      assert_equal(1, packet2.header.qdcount, 'header question count correct');   #24
+      assert_equal(2, packet2.header.ancount, 'header answer count correct');     #25
+      assert_equal(2, packet2.header.nscount, 'header authority count correct');  #26 
+      assert_equal(2, packet2.header.adcount, 'header additional count correct'); #27
+      
+      
+      
+      # Test using a predefined answer. This is an answer that was generated by a bind server.
+      #
+      
+#      data=["22cc85000001000000010001056461636874036e657400001e0001c00c0006000100000e100025026e730472697065c012046f6c6166c02a7754e1ae0000a8c0000038400005460000001c2000002910000000800000050000000030"].pack("H*");
+uuencodedPacket =%w{
+22 cc 85 00 00 01 00 00 00 01 00 01 05 64 61 63 
+68 74 03 6e 65 74 00 00 1e 00 01 c0 0c 00 06 00 
+01 00 00 0e 10 00 25 02 6e 73 04 72 69 70 65 c0 
+12 04 6f 6c 61 66 c0 2a 77 54 e1 ae 00 00 a8 c0 
+00 00 38 40 00 05 46 00 00 00 1c 20 00 00 29 10 
+00 00 00 80 00 00 05 00 00 00 00 30
+}
+    uuencodedPacket.map!{|e| e.hex}
+    packetdata = uuencodedPacket.pack('c*')
+
+      packet3 = Message.decode(packetdata)
+      assert(packet3,                                 'new(\data) returned something');         #28
+      
+      assert_equal(packet3.header.qdcount, 1, 'header question count in syntetic packet correct');   #29
+      assert_equal(packet3.header.ancount, 0, 'header answer count in syntetic packet correct');     #30
+      assert_equal(packet3.header.nscount, 1, 'header authority count in syntetic packet  correct'); #31 
+      assert_equal(packet3.header.adcount, 1, 'header additional in sytnetic  packet correct');      #32
+      
+      rr=packet3.additional;
+      
+      assert_equal(Types.OPT, rr[0].type, "Additional section packet is EDNS0 type");                         #33
+      assert_equal(4096, rr[0].klass.code, "EDNS0 packet size correct");                                     #34
+      
+      # In theory its valid to have multiple questions in the question section.
+      # Not many servers digest it though.
+      
+      packet.add_question("bla.foo", Types::TXT, Classes.CH)
+      question = packet.question
+      assert_equal(2, question.length,             'question() returned right number of items poptest:2'); #36            
+  end    
+      
+      
+   def test_push
+      packet=Message.new("254.9.11.10.in-addr.arpa","PTR","IN")
+      
+      packet.add_answer(RR.create(%q[254.9.11.10.in-addr.arpa 86400 IN PTR host-84-11-9-254.customer.example.com]));
+      
+      packet.add_authority(RR.create("9.11.10.in-addr.arpa 86400 IN NS autons1.example.com"));
+      packet.add_authority(RR.create("9.11.10.in-addr.arpa 86400 IN NS autons2.example.com"));
+      packet.add_authority(RR.create("9.11.10.in-addr.arpa 86400 IN NS autons3.example.com"));
+
+      data=packet.encode
+      
+      packet2=Message.decode(data)
+      
+      assert_equal(packet.to_s,packet2.to_s,"Packet to data and back (failure indicates brasserten dn_comp)");  #39
+      
+    end
+end

data/test/tc_packet_unique_push.rb

@@ -0,0 +1,102 @@
+#--
+#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.
+#++
+require 'rubygems'
+require 'test/unit'
+require 'dnsruby'
+include Dnsruby
+class TestPacketUniquePush < Test::Unit::TestCase
+  #  def test_packUniquePush
+  #    
+  #    
+  #    testProc('unique_push');
+  #  end
+  #  
+  ##  def test_packetSafePush
+  ##    begin
+  ##      testProc('safe_push');
+  ##      flunk("Shouldn't work!")
+  ##    rescue Exception
+  ##    end
+  ##  end
+  
+  #  def testProc (method)
+  def test_proc
+    domain = 'example.com';
+    
+    tests = [
+    [ 
+    1,
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    ],
+    [
+    2,
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('bar.example.com 60 IN A 10.0.0.1'),
+    ],
+    [ 
+    2,
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 90 IN A 10.0.0.1'),
+    ],
+    [ 
+    3,
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 60 IN A 10.0.0.2'),
+    RR.create('foo.example.com 60 IN A 10.0.0.3'),
+    ],
+    [ 
+    3,
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 60 IN A 10.0.0.2'),
+    RR.create('foo.example.com 60 IN A 10.0.0.3'),
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    ],
+    [ 
+    3,
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 60 IN A 10.0.0.2'),
+    RR.create('foo.example.com 60 IN A 10.0.0.1'),
+    RR.create('foo.example.com 60 IN A 10.0.0.4'),
+    ],
+    ]
+    
+    methods = {
+		'add_answer'     => 'ancount',
+		'add_authority'  => 'nscount',
+		'add_additional' => 'arcount',
+    }
+    
+    tests.each do | try |  
+      count = try.shift;
+      rrs = try;
+      
+      methods.each do |method, count_meth|
+        
+        packet = Message.new(domain)
+        
+        rrs.each do |rr|
+          packet.send(method,rr)
+        end
+        
+        assert_equal(count, packet.header.send(count_meth), "#{method} right for #{rrs.inspect}");
+        assert_equal(count, packet.header.send(count_meth), "#{method} right for #{rrs.inspect}");
+        
+      end
+    end
+  end
+end

data/test/tc_question.rb

@@ -0,0 +1,52 @@
+#--
+#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.
+#++
+require 'rubygems'
+require 'test/unit'
+require 'dnsruby'
+include Dnsruby
+class TestQuestion < Test::Unit::TestCase
+  def test_question
+    domain = "example.com"
+    type = Types.MX
+    klass = Classes.IN
+    
+    q = Question.new(domain, type, klass)
+    assert(q, "new() returned something")
+    assert_equal(domain, q.qname.to_s, "qName()")
+    assert_equal(type, q.qtype, "qType()")
+    assert_equal(klass, q.qclass, "qClass()")
+    
+#    #
+#    # Check the aliases
+#    #
+#    assert_equal(q.zname,  domain, 'zName()'  );
+#    assert_equal(q.ztype,  type,   'zType()'  );
+#    assert_equal(q.zclass, klass,  'zClass()' );
+#    @todo@ !!
+    
+#    #
+#    # Check that we can change stuff
+#    #
+#    q.qname=('example.net');
+#    q.qtype=('A');
+#    q.qclass=('CH');
+#    
+#    assert_equal('example.net', q.qname.to_s,  'qName()'  );
+#    assert_equal(q.qtype,  Types.A,           'qType()'  );
+#    assert_equal(q.qclass, Classes.CH,          'qClass()' );
+    
+  end
+end

data/test/tc_res_config.rb

@@ -0,0 +1,92 @@
+#--
+#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.
+#++
+require 'rubygems'
+require 'test/unit'
+require 'Dnsruby'
+class TestResolverConfig < Test::Unit::TestCase
+  def setup
+    Dnsruby::Config.reset
+  end
+  
+  GoodInput = {
+	"port"		  => 54,
+	"src_address"        => '10.1.0.1',
+	"src_port"        => 53,
+	"use_tcp"		   => true,
+    #	"stayopen"       => 1,
+	"ignore_truncation"          => true,
+	"recurse"        => false,
+	"packet_timeout"    => 5,
+	"persistent_tcp" => true,
+	"persistent_udp" => true,
+    #	"dnssec"         => 1,
+    #	"force_v4"       => 1,
+  };
+  
+  ExtendedInput={
+    "query_timeout"        => 30,
+	"retry_delay"	       => 6,
+	"retry_times"		   => 5,
+  }
+  
+  LookupInput={
+	"domain"	       => 'dnsruby.rubyforge.org',
+	"apply_search_list"         => false,
+	"ndots"       => 4	,
+	"apply_domain" => false	
+  }
+  
+  def test_multiple_resolver
+    res = Dnsruby::Resolver.new();
+    assert(res, "new returned something");
+    assert_instance_of(Dnsruby::Resolver, res, "new() returns an object of the correct class.");
+    
+    assert(res.config.nameserver,       'nameserver() works');
+    
+    searchlist = ["t.dnsruby.validation-test-servers.nominet.org.uk", "t2.dnsruby.validation-test-servers.nominet.org.uk"];
+    assert_equal(res.config.search=searchlist, searchlist, 'setting searchlist returns correctly.');
+    assert_equal(res.config.search,               searchlist, 'setting searchlist stickts.');
+    
+    
+    #~ #diag "\n\nIf you do not have Net::DNS::SEC installed you will see a warning.\n";
+    #~ #diag "It is safe to ignore this\n";
+    
+     (GoodInput.merge(ExtendedInput)).each do | param, value |
+      #      puts("Setting " + param);
+      res.send(param+"=", value)
+      assert_equal(res.send(param), value,       "setting #param sticks");
+    end;
+    
+  end
+  
+  def test_single_resolver
+    res = Dnsruby::SingleResolver.new
+    GoodInput.each do | param, value |
+      #      puts("Setting " + param);
+      res.send(param+"=", value)
+      assert_equal(res.send(param), value,       "setting #param sticks");
+    end;
+  end
+  
+  def test_dns
+    res = Dnsruby::DNS.new
+    LookupInput.each do | param, value |
+      res.config.send(param+"=", value)
+      assert_equal(res.config.send(param), value,       "setting #param sticks");
+    end;    
+  end
+  
+end

data/test/tc_res_env.rb

@@ -0,0 +1,62 @@
+#--
+#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.
+#++
+require 'rubygems'
+require 'test/unit'
+require 'dnsruby'
+include Dnsruby
+class TestResolverEnv < Test::Unit::TestCase
+# @todo@ Dnsruby does not provide this functionality
+  def test_res_env
+    ENV['RES_NAMESERVERS'] = '10.0.1.128 10.0.2.128';
+    ENV['RES_SEARCHLIST']  = 'dnsruby.validation-test-servers.nominet.org.uk lib.dnsruby.validation-test-servers.nominet.org.uk';
+    ENV['LOCALDOMAIN']     = 't.dnsruby.validation-test-servers.nominet.org.uk';
+    ENV['RES_OPTIONS']     = 'retrans:3 retry:2 debug';
+    
+    
+    res = DNS.new;
+    
+    assert(res,                       "new() returned something");
+    assert(res.config.nameserver,   "nameservers() works");
+    
+    servers = res.config.nameserver;
+    
+    assert_equal(servers[0], '10.0.1.128',  'Nameserver set correctly');
+    assert_equal(servers[1], '10.0.2.128',  'Nameserver set correctly');
+    
+    
+    search = res.searchlist;
+    assert_equal(search[0], 'dnsruby.validation-test-servers.nominet.org.uk',     'Search set correctly' );
+    assert_equal(search[1], 'lib.dnsruby.validation-test-servers.nominet.org.uk', 'Search set correctly' );
+    
+    assert_equal(res.domain,  't.dnsruby.validation-test-servers.nominet.org.uk', 'Local domain works'  );
+    assert_equal(3, res.retrans,               'Retransmit works'    );
+    assert_equal(2, res.retry,                 'Retry works'         );
+    assert(res.debug,                    'Debug works'         );
+    
+    
+    
+    
+    # @TODO Get these DNSSEC tests working!!
+#    eval('$Net::DNS::DNSSEC=0;  \
+#	local $SIG{__WARN__}=sub { ok ($_[0]=~/You called the Net::DNS::Resolver::dnssec\(\)/, "Correct warning in absense of Net::DNS::SEC") };	\
+#	res.dnssec(1);')
+#    
+#    eval('$Net::DNS::DNSSEC=1;			\
+#	local $SIG{__WARN__}=sub { diag "We are ignoring that Net::DNS::SEC not installed."	 }; \
+#	res.dnssec(1);	 \
+#	assert_equal(res.udppacketsize(),2048,"dnssec() sets udppacketsize to 2048");')
+  end
+end