added tag v1_9_0_4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18845 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 195 insertions, 0 deletions

diff --git a/trunk/test/drb/test_acl.rb b/trunk/test/drb/test_acl.rb
new file mode 100644
index 0000000000..d8955e0e75
--- /dev/null
+++ b/trunk/test/drb/test_acl.rb
@@ -0,0 +1,195 @@
+# acltest.rb - ACL unit test
+# Copyright (c) 2000 Masatoshi SEKI
+#
+# acltest.rb is copyrighted free software by Masatoshi SEKI.
+# You can redistribute it and/or modify it under the same terms as Ruby.
+
+require 'test/unit'
+require 'drb/acl'
+
+class SampleHosts
+  def initialize
+    list = %w(127.0.0.1 localhost
+              192.168.1.1 x68k.linux.or.jp
+              192.168.1.2 lc630.macos.or.jp
+              192.168.1.3 lib30.win32.or.jp
+              192.168.1.4 ns00.linux.or.jp
+              192.168.1.5 yum.macos.or.jp
+              ::ffff:192.168.1.5 ipv6.macos.or.jp
+              ::192.168.1.5 too.yumipv6.macos.or.jp
+              192.168.1.254 comstarz.foo.or.jp)
+
+    @hostlist = Array.new(list.size / 2)
+    @hostlist.each_index do |idx|
+      @hostlist[idx] = ["AF_INET", 10000, list[idx * 2 + 1], list[idx * 2]]
+    end
+
+    @hosts = Hash.new
+    @hostlist.each do |h|
+      @hosts[h[2].split('.')[0]] = h
+    end
+  end
+  attr_reader(:hostlist, :hosts)
+end
+
+
+class ACLEntryTest < Test::Unit::TestCase
+  HOSTS = SampleHosts.new
+
+  def setup
+    @hostlist = HOSTS.hostlist
+    @hosts = HOSTS.hosts
+  end
+
+  def test_all
+    a = ACL::ACLEntry.new("*")
+    b = ACL::ACLEntry.new("all")
+    @hostlist.each do |h|
+      assert(a.match(h))
+      assert(b.match(h))
+    end
+  end
+
+  def test_ip_v6
+    a = ACL::ACLEntry.new('::ffff:192.0.0.0/104')
+    assert(! a.match(@hosts['localhost']))
+    assert(a.match(@hosts['yum']))
+    assert(a.match(@hosts['ipv6']))
+    assert(! a.match(@hosts['too']))
+  end
+
+  def test_ip
+    a = ACL::ACLEntry.new('192.0.0.0/8')
+    assert(! a.match(@hosts['localhost']))
+    assert(a.match(@hosts['yum']))
+
+    a = ACL::ACLEntry.new('192.168.0.1/255.255.0.255')
+    assert(! a.match(@hosts['localhost']))
+    assert(! a.match(@hosts['yum']))
+    assert(a.match(@hosts['x68k']))
+
+    a = ACL::ACLEntry.new('192.168.1.0/24')
+    assert(! a.match(@hosts['localhost']))
+    assert(a.match(@hosts['yum']))
+    assert(a.match(@hosts['x68k']))
+
+    a = ACL::ACLEntry.new('92.0.0.0/8')
+    assert(! a.match(@hosts['localhost']))
+    assert(! a.match(@hosts['yum']))
+    assert(! a.match(@hosts['x68k']))
+
+    a = ACL::ACLEntry.new('127.0.0.1/255.0.0.255')
+    assert(a.match(@hosts['localhost']))
+    assert(! a.match(@hosts['yum']))
+    assert(! a.match(@hosts['x68k']))
+  end
+
+  def test_name
+    a = ACL::ACLEntry.new('*.jp')
+    assert(! a.match(@hosts['localhost']))
+    assert(a.match(@hosts['yum']))
+
+    a = ACL::ACLEntry.new('yum.*.jp')
+    assert(a.match(@hosts['yum']))
+    assert(! a.match(@hosts['lc630']))
+
+    a = ACL::ACLEntry.new('*.macos.or.jp')
+    assert(a.match(@hosts['yum']))
+    assert(a.match(@hosts['lc630']))
+    assert(! a.match(@hosts['lib30']))
+  end
+end
+
+class ACLListTest < Test::Unit::TestCase
+  HOSTS = SampleHosts.new
+
+  def setup
+    @hostlist = HOSTS.hostlist
+    @hosts = HOSTS.hosts
+  end
+
+  private
+  def build(list)
+    acl= ACL::ACLList.new
+    list.each do |s|
+      acl.add s
+    end
+    acl
+  end
+
+  public
+  def test_all_1
+    a = build(%w(all))
+    @hostlist.each do |h|
+      assert(a.match(h))
+    end
+  end
+
+  def test_all_2
+    a = build(%w(localhost 127.0.0.0/8 yum.* *))
+    @hostlist.each do |h|
+      assert(a.match(h))
+    end
+  end
+
+  def test_1
+    a = build(%w(192.0.0.1/255.0.0.255 yum.*.jp))
+    assert(a.match(@hosts['yum']))
+    assert(a.match(@hosts['x68k']))
+    assert(! a.match(@hosts['lc630']))
+  end
+
+  def test_2
+    a = build(%w(*.linux.or.jp))
+    assert(!a.match(@hosts['yum']))
+    assert(a.match(@hosts['x68k']))
+    assert(!a.match(@hosts['lc630']))
+  end
+end
+
+class ACLTest < Test::Unit::TestCase
+  HOSTS = SampleHosts.new
+
+  def setup
+    @hostlist = HOSTS.hostlist
+    @hosts = HOSTS.hosts
+  end
+
+  def test_0
+    a = ACL.new
+    @hostlist.each do |h|
+      assert(a.allow_addr?(h))
+    end
+  end
+
+  def test_not_0
+    a = ACL.new([], ACL::ALLOW_DENY)
+    @hostlist.each do |h|
+      assert(! a.allow_addr?(h))
+    end
+  end
+
+  def test_1
+    data = %w(deny all
+              allow localhost
+              allow x68k.*)
+
+    a = ACL.new(data)
+    assert(a.allow_addr?(@hosts['x68k']))
+    assert(a.allow_addr?(@hosts['localhost']))
+    assert(! a.allow_addr?(@hosts['lc630']))
+  end
+
+  def test_not_1
+    data = %w(deny 192.0.0.0/8
+              allow localhost
+              allow x68k.*)
+
+    a = ACL.new(data, ACL::ALLOW_DENY)
+    assert(!a.allow_addr?(@hosts['x68k']))
+    assert(a.allow_addr?(@hosts['localhost']))
+    assert(! a.allow_addr?(@hosts['lc630']))
+  end
+end
+
+