snaury-soap4r 1.5.8.1

data/test/wsdl/rpc/test-rpc-lit.wsdl

@@ -0,0 +1,371 @@
+<?xml version="1.0"?>
+
+<definitions name="RPC-Literal-TestDefinitions"
+  targetNamespace="http://whitemesa.net/wsdl/rpc-lit-test"
+  xmlns="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:soap11="http://schemas.xmlsoap.org/wsdl/soap/"
+  xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+  xmlns:tns="http://whitemesa.net/wsdl/rpc-lit-test"
+  xmlns:types="http://soapbuilders.org/rpc-lit-test/types"
+  xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="http://soapbuilders.org/rpc-lit-test/types">
+
+      <element name="stringItem" type="xsd:string" />
+      <complexType name="ArrayOfstring">
+        <sequence>
+          <element ref="types:stringItem" minOccurs="0" maxOccurs="unbounded"/>
+        </sequence>
+      </complexType>
+
+      <complexType name="ArrayOfstringInline">
+        <sequence>
+          <element name="stringItem" type="xsd:string" minOccurs="0" maxOccurs="unbounded"/>
+        </sequence>
+      </complexType>
+
+      <complexType name="ArrayOfint">
+        <sequence>
+          <element name="integer" type="xsd:int" minOccurs="0" maxOccurs="unbounded"/>
+        </sequence>
+      </complexType>
+
+      <element name="structItem" type="types:SOAPStruct" />
+      <complexType name="SOAPStruct">
+        <all>
+          <element name="varString" type="xsd:string"/>
+          <element name="varInt" type="xsd:int" minOccurs="0" />
+          <element name="varFloat" type="xsd:float" minOccurs="1" />
+        </all>
+      </complexType>
+
+      <complexType name="CombinationArray">
+        <sequence>
+          <element name="a" type="xsd:string" minOccurs="0" maxOccurs="unbounded" />
+          <element name="b" type="xsd:int" minOccurs="0" maxOccurs="unbounded" />
+        </sequence>
+      </complexType>
+
+      <complexType name="ArrayOfSOAPStruct">
+        <sequence>
+          <element ref="types:structItem" minOccurs="0" maxOccurs="unbounded"/>
+        </sequence>
+      </complexType>
+
+      <complexType name="SOAPStructStruct">
+        <all>
+          <element name="varString" type="xsd:string"/>
+          <element name="varInt" type="xsd:int" minOccurs="0" />
+          <element name="varFloat" type="xsd:float" minOccurs="1" />
+          <element ref="types:structItem" />
+        </all>
+      </complexType>
+
+      <complexType name="SOAPArrayStruct">
+        <all>
+          <element name="varString" type="xsd:string"/>
+          <element name="varInt" type="xsd:int"/>
+          <element name="varFloat" type="xsd:float"/>
+          <element name="varArray" type="types:ArrayOfstring"/>
+        </all>
+      </complexType>
+
+    </schema>
+
+  </types>
+
+  <!-- echoStruct rpc operation -->
+  <message name="echoStructRequest">
+    <part name="inputStruct" type="types:SOAPStruct"/>
+  </message>
+  <message name="echoStructResponse">
+    <part name="return" type="types:SOAPStruct"/>
+  </message>
+
+  <!-- echoStructArray rpc operation -->
+  <message name="echoStructArrayRequest">
+    <part name="inputStructArray" type="types:ArrayOfSOAPStruct"/>
+  </message>
+  <message name="echoStructArrayResponse">
+    <part name="return" type="types:ArrayOfSOAPStruct"/>
+  </message>
+
+  <!-- echoStructAsSimpleTypes rpc operation -->
+  <message name="echoStructAsSimpleTypesRequest">
+    <part name="inputStruct" type="types:SOAPStruct"/>
+  </message>
+  <message name="echoStructAsSimpleTypesResponse">
+    <part name="outputString" type="xsd:string"/>
+    <part name="outputInteger" type="xsd:int"/>
+    <part name="outputFloat" type="xsd:float"/>
+  </message>
+
+  <!-- echoSimpleTypesAsStruct rpc operation -->
+  <message name="echoSimpleTypesAsStructRequest">
+    <part name="inputString" type="xsd:string"/>
+    <part name="inputInteger" type="xsd:int"/>
+    <part name="inputFloat" type="xsd:float"/>
+  </message>
+  <message name="echoSimpleTypesAsStructResponse">
+    <part name="return" type="types:SOAPStruct"/>
+  </message>
+
+  <!-- echoNestedStruct rpc operation -->
+  <message name="echoNestedStructRequest">
+    <part name="inputStruct" type="types:SOAPStructStruct"/>
+  </message>
+  <message name="echoNestedStructResponse">
+    <part name="return" type="types:SOAPStructStruct"/>
+  </message>
+
+  <!-- echoNestedArray rpc operation -->
+  <message name="echoNestedArrayRequest">
+    <part name="inputStruct" type="types:SOAPArrayStruct"/>
+  </message>
+  <message name="echoNestedArrayResponse">
+    <part name="return" type="types:SOAPArrayStruct"/>
+  </message>
+
+  <!-- echoStringArray rpc operation -->
+  <message name="echoStringArrayRequest">
+    <part name="inputStringArray" type="types:ArrayOfstring"/>
+  </message>
+  <message name="echoStringArrayResponse">
+    <part name="return" type="types:ArrayOfstring"/>
+  </message>
+
+  <message name="echoStringArrayInlineRequest">
+    <part name="inputStringArray" type="types:ArrayOfstringInline"/>
+  </message>
+  <message name="echoStringArrayInlineResponse">
+    <part name="return" type="types:ArrayOfstringInline"/>
+  </message>
+
+  <!-- echoIntegerArray rpc operation -->
+  <message name="echoIntegerArrayRequest">
+    <part name="inputIntegerArray" type="types:ArrayOfint"/>
+  </message>
+  <message name="echoIntegerArrayResponse">
+    <part name="return" type="types:ArrayOfint"/>
+  </message>
+
+  <!-- echoBoolean rpc operation -->
+  <message name="echoBooleanRequest">
+    <part name="inputBoolean" type="xsd:boolean"/>
+  </message>
+  <message name="echoBooleanResponse">
+    <part name="return" type="xsd:boolean"/>
+  </message>
+
+  <!-- echoString rpc operation -->
+  <message name="echoStringRequest">
+    <part name="inputString" type="xsd:string"/>
+  </message>
+  <message name="echoStringResponse">
+    <part name="return" type="xsd:string"/>
+  </message>
+
+
+  <portType name="SoapTestPortTypeRpcLit">
+
+    <!-- echoStruct rpc operation -->
+    <operation name="echoStruct" parameterOrder="inputStruct">
+      <input message="tns:echoStructRequest"/>
+      <output message="tns:echoStructResponse"/>
+    </operation>
+
+    <!-- echoStructArray rpc operation -->
+    <operation name="echoStructArray" parameterOrder="inputStructArray">
+      <input message="tns:echoStructArrayRequest"/>
+      <output message="tns:echoStructArrayResponse"/>
+    </operation>
+
+    <!-- echoStructAsSimpleTypes rpc operation -->
+    <operation name="echoStructAsSimpleTypes" parameterOrder="inputStruct outputString outputInteger outputFloat">
+      <input message="tns:echoStructAsSimpleTypesRequest"/>
+      <output message="tns:echoStructAsSimpleTypesResponse"/>
+    </operation>
+
+    <!-- echoSimpleTypesAsStruct rpc operation -->
+    <operation name="echoSimpleTypesAsStruct" parameterOrder="inputString inputInteger inputFloat">
+      <input message="tns:echoSimpleTypesAsStructRequest"/>
+      <output message="tns:echoSimpleTypesAsStructResponse"/>
+    </operation>
+
+    <!-- echoNestedStruct rpc operation -->
+    <operation name="echoNestedStruct" parameterOrder="inputStruct">
+      <input message="tns:echoNestedStructRequest"/>
+      <output message="tns:echoNestedStructResponse"/>
+    </operation>
+
+    <!-- echoNestedArray rpc operation -->
+    <operation name="echoNestedArray" parameterOrder="inputStruct">
+      <input message="tns:echoNestedArrayRequest"/>
+      <output message="tns:echoNestedArrayResponse"/>
+    </operation>
+
+    <!-- echoStringArray rpc operation -->
+    <operation name="echoStringArray" parameterOrder="inputStringArray">
+      <input message="tns:echoStringArrayRequest"/>
+      <output message="tns:echoStringArrayResponse"/>
+    </operation>
+
+    <operation name="echoStringArrayInline" parameterOrder="inputStringArray">
+      <input message="tns:echoStringArrayInlineRequest"/>
+      <output message="tns:echoStringArrayInlineResponse"/>
+    </operation>
+
+    <!-- echoIntegerArray rpc operation -->
+    <operation name="echoIntegerArray" parameterOrder="inputIntegerArray">
+      <input message="tns:echoIntegerArrayRequest"/>
+      <output message="tns:echoIntegerArrayResponse"/>
+    </operation>
+
+    <!-- echoBoolean rpc operation -->
+    <operation name="echoBoolean" parameterOrder="inputBoolean">
+      <input message="tns:echoBooleanRequest"/>
+      <output message="tns:echoBooleanResponse"/>
+    </operation>
+
+    <!-- echoString rpc operation -->
+    <operation name="echoString" parameterOrder="inputString">
+      <input message="tns:echoStringRequest"/>
+      <output message="tns:echoStringResponse"/>
+    </operation>
+
+  </portType>
+
+  <binding name="Soap11TestRpcLitBinding" type="tns:SoapTestPortTypeRpcLit">
+    <soap11:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
+
+    <!-- echoStruct rpc operation -->
+    <operation name="echoStruct">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!--  echoStructArray rpc operation -->
+    <operation name="echoStructArray">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoStructAsSimpleTypes rpc operation -->
+    <operation name="echoStructAsSimpleTypes">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoSimpleTypesAsStruct rpc operation -->
+    <operation name="echoSimpleTypesAsStruct">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoNestedStruct rpc operation -->
+    <operation name="echoNestedStruct">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoNestedArray rpc operation -->
+    <operation name="echoNestedArray">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoStringArray rpc operation -->
+    <operation name="echoStringArray">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <operation name="echoStringArrayInline">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoIntegerArray rpc operation -->
+    <operation name="echoIntegerArray">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoBoolean rpc operation -->
+    <operation name="echoBoolean">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+    <!-- echoString rpc operation -->
+    <operation name="echoString">
+      <soap11:operation soapAction="http://soapinterop.org/"/>
+      <input>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </input>
+      <output>
+        <soap11:body use="literal" namespace="http://soapbuilders.org/rpc-lit-test" />
+      </output>
+    </operation>
+
+  </binding>
+
+  <service name="WhiteMesaSoapRpcLitTestSvc">
+
+    <port name="Soap11TestRpcLitPort" binding="tns:Soap11TestRpcLitBinding">
+      <soap11:address location="http://www.whitemesa.net/test-rpc-lit"/>
+    </port>
+
+  </service>
+
+</definitions>

data/test/wsdl/rpc/test_rpc.rb

@@ -0,0 +1,176 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL; module RPC
+
+
+class TestRPC < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    def on_init
+      add_rpc_method(self, 'echo', 'arg1', 'arg2')
+      add_rpc_method(self, 'echo_basetype', 'arg1', 'arg2')
+      add_rpc_method(self, 'echo_err', 'arg1', 'arg2')
+      self.mapping_registry = Prefix::EchoMappingRegistry::EncodedRegistry
+    end
+  
+    DummyPerson = Struct.new("family-name".intern, :Given_name)
+    def echo(arg1, arg2)
+      if arg1.given_name == 'typed'
+        self.generate_explicit_type = true
+      else
+        self.generate_explicit_type = false
+      end
+      ret = nil
+      case arg1.family_name
+      when 'normal'
+        arg1.family_name = arg2.family_name
+        arg1.given_name = arg2.given_name
+        arg1.age = arg2.age
+        ret = arg1
+      when 'dummy'
+        ret = DummyPerson.new("family-name", "given_name")
+      when 'nil'
+        ret = Prefix::Person.new(nil, nil)
+      else
+        raise
+      end
+      ret
+    end
+
+    def echo_basetype(arg1, arg2)
+      return nil if arg1.nil? and arg2.nil?
+      raise unless arg1.is_a?(Date)
+      arg1
+    end
+  
+    ErrPerson = Struct.new(:Given_name, :no_such_element)
+    def echo_err(arg1, arg2)
+      self.generate_explicit_type = false
+      ErrPerson.new(58, Time.now)
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('echo.rb'))
+      File.unlink(pathname('echoMappingRegistry.rb'))
+      File.unlink(pathname('echoDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:rpc", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_classdef
+    if ::Object.constants.include?("Echo")
+      ::Object.instance_eval { remove_const("Echo") }
+    end
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("rpc.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['force'] = true
+    gen.opt['module_path'] = 'Prefix'
+    gen.run
+    TestUtil.require(DIR, 'echo.rb', 'echoMappingRegistry.rb', 'echoDriver.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'rpc.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDERR if $DEBUG
+
+    ret = @client.echo(Prefix::Person.new("normal", "typed", 12, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", 21, Prefix::Gender::M))
+    assert_equal("Hi", ret.family_name)
+    assert_equal("Na", ret.given_name)
+    assert_equal(21, ret.age)
+
+    ret = @client.echo(Prefix::Person.new("normal", "untyped", 12, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", 21, Prefix::Gender::M))
+    assert_equal("Hi", ret.family_name)
+    assert_equal("Na", ret.given_name)
+    # XXX WSDLEncodedRegistry should decode untyped element using Schema
+    assert_equal("21", ret.age)
+
+    ret = @client.echo(Prefix::Person.new("dummy", "typed", 12, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", 21, Prefix::Gender::M))
+    assert_equal("family-name", ret.family_name)
+    assert_equal("given_name", ret.given_name)
+
+    ret = @client.echo_err(Prefix::Person.new("Na", "Hi", nil, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", nil, Prefix::Gender::M))
+    assert_equal("58", ret.given_name)
+  end
+
+  def test_stub
+    @client = Prefix::Echo_port_type.new("http://localhost:#{Port}/")
+    @client.mapping_registry = Prefix::EchoMappingRegistry::EncodedRegistry
+    @client.wiredump_dev = STDERR if $DEBUG
+
+    ret = @client.echo(Prefix::Person.new("normal", "typed", 12, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", 21, Prefix::Gender::M))
+    assert_equal(Prefix::Person, ret.class)
+    assert_equal("Hi", ret.family_name)
+    assert_equal("Na", ret.given_name)
+    assert_equal(21, ret.age)
+
+    ret = @client.echo(Prefix::Person.new("normal", "untyped", 12, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", 21, Prefix::Gender::M))
+    assert_equal(Prefix::Person, ret.class)
+    assert_equal("Hi", ret.family_name)
+    assert_equal("Na", ret.given_name)
+    assert_equal(21, ret.age)
+  end
+
+  def test_stub_nil
+    @client = Prefix::Echo_port_type.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+
+    ret = @client.echo(Prefix::Person.new("nil", "", 12, Prefix::Gender::F), Prefix::Person.new("Hi", "Na", 21, Prefix::Gender::M))
+    assert_nil(ret.family_name)
+    assert_nil(ret.given_name)
+    assert_nil(ret.age)
+    #
+    assert_nil(@client.echo_basetype(nil, nil))
+  end
+
+  def test_basetype_stub
+    @client = Prefix::Echo_port_type.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDERR if $DEBUG
+
+    ret = @client.echo_basetype(Time.now, 12345)
+    assert_equal(Date, ret.class)
+  end
+end
+
+
+end; end