2015-12-16 00:07:31 -05:00
|
|
|
# frozen_string_literal: false
|
2010-02-02 08:58:56 -05:00
|
|
|
require_relative 'drbtest'
|
2004-01-08 23:26:05 -05:00
|
|
|
|
|
|
|
begin
|
|
|
|
require 'drb/ssl'
|
|
|
|
rescue LoadError
|
|
|
|
end
|
|
|
|
|
2014-05-31 23:07:58 -04:00
|
|
|
module DRbTests
|
|
|
|
|
2007-11-19 13:30:18 -05:00
|
|
|
if Object.const_defined?("OpenSSL")
|
2004-01-08 23:26:05 -05:00
|
|
|
|
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
|
2013-06-19 03:47:38 -04:00
|
|
|
setup_service 'ut_drb_drbssl.rb'
|
|
|
|
super
|
2003-10-20 11:24:00 -04:00
|
|
|
end
|
|
|
|
|
2014-06-02 07:34:50 -04:00
|
|
|
def teardown
|
|
|
|
super
|
|
|
|
DRbService.finish
|
|
|
|
end
|
|
|
|
|
2003-10-20 11:24:00 -04:00
|
|
|
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
|
2013-06-19 03:47:38 -04:00
|
|
|
setup_service 'ut_array_drbssl.rb'
|
|
|
|
super
|
2003-10-20 11:24:00 -04:00
|
|
|
end
|
2014-06-02 07:34:50 -04:00
|
|
|
|
|
|
|
def teardown
|
|
|
|
super
|
|
|
|
DRbService.finish
|
|
|
|
end
|
2003-10-20 11:24:00 -04:00
|
|
|
end
|
2004-01-08 23:26:05 -05:00
|
|
|
|
|
|
|
|
2014-05-31 23:07:58 -04:00
|
|
|
end
|
|
|
|
|
2004-01-08 23:26:05 -05:00
|
|
|
end
|