2003-10-21 23:53:41 -04:00
|
|
|
require 'drbtest'
|
2004-01-08 23:26:05 -05:00
|
|
|
|
|
|
|
begin
|
|
|
|
require 'drb/ssl'
|
|
|
|
rescue LoadError
|
|
|
|
end
|
|
|
|
|
|
|
|
if Object.const_defined?("OpenSSL")
|
|
|
|
|
2003-10-20 11:24:00 -04:00
|
|
|
|
2003-10-21 10:42:15 -04:00
|
|
|
class DRbSSLService < DRbService
|
|
|
|
%w(ut_drb_drbssl.rb ut_array_drbssl.rb).each do |nm|
|
|
|
|
DRb::ExtServManager.command[nm] = "#{@@ruby} #{@@dir}/#{nm}"
|
|
|
|
end
|
|
|
|
config = Hash.new
|
|
|
|
|
|
|
|
config[:SSLVerifyMode] = OpenSSL::SSL::VERIFY_PEER
|
|
|
|
config[:SSLVerifyCallback] = lambda{ |ok,x509_store|
|
|
|
|
true
|
|
|
|
}
|
|
|
|
begin
|
|
|
|
data = open("sample.key"){|io| io.read }
|
|
|
|
config[:SSLPrivateKey] = OpenSSL::PKey::RSA.new(data)
|
|
|
|
data = open("sample.crt"){|io| io.read }
|
|
|
|
config[:SSLCertificate] = OpenSSL::X509::Certificate.new(data)
|
|
|
|
rescue
|
|
|
|
# $stderr.puts "Switching to use self-signed certificate"
|
|
|
|
config[:SSLCertName] =
|
|
|
|
[ ["C","JP"], ["O","Foo.DRuby.Org"], ["CN", "Sample"] ]
|
|
|
|
end
|
|
|
|
|
2003-10-21 23:53:41 -04:00
|
|
|
uri = ARGV.shift if $0 == __FILE__
|
|
|
|
@server = DRb::DRbServer.new(uri || 'drbssl://:0', @@manager, config)
|
2003-10-20 11:24:00 -04:00
|
|
|
end
|
|
|
|
|
2003-10-21 10:42:15 -04:00
|
|
|
class TestDRbSSLCore < Test::Unit::TestCase
|
|
|
|
include DRbCore
|
2003-10-20 11:24:00 -04:00
|
|
|
def setup
|
2003-10-21 10:42:15 -04:00
|
|
|
@ext = DRbSSLService.manager.service('ut_drb_drbssl.rb')
|
2003-10-20 11:24:00 -04:00
|
|
|
@there = @ext.front
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_02_unknown
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_01_02_loop
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_05_eq
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_06_timeout
|
|
|
|
ten = Onecky.new(3)
|
2003-10-21 10:42:15 -04:00
|
|
|
assert_raises(TimeoutError) do
|
2003-10-20 11:24:00 -04:00
|
|
|
@there.do_timeout(ten)
|
|
|
|
end
|
2003-10-21 10:42:15 -04:00
|
|
|
assert_raises(TimeoutError) do
|
2003-10-20 11:24:00 -04:00
|
|
|
@there.do_timeout(ten)
|
|
|
|
end
|
|
|
|
sleep 3
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
|
2003-10-21 10:42:15 -04:00
|
|
|
class TestDRbSSLAry < Test::Unit::TestCase
|
|
|
|
include DRbAry
|
2003-10-20 11:24:00 -04:00
|
|
|
def setup
|
2003-10-21 10:42:15 -04:00
|
|
|
@ext = DRbSSLService.manager.service('ut_array_drbssl.rb')
|
2003-10-20 11:24:00 -04:00
|
|
|
@there = @ext.front
|
|
|
|
end
|
|
|
|
end
|
2004-01-08 23:26:05 -05:00
|
|
|
|
|
|
|
|
|
|
|
end
|