rtiss_soap4r 1.6.0

data/test/sm11/server.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+$KCODE = "UTF8"      # Set $KCODE before loading 'soap/xmlparser'.
+
+require 'soap/standaloneServer'
+require 'servant'
+
+class App < SOAP::StandaloneServer
+  def initialize( *arg )
+    super( *arg )
+
+    # Explicit definition
+    servant = Sm11PortType.new
+    Sm11PortType::Methods.each do | methodNameAs, methodName, params, soapAction, namespace |
+      addMethodWithNSAs( namespace, servant, methodName, methodNameAs, params, soapAction )
+    end
+    # Easy way to add all methods.
+    addServant( Sm11PortType.new )
+
+    self.mappingRegistry = Sm11PortType::MappingRegistry
+    self.level = Logger::Severity::ERROR
+  end
+end
+
+App.new( 'App', nil, '0.0.0.0', 10080 ).start

data/test/soap/asp.net/hello.wsdl

@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="utf-8"?>
+<wsdl:definitions xmlns:http="http://schemas.xmlsoap.org/wsdl/http/"
+xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+xmlns:s="http://www.w3.org/2001/XMLSchema"
+xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+xmlns:tns="http://localhost/WebService/"
+xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
+xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
+targetNamespace="http://localhost/WebService/"
+xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <wsdl:types>
+    <s:schema elementFormDefault="qualified"
+targetNamespace="http://localhost/WebService/">
+      <s:element name="HelloWorld">
+        <s:complexType />
+      </s:element>
+      <s:element name="HelloWorldResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1"
+name="HelloWorldResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="SayHello">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1" name="name"
+type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+      <s:element name="SayHelloResponse">
+        <s:complexType>
+          <s:sequence>
+            <s:element minOccurs="0" maxOccurs="1"
+name="SayHelloResult" type="s:string" />
+          </s:sequence>
+        </s:complexType>
+      </s:element>
+    </s:schema>
+  </wsdl:types>
+  <wsdl:message name="HelloWorldSoapIn">
+    <wsdl:part name="parameters" element="tns:HelloWorld" />
+  </wsdl:message>
+  <wsdl:message name="HelloWorldSoapOut">
+    <wsdl:part name="parameters" element="tns:HelloWorldResponse" />
+  </wsdl:message>
+  <wsdl:message name="SayHelloSoapIn">
+    <wsdl:part name="parameters" element="tns:SayHello" />
+  </wsdl:message>
+  <wsdl:message name="SayHelloSoapOut">
+    <wsdl:part name="parameters" element="tns:SayHelloResponse" />
+  </wsdl:message>
+  <wsdl:portType name="Service1Soap">
+    <wsdl:operation name="HelloWorld">
+      <wsdl:input message="tns:HelloWorldSoapIn" />
+      <wsdl:output message="tns:HelloWorldSoapOut" />
+    </wsdl:operation>
+    <wsdl:operation name="SayHello">
+      <wsdl:input message="tns:SayHelloSoapIn" />
+      <wsdl:output message="tns:SayHelloSoapOut" />
+    </wsdl:operation>
+  </wsdl:portType>
+  <wsdl:binding name="Service1Soap" type="tns:Service1Soap">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http"
+style="document" />
+    <wsdl:operation name="HelloWorld">
+      <soap:operation
+soapAction="http://localhost/WebService/HelloWorld" style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+    <wsdl:operation name="SayHello">
+      <soap:operation soapAction="http://localhost/WebService/SayHello"
+style="document" />
+      <wsdl:input>
+        <soap:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap:body use="literal" />
+      </wsdl:output>
+    </wsdl:operation>
+  </wsdl:binding>
+  <wsdl:service name="Service1">
+    <documentation xmlns="http://schemas.xmlsoap.org/wsdl/" />
+    <wsdl:port name="Service1Soap" binding="tns:Service1Soap">
+      <soap:address
+location="http://localhost/WebService/Service1.asmx" />
+    </wsdl:port>
+  </wsdl:service>
+</wsdl:definitions>

data/test/soap/asp.net/test_aspdotnet.rb

@@ -0,0 +1,124 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+
+
+module SOAP; module ASPDotNet
+
+
+class TestASPDotNet < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = "http://localhost/WebService/"
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + 'SayHello',
+        'sayHello',
+        XSD::QName.new(Namespace, 'SayHello'),
+        XSD::QName.new(Namespace, 'SayHelloResponse')
+      )
+    end
+  
+    def sayHello(arg)
+      name = arg['name']
+      "Hello #{name}"
+    end
+  end
+
+  Port = 17171
+  Endpoint = "http://localhost:#{Port}/"
+
+  def setup
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', Server::Namespace, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def test_document_method
+    @client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.add_document_method('sayHello', Server::Namespace + 'SayHello',
+      XSD::QName.new(Server::Namespace, 'SayHello'),
+      XSD::QName.new(Server::Namespace, 'SayHelloResponse'))
+    assert_equal("Hello Mike", @client.sayHello(:name => "Mike"))
+  end
+
+  def test_xml
+    @client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.add_document_method('sayHello', Server::Namespace + 'SayHello',
+      XSD::QName.new(Server::Namespace, 'SayHello'),
+      XSD::QName.new(Server::Namespace, 'SayHelloResponse'))
+    require 'rexml/document'
+    xml = <<__XML__
+<n1:sayHello xmlns:n1="http://localhost/WebService/">
+  <n1:name>Mike</n1:name>
+</n1:sayHello>
+__XML__
+    ele = REXML::Document.new(xml)
+    assert_equal("Hello Mike", @client.sayHello(ele))
+    def xml.to_xmlpart; to_s; end
+    assert_equal("Hello Mike", @client.sayHello(xml))
+  end
+
+  def test_aspdotnethandler
+    @client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.add_method_with_soapaction('sayHello', Server::Namespace + 'SayHello', 'name')
+    @client.default_encodingstyle = SOAP::EncodingStyle::ASPDotNetHandler::Namespace
+    assert_equal("Hello Mike", @client.sayHello("Mike"))
+  end
+
+  if defined?(HTTPClient)
+
+    # qualified!
+    REQUEST_ASPDOTNETHANDLER =
+%q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:sayHello xmlns:n1="http://localhost/WebService/">
+      <n1:name>Mike</n1:name>
+    </n1:sayHello>
+  </env:Body>
+</env:Envelope>]
+
+    def test_aspdotnethandler_envelope
+      @client = SOAP::RPC::Driver.new(Endpoint, Server::Namespace)
+      @client.wiredump_dev = str = ''
+      @client.add_method_with_soapaction('sayHello', Server::Namespace + 'SayHello', 'name')
+      @client.default_encodingstyle = SOAP::EncodingStyle::ASPDotNetHandler::Namespace
+      assert_equal("Hello Mike", @client.sayHello("Mike"))
+      assert_xml_equal(REQUEST_ASPDOTNETHANDLER, parse_requestxml(str),
+        [REQUEST_ASPDOTNETHANDLER, parse_requestxml(str)].join("\n\n"))
+    end
+
+    def parse_requestxml(str)
+      str.split(/\r?\n\r?\n/)[3]
+    end
+
+  end
+end
+
+
+end; end

data/test/soap/auth/htdigest

@@ -0,0 +1,2 @@
+admin:auth:4302fe65caa32f27721949149ccd3083
+guest:auth:402550d83a8289be65377d0e7d11fb6e

data/test/soap/auth/htpasswd

@@ -0,0 +1,2 @@
+admin:Qg266hq/YYKe2
+guest:gbPc4vPCH.h12

data/test/soap/auth/test_basic.rb

@@ -0,0 +1,118 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/rpc/driver'
+require 'webrick'
+require 'webrick/httpproxy'
+require 'logger'
+
+
+module SOAP; module Auth
+
+
+class TestBasic < Test::Unit::TestCase
+  Port = 17171
+  ProxyPort = 17172
+
+  def setup
+    @logger = Logger.new(STDERR)
+    @logger.level = Logger::Severity::FATAL
+    @url = "http://localhost:#{Port}/"
+    @proxyurl = "http://localhost:#{ProxyPort}/"
+    @server = @proxyserver = @client = nil
+    @server_thread = @proxyserver_thread = nil
+    setup_server
+    setup_client
+  end
+
+  def teardown
+    teardown_client if @server
+    teardown_proxyserver if @proxyserver
+    teardown_server if @client
+  end
+
+  def setup_server
+    @server = WEBrick::HTTPServer.new(
+      :BindAddress => "0.0.0.0",
+      :Logger => @logger,
+      :Port => Port,
+      :AccessLog => [],
+      :DocumentRoot => File.dirname(File.expand_path(__FILE__))
+    )
+    htpasswd = File.join(File.dirname(__FILE__), 'htpasswd')
+    htpasswd_userdb = WEBrick::HTTPAuth::Htpasswd.new(htpasswd)
+    @basic_auth = WEBrick::HTTPAuth::BasicAuth.new(
+      :Logger => @logger,
+      :Realm => 'auth',
+      :UserDB => htpasswd_userdb
+    )
+    @server.mount(
+      '/',
+      WEBrick::HTTPServlet::ProcHandler.new(method(:do_server_proc).to_proc)
+    )
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_proxyserver
+    @proxyserver = WEBrick::HTTPProxyServer.new(
+      :BindAddress => "0.0.0.0",
+      :Logger => @logger,
+      :Port => ProxyPort,
+      :AccessLog => []
+    )
+    @proxyserver_thread = TestUtil.start_server_thread(@proxyserver)
+  end
+
+  def setup_client
+    @client = SOAP::RPC::Driver.new(@url, '')
+    @client.add_method("do_server_proc")
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def teardown_proxyserver
+    @proxyserver.shutdown
+    @proxyserver_thread.kill
+    @proxyserver_thread.join
+  end
+
+  def teardown_client
+    @client.reset_stream
+  end
+
+  def do_server_proc(req, res)
+    @basic_auth.authenticate(req, res)
+    res['content-type'] = 'text/xml'
+    res.body = <<__EOX__
+<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:do_server_proc xmlns:n1="urn:foo" env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <return>OK</return>
+    </n1:do_server_proc>
+  </env:Body>
+</env:Envelope>
+__EOX__
+  end
+
+  def test_direct
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.options["protocol.http.auth"] << [@url, "admin", "admin"]
+    assert_equal("OK", @client.do_server_proc)
+  end
+
+  def test_proxy
+    setup_proxyserver
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.options["protocol.http.proxy"] = @proxyurl
+    @client.options["protocol.http.auth"] << [@url, "guest", "guest"]
+    assert_equal("OK", @client.do_server_proc)
+  end
+end
+
+
+end; end

data/test/soap/auth/test_digest.rb

@@ -0,0 +1,119 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/rpc/driver'
+require 'webrick'
+require 'webrick/httpproxy'
+require 'logger'
+
+
+module SOAP; module Auth
+
+
+class TestDigest < Test::Unit::TestCase
+  Port = 17171
+  ProxyPort = 17172
+
+  def setup
+    @logger = Logger.new(STDERR)
+    @logger.level = Logger::Severity::FATAL
+    @url = "http://localhost:#{Port}/"
+    @proxyurl = "http://localhost:#{ProxyPort}/"
+    @server = @proxyserver = @client = nil
+    @server_thread = @proxyserver_thread = nil
+    setup_server
+    setup_client
+  end
+
+  def teardown
+    teardown_client if @client
+    teardown_proxyserver if @proxyserver
+    teardown_server if @server
+  end
+
+  def setup_server
+    @server = WEBrick::HTTPServer.new(
+      :BindAddress => "0.0.0.0",
+      :Logger => @logger,
+      :Port => Port,
+      :AccessLog => [],
+      :DocumentRoot => File.dirname(File.expand_path(__FILE__))
+    )
+    htdigest = File.join(File.dirname(__FILE__), 'htdigest')
+    htdigest_userdb = WEBrick::HTTPAuth::Htdigest.new(htdigest)
+    @digest_auth = WEBrick::HTTPAuth::DigestAuth.new(
+      :Logger => @logger,
+      :Algorithm => 'MD5',
+      :Realm => 'auth',
+      :UserDB => htdigest_userdb
+    )
+    @server.mount(
+      '/',
+      WEBrick::HTTPServlet::ProcHandler.new(method(:do_server_proc).to_proc)
+    )
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_proxyserver
+    @proxyserver = WEBrick::HTTPProxyServer.new(
+      :BindAddress => "0.0.0.0",
+      :Logger => @logger,
+      :Port => ProxyPort,
+      :AccessLog => []
+    )
+    @proxyserver_thread = TestUtil.start_server_thread(@proxyserver)
+  end
+
+  def setup_client
+    @client = SOAP::RPC::Driver.new(@url, '')
+    @client.add_method("do_server_proc")
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def teardown_proxyserver
+    @proxyserver.shutdown
+    @proxyserver_thread.kill
+    @proxyserver_thread.join
+  end
+
+  def teardown_client
+    @client.reset_stream
+  end
+
+  def do_server_proc(req, res)
+    @digest_auth.authenticate(req, res)
+    res['content-type'] = 'text/xml'
+    res.body = <<__EOX__
+<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:env="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:do_server_proc xmlns:n1="urn:foo" env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <return>OK</return>
+    </n1:do_server_proc>
+  </env:Body>
+</env:Envelope>
+__EOX__
+  end
+
+  def test_direct
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.options["protocol.http.auth"] << [@url, "admin", "admin"]
+    assert_equal("OK", @client.do_server_proc)
+  end
+
+  def test_proxy
+    setup_proxyserver
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.options["protocol.http.proxy"] = @proxyurl
+    @client.options["protocol.http.auth"] << [@url, "guest", "guest"]
+    assert_equal("OK", @client.do_server_proc)
+  end
+end
+
+
+end; end

data/test/soap/calc/calc.rb

@@ -0,0 +1,18 @@
+# encoding: ASCII-8BIT
+module CalcService
+  def self.add(lhs, rhs)
+    lhs + rhs
+  end
+
+  def self.sub(lhs, rhs)
+    lhs - rhs
+  end
+
+  def self.multi(lhs, rhs)
+    lhs * rhs
+  end
+
+  def self.div(lhs, rhs)
+    lhs / rhs
+  end
+end

data/test/soap/calc/calc2.rb

@@ -0,0 +1,30 @@
+# encoding: ASCII-8BIT
+class CalcService2
+  def initialize(value = 0)
+    @value = value
+  end
+
+  def set_value(value)
+    @value = value
+  end
+
+  def get_value
+    @value
+  end
+
+  def +(rhs)
+    @value + rhs
+  end
+
+  def -(rhs)
+    @value - rhs
+  end
+
+  def *(rhs)
+    @value * rhs
+  end
+
+  def /(rhs)
+    @value / rhs
+  end
+end

data/test/soap/calc/server.cgi

@@ -0,0 +1,16 @@
+# encoding: ASCII-8BIT
+$:.unshift File.expand_path(File.dirname(__FILE__)+'/../../../lib')
+$:.unshift '.' if RUBY_VERSION.to_f >= 1.9
+require 'soap/rpc/cgistub'
+
+class CalcServer < SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super
+
+    require 'calc'
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+status = CalcServer.new('CalcServer', nil).start

data/test/soap/calc/server.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'calc'
+
+class CalcServer < SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super
+
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+if $0 == __FILE__
+  status = CalcServer.new('CalcServer', nil, '0.0.0.0', 17171).start
+end

data/test/soap/calc/server2.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+
+require 'soap/rpc/standaloneServer'
+require 'calc2'
+
+class CalcServer2 < SOAP::RPC::StandaloneServer
+  def on_init
+    servant = CalcService2.new
+    add_method(servant, 'set_value', 'newValue')
+    add_method(servant, 'get_value')
+    add_method_as(servant, '+', 'add', 'lhs')
+    add_method_as(servant, '-', 'sub', 'lhs')
+    add_method_as(servant, '*', 'multi', 'lhs')
+    add_method_as(servant, '/', 'div', 'lhs')
+  end
+end
+
+if $0 == __FILE__
+  status = CalcServer2.new('CalcServer', 'http://tempuri.org/calcService', '0.0.0.0', 17171).start
+end

data/test/soap/calc/test_calc.rb

@@ -0,0 +1,53 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/rpc/driver'
+TestUtil.require(File.dirname(__FILE__), 'server.rb')
+
+
+module SOAP
+module Calc
+
+
+class TestCalc < Test::Unit::TestCase
+  Port = 17171
+
+  def setup
+    @server = CalcServer.new(self.class.name, nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      @server.start
+    }
+    @endpoint = "http://localhost:#{Port}/"
+    @calc = SOAP::RPC::Driver.new(@endpoint, 'http://tempuri.org/calcService')
+    @calc.add_method('add', 'lhs', 'rhs')
+    @calc.add_method('sub', 'lhs', 'rhs')
+    @calc.add_method('multi', 'lhs', 'rhs')
+    @calc.add_method('div', 'lhs', 'rhs')
+  end
+
+  def teardown
+    @server.shutdown if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @calc.reset_stream if @calc
+  end
+
+  def test_calc
+    assert_equal(3, @calc.add(1, 2))
+    assert_equal(-1.1, @calc.sub(1.1, 2.2))
+    assert_equal(2.42, @calc.multi(1.1, 2.2))
+    assert_equal(2, @calc.div(5, 2))
+    assert_equal(2.5, @calc.div(5.0, 2))
+    assert_equal(1.0/0.0, @calc.div(1.1, 0))
+    assert_raises(ZeroDivisionError) do
+      @calc.div(1, 0)
+    end
+  end
+end
+
+
+end
+end