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
|
|
|
|
|
2006-12-31 18:09:46 -05:00
|
|
|
class TestDRbSSLCore < Test::Unit::TestCase
|
|
|
|
def test_message
|
|
|
|
flunk("YARV doesn't support drb")
|
|
|
|
end
|
|
|
|
end
|
2004-01-08 23:26:05 -05:00
|
|
|
|
2006-12-31 18:09:46 -05:00
|
|
|
# TODO: YARV doesn't support drb
|
|
|
|
if false # 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|
|
2004-03-19 02:13:01 -05:00
|
|
|
add_service_command(nm)
|
2003-10-21 10:42:15 -04:00
|
|
|
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__
|
2004-03-19 02:13:01 -05:00
|
|
|
@server = DRb::DRbServer.new(uri || 'drbssl://:0', self.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
|
2005-01-01 11:20:35 -05:00
|
|
|
@ext = DRbSSLService.ext_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
|
|
|
|
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
|
2005-01-01 11:20:35 -05:00
|
|
|
@ext = DRbSSLService.ext_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
|