pNet-DNS 0.0.1

data/test/tc_res_file.rb

@@ -0,0 +1,55 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+require 'test/unit'
+require 'Net/DNS'
+class TestAResolverFile < Test::Unit::TestCase
+  def test_resFile
+    #~ BEGIN { 
+    #~ chdir 't/' || die "Couldn't chdir to t/\n"  
+    #~ unshift(@INC, '../blib/lib', '../blib/arch')
+    #~ use_ok('Net::DNS')	
+    #~ }
+    
+    #~ SKIP: {
+    
+    #~ skip 'File parsing only supported on unix.', 7
+    #~ unless $Net::DNS::Resolver::ISA[0] eq 'Net::DNS::Resolver::UNIX'
+    
+    #~ skip 'Could not read configuration file', 7
+    #~ unless -r '.resolv.conf' && -o _
+    
+    res = Net::DNS::Resolver.new(:config_file => "test/resolv.conf")
+    
+    assert(res,                "new() returned something")
+    assert(res.nameservers,   "nameservers() works")
+    
+    servers = res.nameservers
+    
+    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], 'net-dns.org',     'Search set correctly' )
+    assert_equal(search[1], 'lib.net-dns.org', 'Search set correctly' )
+    
+    assert_equal(res.domain,  't.net-dns.org', 'Local domain works'  )
+    #~ }
+    
+    
+    
+  end
+end

data/test/tc_res_opt.rb

@@ -0,0 +1,135 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+require 'test/unit'
+require 'Net/DNS'
+class TestResOpt < Test::Unit::TestCase
+  def test_res_opt
+    
+    # .txt because this test will run under windows, unlike the other file
+    # configuration tests.
+    #test_file = File::Spec.catfile('t', 'custom.txt')
+    
+    #res = Net::DNS::Resolver.new(:config_file => :test_file)
+    res = Net::DNS::Resolver.new(:config_file => 'test/custom.txt')
+    
+    assert(res,                           'new() returned something')
+    assert_instance_of(Net::DNS::Resolver, res, 'new() returns an object of the correct class.')
+    assert(res.nameservers,       'nameservers() works')
+    
+    servers = res.nameservers
+    
+    assert_equal(servers[0], '10.0.1.42',  'Nameserver set correctly')
+    assert_equal(servers[1], '10.0.2.42',  'Nameserver set correctly')
+    
+    
+    search = res.searchlist
+    assert_equal(search[0],   'alt.net-dns.org', 'Search set correctly' )
+    assert_equal(search[1],   'ext.net-dns.org', 'Search set correctly' )
+    
+    assert_equal(res.domain, 't2.net-dns.org',  'Local domain works'  )
+  end
+  
+  def test_no_file
+    res=nil
+    begin
+      res = Net::DNS::Resolver.new(:config_file => 'nosuch.txt')
+      assert(false, "Should throw error trying to open non-existant file.")
+    rescue Exception
+      #assert($@,    'Error thrown trying to open non-existant file.')
+      assert(res==nil, 'Net::DNS::Resolver->new returned undef')
+    end
+  end
+  
+  def test_config
+    #
+    # Check that we can set things in new()
+    #
+    res=nil
+    
+    test_config = {
+	:nameservers	   => ['10.0.0.1', '10.0.0.2'],
+	:port		   => 54,
+	:srcaddr        => '10.1.0.1',
+	:srcport        => 53,
+	:domain	       => 'net-dns.org',
+	:searchlist	   => ['net-dns.org', 't.net-dns.org'],
+	:retrans	       => 6,
+	:retry		   => 5,
+	:usevc		   => 1,
+	:stayopen       => 1,
+	:igntc          => 1,
+	:recurse        => 0,
+	:defnames       => 0,
+	:dnsrch         => 0,
+	:debug          => 1,
+	:tcp_timeout    => 60,
+	:udp_timeout    => 60,
+	:persistent_tcp => 1,
+      #@todo Add dnssec when dnssec added to Net::DNS
+      #	'dnssec'         => 1,
+    }
+    
+    res = Net::DNS::Resolver.new(test_config)
+    
+    
+    test_config.keys.each do |item|
+      assert_equal(res.send_method(item), test_config[item], "#{item} is correct")
+    end	
+  end
+  
+  def test_bad_input
+    #
+    # Check that new() is vetting things properly.
+    #
+    
+    [:nameservers, :searchlist].each do |test|
+      [{}, 'string',1,'\1',nil].each do |input|
+        res=nil
+        begin
+          res = Net::DNS::Resolver.new({test => input})
+          assert(false, "Accepted invalid input")
+        rescue
+          assert(res==nil, 'No resolver should be returned for #{test} = #{input}')
+        end
+      end
+    end
+  end
+  
+  
+  def test_bad_config
+    res=nil
+    
+    bad_input = {
+	:tsig_rr        => 'set',
+	:errorstring    => 'set',
+	:answerfrom     => 'set',
+	:answersize     => 'set',
+	:querytime      => 'set',
+	:axfr_sel       => 'set',
+	:axfr_rr        => 'set',
+	:axfr_soa_count => 'set',
+	:udppacketsize  => 'set',
+	:cdflag         => 'set',
+    }
+    
+    res = Net::DNS::Resolver.new(bad_input)
+    
+    bad_input.keys.each do |key|
+      assert_not_equal(res.send_method(key), 'set', "#{key} is not set")
+    end
+    
+  end
+end

data/test/tc_resolver.rb

@@ -0,0 +1,102 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+require 'test/unit'
+require 'Net/DNS'
+class TestResolver < Test::Unit::TestCase
+  def test_resolver
+    res = Net::DNS::Resolver.new();
+    assert(res, "new returned something");
+    assert_instance_of(Net::DNS::Resolver, res, "new() returns an object of the correct class.");
+
+    assert(res.nameservers,       'nameservers() works');
+    
+    searchlist = ["t.net-dns.org", "t2.net-dns.org"];
+    assert_equal(res.searchlist=searchlist, searchlist, 'setting searchlist returns correctly.');
+    assert_equal(res.searchlist,               searchlist, 'setting searchlist stickts.');
+
+
+    good_input = {
+	"port"		  => 54,
+	"srcaddr"        => '10.1.0.1',
+	"srcport"        => 53,
+	"domain"	       => 'net-dns.org',
+	"retrans"	       => 6,
+	"retry"		   => 5,
+	"usevc"		   => 1,
+	"stayopen"       => 1,
+	"igntc"          => 1,
+	"recurse"        => 0,
+	"defnames"       => 0,
+	"dnsrch"         => 0,
+	"debug"          => 1,
+	"tcp_timeout"    => 60,
+	"udp_timeout"    => 60,
+	"persistent_tcp" => 1,
+	"dnssec"         => 1,
+	"force_v4"       => 1,
+    };
+
+    #~ #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";
+
+    good_input.each do | param, value |
+#      puts("Setting " + param);
+      assert_equal(res.port=(value), value, "setting " +  param +  " returns correctly");
+      assert_equal(res.port, value,       "setting #param sticks");
+    end;
+    
+    bad_input = {
+	"tsig_rr"        => 'set',
+	"errorstring"    => 'set',
+	"answerfrom"     => 'set',
+	"answersize"     => 'set',
+	"querytime"      => 'set',
+	"axfr_sel"       => 'set',
+	"axfr_rr"        => 'set',
+	"axfr_soa_count" => 'set',
+	"udppacketsize"  => 'set',
+	"cdflag"         => 'set',
+    };	
+
+    # Some people try to run these on private address space."
+
+    #~ use Net::IP;
+
+    #~ use IO::Socket::INET;
+    #~ sock = IO::Socket::INET.new(PeerAddr => '193.0.14.129', # k.root-servers.net.
+				 #~ PeerPort => '25',
+				 #~ Proto    => 'udp');
+
+
+    #~ ip=Net::IP.new(inet_ntoa(sock.sockaddr));
+    
+    # @todo Test whether we are online
+    # If we are online, then run the next set of tests
+    
+       res = Net::DNS::Resolver.new
+	
+	res.nameservers=('a.t.net-dns.org')
+	ip = res.nameservers()[0]
+	print ip.inspect
+	assert_equal('10.0.1.128', ip, 'Nameservers() looks up IP.')
+	
+	res.nameservers=('cname.t.net-dns.org')
+	ip = (res.nameservers)[0]
+	assert_equal(ip, '10.0.1.128', 'Nameservers() looks up cname.')
+	    
+
+  end
+end

data/test/tc_rr-opt.rb

@@ -0,0 +1,40 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+require 'test/unit'
+require 'Net/DNS'
+class TestRrOpt < Test::Unit::TestCase
+  def test_RrOpt
+    size=2048;
+    ednsflags=0x9e22;
+    
+    
+    optrr= Net::DNS::RR.create( { :type         => 'OPT',
+			  :name         => '',
+			  :class        => size,  # Decimal UDPpayload
+			  :ednsflags    => ednsflags # first bit set see RFC 3225
+    })
+    # @TODO replace DO bit stuff when DNSSEC is implemented
+    #assert(optrr.do,"DO bit set")
+    #assert_equal(optrr.clear_do,0x1e22,"Clearing do, leaving the other bits ");
+    #assert(!optrr.do,"DO bit cleared")
+    #assert_equal(optrr.set_do,0x9e22,"Clearing do, leaving the other bits ");
+    
+    
+    assert_equal(optrr.size,2048,"Size read")
+    assert_equal(optrr.size=(1498),1498,"Size set")
+    
+  end
+end

data/test/tc_rr-rrsort.rb

@@ -0,0 +1,116 @@
+# The contents of this file are subject to the Mozilla
+# Public Licence Version 1.1 (the "Licence"); you may
+# not use this file except in compliance with the
+# Licence. You may obtain a copy of the Licence at
+# http://www.mozilla.org/MPL
+# Software distributed under the Licence is distributed
+# on an "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND,
+# either express or implied. See the Licence of the
+# specific language governing rights and limitations
+# under the Licence.
+# The Original Code is pNet::DNS.
+# The Initial Developer of the Original Code is
+# Nominet UK (www.nominet.org.uk). Portions created by
+# Nominet UK are Copyright (c) Nominet UK 2006.
+# All rights reserved.
+require 'test/unit'
+require 'Net/DNS'
+class TestRrRrSort < Test::Unit::TestCase
+  def test_RrRrSort
+    rr1=Net::DNS::RR.create("example.com.  600     IN      SRV     0 0 5060 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr1,"SRV RR1 created")
+    rr2=Net::DNS::RR.create("example.com.  600     IN      SRV     1 0 5060 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr2,"SRV RR2 created")
+    rr3=Net::DNS::RR.create("example.com.  600     IN      SRV     2 0 5060 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr3,"SRV RR3 created")
+    rr4=Net::DNS::RR.create("example.com.  600     IN      SRV     3 0 5060 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr4,"SRV RR4 created")
+    rr5=Net::DNS::RR.create("example.com.  600     IN      SRV     3 1 5060 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr5,"SRV RR5 created")
+    rr6=Net::DNS::RR.create("example.com.  600     IN      SRV     3 2 5060 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr6,"SRV RR6 created")
+    rr7=Net::DNS::RR.create("example.com.  600     IN      SRV     1 3 5070 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr7,"SRV RR7 created")
+    rr8=Net::DNS::RR.create("example.com.  600     IN      SRV     3 3 5070 A.example.com.")
+    assert_instance_of(Net::DNS::RR::SRV,rr8,"SRV RR8 created")
+    rr9=Net::DNS::RR.create("example.com.  600     IN     A 192.168.0.1")
+    assert_instance_of(Net::DNS::RR::A,rr9,"A RR9 created")
+    
+    
+    rrarray=[rr1, rr2, rr3, rr4, rr5, rr6, rr7, rr8, rr9]
+    expectedrdata=[rr1, rr2, rr3, rr7, rr4, rr5, rr6,  rr8]
+    expectedpriority=[rr1, rr7, rr2, rr3, rr8, rr6, rr5, rr4]
+    expectedweight=[rr7, rr8, rr6, rr5, rr1, rr2, rr3, rr4]
+    
+    
+    
+    assert_equal(nil,Net::DNS.rrsort("SRV"),"rrsort returns rrerly whith undefined arguments")
+    
+    assert_equal(8,Net::DNS.rrsort("SRV",rrarray).length,"rrsort returns properly whith undefined attribute (1)")
+    
+    #assert_equal(rrsort("SRV",,@rrarray),8,"rrsort returns properly whith undefined attribute (2)")
+    
+    assert_equal(8,Net::DNS.rrsort("SRV","",rrarray).length,"rrsort returns properly whith undefined attribute (3)")
+    
+    prioritysorted= Net::DNS.rrsort("SRV","priority",rrarray)
+    weightsorted= Net::DNS.rrsort("SRV","weight",rrarray)
+    defaultsorted= Net::DNS.rrsort("SRV",rrarray)
+    portsorted= Net::DNS.rrsort("SRV","port",rrarray)
+    
+    foosorted= Net::DNS.rrsort("SRV","foo",rrarray)
+    assert_equal(8,foosorted.length,"rrsort returns properly whith undefined attribute (3)")
+    
+    assert_equal(8, prioritysorted.length,"rrsort correctly maintains RRs test 2")
+    
+    
+    #    assert_equal(expectedpriority, prioritysorted, "Sorting on SRV priority works")
+    max = 0
+    prioritysorted.each { |i| assert(i.priority >= max); max = i.priority}
+    #    assert_equal(expectedpriority, defaultsorted, "Default SRV sort works")
+    max = 0
+    defaultsorted.each { |i| assert(i.priority >= max); max = i.priority}
+    #    assert_equal(expectedweight, weightsorted, "Weight sorted SRV sort works")
+    max = 0
+    weightsorted.each { |i| assert(i.weight >= max); max = i.weight}
+    
+    
+    assert_equal(1, Net::DNS.rrsort("A","priority",rrarray).length,"rrsort correctly maintains RRs test 1")
+    assert_equal(nil, Net::DNS.rrsort("MX","priority",rrarray),"rrsort correctly maintains RRs test 3")
+    
+    
+    #
+    # Test with MX RRs.
+    #
+    
+    mxrr1=Net::DNS::RR.create("example.com.  600     IN      MX 10 mx1.example.com")
+    mxrr2=Net::DNS::RR.create("example.com.  600     IN      MX 6 mx2.example.com")
+    
+    mxrr3=Net::DNS::RR.create("example.com.  600     IN      MX 66 mx3.example.com")
+    mxrr4=Net::DNS::RR.create("example.com.  600     IN      RT 6 rt1.example.com")
+    
+    
+    mxrrarray=[mxrr1, mxrr2, mxrr3, mxrr4]
+    expectedmxarray=[mxrr2,mxrr1,mxrr3]
+    sortedmxarray=Net::DNS.rrsort("MX",mxrrarray)
+    
+    assert_equal(expectedmxarray,sortedmxarray,"MX sorting")
+    
+    
+    
+    
+    nsrr1=Net::DNS::RR.create("example.com.  600     IN      NS ns2.example.com")
+    nsrr2=Net::DNS::RR.create("example.com.  600     IN      NS ns4.example.com")
+    nsrr3=Net::DNS::RR.create("example.com.  600     IN      NS ns1.example.com")
+    nsrr4=Net::DNS::RR.create("example.com.  600     IN      RT 6 rt1.example.com")
+    
+    nsrrarray=[nsrr1, nsrr2, nsrr3, nsrr4]
+    expectednsarray=[nsrr3,nsrr1,nsrr2]
+    sortednsarray=Net::DNS.rrsort("NS",nsrrarray)
+    
+    
+    
+    
+    assert_equal(expectednsarray,sortednsarray,"NS sorting")
+    
+  end
+end