2004-11-16 09:07:15 -05:00
|
|
|
require 'test/unit'
|
|
|
|
require 'webrick'
|
2010-02-02 08:58:56 -05:00
|
|
|
require_relative 'webrick_testing'
|
2004-11-16 09:07:15 -05:00
|
|
|
require "xmlrpc/server"
|
|
|
|
require 'xmlrpc/client'
|
|
|
|
|
|
|
|
class Test_Webrick < Test::Unit::TestCase
|
|
|
|
include WEBrick_Testing
|
|
|
|
|
|
|
|
def create_servlet
|
|
|
|
s = XMLRPC::WEBrickServlet.new
|
|
|
|
|
|
|
|
s.add_handler("test.add") do |a,b|
|
|
|
|
a + b
|
|
|
|
end
|
|
|
|
|
|
|
|
s.add_handler("test.div") do |a,b|
|
|
|
|
if b == 0
|
|
|
|
raise XMLRPC::FaultException.new(1, "division by zero")
|
|
|
|
else
|
2009-03-05 22:56:38 -05:00
|
|
|
a / b
|
2004-11-16 09:07:15 -05:00
|
|
|
end
|
2009-03-05 22:56:38 -05:00
|
|
|
end
|
2004-11-16 09:07:15 -05:00
|
|
|
|
|
|
|
s.set_default_handler do |name, *args|
|
|
|
|
raise XMLRPC::FaultException.new(-99, "Method #{name} missing" +
|
|
|
|
" or wrong number of parameters!")
|
|
|
|
end
|
|
|
|
|
|
|
|
s.add_introspection
|
|
|
|
|
|
|
|
return s
|
|
|
|
end
|
|
|
|
|
|
|
|
def setup_http_server(port, use_ssl)
|
2005-09-19 16:51:36 -04:00
|
|
|
option = {
|
2009-03-05 22:56:38 -05:00
|
|
|
:Port => port,
|
2004-11-16 09:07:15 -05:00
|
|
|
:SSLEnable => use_ssl,
|
2005-09-19 16:51:36 -04:00
|
|
|
}
|
|
|
|
if use_ssl
|
|
|
|
require 'webrick/https'
|
|
|
|
option.update(
|
2009-03-05 22:56:38 -05:00
|
|
|
:SSLVerifyClient => ::OpenSSL::SSL::VERIFY_NONE,
|
2005-09-19 16:51:36 -04:00
|
|
|
:SSLCertName => []
|
|
|
|
)
|
|
|
|
end
|
|
|
|
|
|
|
|
start_server(option) {|w| w.mount('/RPC2', create_servlet) }
|
2004-11-16 09:07:15 -05:00
|
|
|
|
|
|
|
@s = XMLRPC::Client.new3(:port => port, :use_ssl => use_ssl)
|
|
|
|
end
|
|
|
|
|
|
|
|
PORT = 8070
|
|
|
|
def test_client_server
|
2004-12-21 11:23:33 -05:00
|
|
|
# NOTE: I don't enable SSL testing as this hangs
|
|
|
|
[false].each do |use_ssl|
|
2004-11-16 09:07:15 -05:00
|
|
|
begin
|
|
|
|
setup_http_server(PORT, use_ssl)
|
|
|
|
do_test
|
|
|
|
ensure
|
|
|
|
stop_server
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def do_test
|
|
|
|
# simple call
|
|
|
|
assert_equal 9, @s.call('test.add', 4, 5)
|
|
|
|
|
|
|
|
# fault exception
|
2008-09-24 13:44:39 -04:00
|
|
|
assert_raise(XMLRPC::FaultException) { @s.call('test.div', 1, 0) }
|
2004-11-16 09:07:15 -05:00
|
|
|
|
|
|
|
# fault exception via call2
|
|
|
|
ok, param = @s.call2('test.div', 1, 0)
|
|
|
|
assert_equal false, ok
|
|
|
|
assert_instance_of XMLRPC::FaultException, param
|
|
|
|
assert_equal 1, param.faultCode
|
|
|
|
assert_equal 'division by zero', param.faultString
|
|
|
|
|
|
|
|
# call2 without fault exception
|
|
|
|
ok, param = @s.call2('test.div', 10, 5)
|
|
|
|
assert_equal true, ok
|
|
|
|
assert_equal param, 2
|
|
|
|
|
|
|
|
# introspection
|
|
|
|
assert_equal ["test.add", "test.div", "system.listMethods", "system.methodSignature", "system.methodHelp"], @s.call("system.listMethods")
|
|
|
|
|
|
|
|
# default handler (missing handler)
|
|
|
|
ok, param = @s.call2('test.nonexisting')
|
|
|
|
assert_equal false, ok
|
2010-01-25 18:12:50 -05:00
|
|
|
assert_equal(-99, param.faultCode)
|
2004-11-16 09:07:15 -05:00
|
|
|
|
|
|
|
# default handler (wrong number of arguments)
|
|
|
|
ok, param = @s.call2('test.add', 1, 2, 3)
|
|
|
|
assert_equal false, ok
|
2010-01-25 18:12:50 -05:00
|
|
|
assert_equal(-99, param.faultCode)
|
2004-11-16 09:07:15 -05:00
|
|
|
end
|
|
|
|
end
|