mumboe-soap4r 1.5.8.2

data/test/wsdl/document/array/test_array.rb

@@ -0,0 +1,201 @@
+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 Document
+
+
+class TestArray < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'http://tempuri.org/'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + 'echo',
+        'echo',
+        XSD::QName.new(Namespace, 'echo'),
+        XSD::QName.new(Namespace, 'echoResponse')
+      )
+      add_document_method(
+        self,
+        Namespace + 'echo2',
+        'echo2',
+        XSD::QName.new(Namespace, 'echo2'),
+        XSD::QName.new(Namespace, 'echo2Response')
+      )
+      add_document_method(
+        self,
+        Namespace + 'echo3',
+        'echo3',
+        XSD::QName.new(Namespace, 'ArrayOfRecord'),
+        XSD::QName.new(Namespace, 'ArrayOfRecord')
+      )
+      self.literal_mapping_registry = DoubleMappingRegistry::LiteralRegistry
+    end
+  
+    def echo(arg)
+      arg
+    end
+  
+    def echo2(arg)
+      arg
+    end
+
+    def echo3(arg)
+      arg
+    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('double.rb'))
+      File.unlink(pathname('doubleMappingRegistry.rb'))
+      File.unlink(pathname('doubleDriver.rb'))
+    end
+    @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 setup_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("double.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['force'] = true
+    gen.run
+    TestUtil.require(DIR, 'doubleDriver.rb', 'doubleMappingRegistry.rb', 'double.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_stub
+    @client = PricerSoap.new
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    arg = ArrayOfComplex[c1 = Complex.new, c2 = Complex.new, c3 = Complex.new]
+    c1.string = "str_c1"
+    c1.double = 1.1
+    c2.string = "str_c2"
+    c2.double = 2.2
+    c3.string = "str_c3"
+    c3.double = 3.3
+    ret = @client.echo2(Echo2.new(arg))
+    assert_equal(ArrayOfComplex, ret.arg.class)
+    assert_equal(Complex, ret.arg[0].class)
+    assert_equal(arg[0].string, ret.arg[0].string)
+    assert_equal(arg[1].string, ret.arg[1].string)
+    assert_equal(arg[2].string, ret.arg[2].string)
+  end
+
+  def test_wsdl_stubclassdef
+    wsdl = File.join(DIR, 'double.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.literal_mapping_registry = DoubleMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+    arg = ArrayOfDouble[0.1, 0.2, 0.3]
+    assert_equal(arg, @client.echo(Echo.new(arg)).ary)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'double.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.literal_mapping_registry = DoubleMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+    double = [0.1, 0.2, 0.3]
+    assert_equal(double, @client.echo(:ary => double).ary)
+  end
+
+  def test_stub
+    @client = ::WSDL::Document::PricerSoap.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    double = [0.1, 0.2, 0.3]
+    assert_equal(double, @client.echo(:ary => double).ary)
+  end
+
+  def test_stub_nil
+    @client = ::WSDL::Document::PricerSoap.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    assert_equal(nil, @client.echo(Echo.new).ary)
+  end
+
+  def test_attribute_array
+    @client = ::WSDL::Document::PricerSoap.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    #
+    r1 = ReportRecord.new
+    r1.xmlattr_a = "r1_xmlattr_a"
+    r1.xmlattr_b = "r1_xmlattr_b"
+    r1.xmlattr_c = "r1_xmlattr_c"
+    r2 = ReportRecord.new
+    r2.xmlattr_a = "r2_xmlattr_a"
+    r2.xmlattr_b = "r2_xmlattr_b"
+    r2.xmlattr_c = "r2_xmlattr_c"
+    arg = ArrayOfRecord[r1, r2]
+    ret = @client.echo3(arg)
+    assert_equal(arg.class , ret.class)
+    assert_equal(arg.size , ret.size)
+    assert_equal(2, ret.size)
+    assert_equal(arg[0].class, ret[0].class)
+    assert_equal(arg[0].xmlattr_a, ret[0].xmlattr_a)
+    assert_equal(arg[0].xmlattr_b, ret[0].xmlattr_b)
+    assert_equal(arg[0].xmlattr_c, ret[0].xmlattr_c)
+    assert_equal(arg[1].class, ret[1].class)
+    assert_equal(arg[1].xmlattr_a, ret[1].xmlattr_a)
+    assert_equal(arg[1].xmlattr_b, ret[1].xmlattr_b)
+    assert_equal(arg[1].xmlattr_c, ret[1].xmlattr_c)
+    #
+    arg = ArrayOfRecord[r1]
+    ret = @client.echo3(arg)
+    assert_equal(arg.class , ret.class)
+    assert_equal(arg.size , ret.size)
+    assert_equal(1, ret.size)
+    assert_equal(arg[0].class, ret[0].class)
+    assert_equal(arg[0].xmlattr_a, ret[0].xmlattr_a)
+    assert_equal(arg[0].xmlattr_b, ret[0].xmlattr_b)
+    assert_equal(arg[0].xmlattr_c, ret[0].xmlattr_c)
+    #
+    arg = ArrayOfRecord[]
+    ret = @client.echo3(arg)
+    assert_equal(arg.class , ret.class)
+    assert_equal(arg.size , ret.size)
+    assert_equal(0, ret.size)
+  end
+end
+
+
+end; end

data/test/wsdl/document/document.wsdl

@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions
+    name="echo"
+    targetNamespace="urn:docrpc"
+    xmlns:tns="urn:docrpc"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema elementFormDefault="unqualified" targetNamespace="urn:docrpc">
+      <xsd:complexType name="echo_struct">
+        <xsd:sequence>
+          <xsd:element minOccurs="0" maxOccurs="1" name="m_string" type="xsd:string" />
+          <xsd:element minOccurs="0" maxOccurs="1" name="m_datetime" type="xsd:dateTime" />
+        </xsd:sequence>
+        <xsd:attribute name="m_attr" type="xsd:string" />
+      </xsd:complexType>
+
+      <xsd:element name="echoele">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="struct1" type="tns:echo_struct" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="struct-2" type="tns:echo_struct" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="long" type="xsd:long" />
+          </xsd:sequence>
+          <xsd:attribute name="attr_string" type="xsd:string" />
+          <xsd:attribute name="attr-int" type="xsd:int" />
+        </xsd:complexType>
+      </xsd:element>
+      <xsd:element name="echo_response">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="struct1" type="tns:echo_struct" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="struct-2" type="tns:echo_struct" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="long" type="xsd:long" />
+          </xsd:sequence>
+          <xsd:attribute name="attr_string" type="xsd:string" />
+          <xsd:attribute name="attr-int" type="xsd:int" />
+        </xsd:complexType>
+      </xsd:element>
+    </xsd:schema>
+  </types>
+
+  <message name="echo_in">
+    <part name="parameters" element="tns:echoele" />
+  </message>
+  <message name="echo_out">
+    <part name="parameters" element="tns:echo_response" />
+  </message>
+
+  <portType name="docrpc_porttype">
+    <operation name="echo">
+      <input message="tns:echo_in" />
+      <output message="tns:echo_out" />
+    </operation>
+  </portType>
+
+  <binding name="docrpc_binding" type="tns:docrpc_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <operation name="echo">
+      <soap:operation soapAction="urn:docrpc:echo" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="docrpc_service">
+    <port name="docprc_service_port" binding="tns:docrpc_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>

data/test/wsdl/document/number.wsdl

@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions
+    name="foo"
+    targetNamespace="urn:foo"
+    xmlns:tns="urn:foo"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema elementFormDefault="unqualified" targetNamespace="urn:foo">
+      <xsd:element name="get_foo">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="number" type="xsd:string" />
+          </xsd:sequence>
+        </xsd:complexType>
+      </xsd:element>
+    </xsd:schema>
+  </types>
+
+  <message name="get_foo_in">
+    <part name="parameters" element="tns:get_foo" />
+  </message>
+  <message name="get_foo_out">
+    <part name="parameters" type="xsd:string" />
+  </message>
+
+  <portType name="foo_porttype">
+    <operation name="get_foo">
+      <input message="tns:get_foo_in" />
+      <output message="tns:get_foo_out" />
+    </operation>
+  </portType>
+
+  <binding name="foo_binding" type="tns:foo_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http"
+        style="document" />
+    <operation name="get_foo">
+      <soap:operation soapAction="urn:foo:get_foo" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="foo_service">
+    <port name="foo_service_port" binding="tns:foo_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>

data/test/wsdl/document/ping_nosoapaction.wsdl

@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions xmlns:tns="http://xmlsoap.org/Ping"
+xmlns="http://schemas.xmlsoap.org/wsdl/"
+xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+targetNamespace="http://xmlsoap.org/Ping" name="Ping">
+    <types>
+        <schema targetNamespace="http://xmlsoap.org/Ping"
+        xmlns="http://www.w3.org/2001/XMLSchema"
+        elementFormDefault="qualified">
+            <complexType name="ping">
+                <sequence>
+                    <element name="scenario" type="xsd:string"
+                    nillable="true"/>
+                    <element name="origin" type="xsd:string"
+                    nillable="true"/>
+                    <element name="text" type="xsd:string"
+                    nillable="true"/>
+                </sequence>
+            </complexType>
+            <complexType name="pingResponse">
+                <sequence>
+                    <element name="scenario" type="xsd:string"
+                    nillable="true"/>
+                    <element name="origin" type="xsd:string"
+                    nillable="true"/>
+                    <element name="text" type="xsd:string"
+                    nillable="true"/>
+                </sequence>
+            </complexType>
+            <element name="Ping" type="tns:ping"/>
+            <element name="PingResponse" type="tns:pingResponse"/>
+        </schema>
+    </types>
+    <message name="PingRequest">
+        <part name="ping" element="tns:Ping"/>
+    </message>
+    <message name="PingResponse">
+        <part name="pingResponse" element="tns:PingResponse"/>
+    </message>
+    <portType name="PingPort">
+        <operation name="Ping">
+            <input message="tns:PingRequest"/>
+            <output message="tns:PingResponse"/>
+        </operation>
+    </portType>
+    <binding name="PingBinding" type="tns:PingPort">
+        <soap:binding style="document"
+        transport="http://schemas.xmlsoap.org/soap/http"/>
+        <operation name="Ping">
+            <soap:operation/>
+            <input>
+                <soap:body use="literal" encodingStyle="" />
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
+    </binding>
+    <service name="PingService">
+        <port name="PingPort" binding="tns:PingBinding">
+            <soap:address
+            location="http://127.0.0.1:8080/axis/services/PingPort"/>
+        </port>
+    </service>
+</definitions>

data/test/wsdl/document/test_nosoapaction.rb

@@ -0,0 +1,102 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require 'soap/rpc/driver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL; module Document
+
+
+class TestNoSOAPAction < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'http://xmlsoap.org/Ping'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + '/ping',
+        'ping_with_soapaction',
+        XSD::QName.new(Namespace, 'Ping'),
+        XSD::QName.new(Namespace, 'PingResponse')
+      )
+
+      add_document_method(
+        self,
+        nil,
+        'ping',
+        XSD::QName.new(Namespace, 'Ping'),
+        XSD::QName.new(Namespace, 'PingResponse')
+      )
+
+      # When no SOAPAction given, latter method(ping) is called.
+    end
+  
+    def ping(arg)
+      arg.text = 'ping'
+      arg
+    end
+  
+    def ping_with_soapaction(arg)
+      arg.text = 'ping_with_soapaction'
+      arg
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  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_with_soapaction
+    wsdl = File.join(DIR, 'ping_nosoapaction.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    rv = @client.ping(:scenario => 'scenario', :origin => 'origin',
+      :text => 'text')
+    assert_equal('scenario', rv.scenario)
+    assert_equal('origin', rv.origin)
+    assert_equal('ping', rv.text)
+  end
+
+  def test_without_soapaction
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/",
+      Server::Namespace)
+    @client.add_document_method('ping', Server::Namespace + '/ping',
+      XSD::QName.new(Server::Namespace, 'Ping'),
+      XSD::QName.new(Server::Namespace, 'PingResponse'))
+    @client.wiredump_dev = STDOUT if $DEBUG
+    rv = @client.ping(:scenario => 'scenario', :origin => 'origin',
+      :text => 'text')
+    assert_equal('scenario', rv.scenario)
+    assert_equal('origin', rv.origin)
+    assert_equal('ping_with_soapaction', rv.text)
+  end
+end
+
+
+end; end