soap4r-spox 1.6.0

data/test/wsdl/group/expectedDriver.rb

@@ -0,0 +1,51 @@
+require 'echo.rb'
+require 'echoMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+module WSDL::Group
+
+class Group_porttype < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost:17171/"
+
+  Methods = [
+    [ "urn:group:echo",
+      "echo",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:grouptype", "groupele"]],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:grouptype", "groupele"]] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal,
+        :faults => {} }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = EchoMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    init_methods
+  end
+
+private
+
+  def init_methods
+    Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        add_document_operation(*definitions)
+      else
+        add_rpc_operation(*definitions)
+        qname = definitions[0]
+        name = definitions[2]
+        if qname.name != name and qname.name.capitalize == name.capitalize
+          ::SOAP::Mapping.define_singleton_method(self, qname.name) do |*arg|
+            __send__(name, *arg)
+          end
+        end
+      end
+    end
+  end
+end
+
+
+end

data/test/wsdl/group/expectedMappingRegistry.rb

@@ -0,0 +1,67 @@
+require 'echo.rb'
+require 'soap/mapping'
+
+module WSDL; module Group
+
+module EchoMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsGrouptype = "urn:grouptype"
+  NsXMLSchema = "http://www.w3.org/2001/XMLSchema"
+
+  EncodedRegistry.register(
+    :class => WSDL::Group::Groupele_type,
+    :schema_type => XSD::QName.new(NsGrouptype, "groupele_type"),
+    :schema_element => [
+      ["comment", "SOAP::SOAPString", [0, 1]],
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]],
+      [ :choice,
+        ["element", ["SOAP::SOAPString", XSD::QName.new(nil, "element")]],
+        ["eletype", ["SOAP::SOAPString", XSD::QName.new(nil, "eletype")]]
+      ],
+      ["var", ["SOAP::SOAPString", XSD::QName.new(nil, "var")]]
+    ],
+    :schema_attribute => {
+      XSD::QName.new(nil, "attr_min") => "SOAP::SOAPDecimal",
+      XSD::QName.new(nil, "attr_max") => "SOAP::SOAPDecimal"
+    }
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Group::Groupele_type,
+    :schema_type => XSD::QName.new(NsGrouptype, "groupele_type"),
+    :schema_element => [
+      ["comment", "SOAP::SOAPString", [0, 1]],
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]],
+      [ :choice,
+        ["element", ["SOAP::SOAPString", XSD::QName.new(nil, "element")]],
+        ["eletype", ["SOAP::SOAPString", XSD::QName.new(nil, "eletype")]]
+      ],
+      ["var", ["SOAP::SOAPString", XSD::QName.new(nil, "var")]]
+    ],
+    :schema_attribute => {
+      XSD::QName.new(nil, "attr_min") => "SOAP::SOAPDecimal",
+      XSD::QName.new(nil, "attr_max") => "SOAP::SOAPDecimal"
+    }
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Group::Groupele_type,
+    :schema_name => XSD::QName.new(NsGrouptype, "groupele"),
+    :schema_element => [
+      ["comment", "SOAP::SOAPString", [0, 1]],
+      ["any", [nil, XSD::QName.new(NsXMLSchema, "anyType")]],
+      [ :choice,
+        ["element", ["SOAP::SOAPString", XSD::QName.new(nil, "element")]],
+        ["eletype", ["SOAP::SOAPString", XSD::QName.new(nil, "eletype")]]
+      ],
+      ["var", ["SOAP::SOAPString", XSD::QName.new(nil, "var")]]
+    ],
+    :schema_attribute => {
+      XSD::QName.new(nil, "attr_min") => "SOAP::SOAPDecimal",
+      XSD::QName.new(nil, "attr_max") => "SOAP::SOAPDecimal"
+    }
+  )
+end
+
+end; end

data/test/wsdl/group/group.wsdl

@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions
+    name="echo"
+    targetNamespace="urn:group"
+    xmlns:tns="urn:group"
+    xmlns:txd="urn:grouptype"
+    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:grouptype">
+
+        <xsd:element name="comment" type="xsd:string"/>
+
+        <xsd:simpleType name="attr_type">
+          <xsd:restriction base="xsd:decimal">
+            <xsd:maxInclusive value="-50"/>
+            <xsd:minInclusive value="50"/>
+          </xsd:restriction>
+        </xsd:simpleType>
+
+        <xsd:group name="common">
+          <xsd:sequence>
+            <xsd:element ref="txd:comment" minOccurs="0"/>
+            <xsd:any namespace="##any" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:group>
+
+        <xsd:attributeGroup name="common_attr">
+          <xsd:attribute name="attr_min" type="txd:attr_type" default="0"/>
+          <xsd:attribute name="attr_max" type="txd:attr_type" default="0"/>
+        </xsd:attributeGroup>
+
+        <xsd:group name="common_element">
+          <xsd:sequence>
+            <xsd:group ref="txd:common"/>
+            <xsd:choice>
+              <xsd:element name="element" type="xsd:string"/>
+              <xsd:element name="eletype" type="xsd:string"/>
+            </xsd:choice>
+          </xsd:sequence>
+        </xsd:group>
+
+        <xsd:complexType name="groupele_type">
+          <xsd:sequence>
+            <xsd:group ref="txd:common_element"/>
+            <xsd:element name="var" type="xsd:string"/>
+          </xsd:sequence>
+          <xsd:attributeGroup ref="txd:common_attr"/>
+        </xsd:complexType>
+
+        <xsd:element name="groupele" type="txd:groupele_type"/>
+      </xsd:schema>
+    </types>
+
+  <message name="echo_in">
+    <part name="parameters" element="txd:groupele" />
+  </message>
+  <message name="echo_out">
+    <part name="parameters" element="txd:groupele" />
+  </message>
+
+  <portType name="group_porttype">
+    <operation name="echo">
+      <input message="tns:echo_in" />
+      <output message="tns:echo_out" />
+    </operation>
+  </portType>
+
+  <binding name="group_binding" type="tns:group_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <operation name="echo">
+      <soap:operation soapAction="urn:group:echo" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="group_service">
+    <port name="docprc_service_port" binding="tns:group_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>

data/test/wsdl/group/test_rpc.rb

@@ -0,0 +1,145 @@
+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 Group
+
+
+class TestGroup < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'urn:group'
+    TypeNamespace = 'urn:grouptype'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + ':echo',
+        'echo',
+        XSD::QName.new(TypeNamespace, 'groupele'),
+        XSD::QName.new(TypeNamespace, 'groupele')
+      )
+      self.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    end
+  
+    def echo(arg)
+      # arg
+      # need to convert for 'any'
+      ret = Groupele_type.new(arg.comment, arg.element, arg.eletype, arg.var)
+      ret.xmlattr_attr_max = arg.xmlattr_attr_max
+      ret.xmlattr_attr_min = arg.xmlattr_attr_min
+      ret.set_any([::SOAP::SOAPElement.new("foo", arg.foo)])
+      ret
+    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
+    File.unlink(pathname('echo.rb')) unless $DEBUG
+    File.unlink(pathname('echoMappingRegistry.rb')) unless $DEBUG
+    File.unlink(pathname('echoDriver.rb')) unless $DEBUG
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:group", '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("group.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, 'echoDriver.rb', 'echoMappingRegistry.rb', 'echo.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+
+  def test_generate
+    compare("expectedClassdef.rb", "echo.rb")
+    compare("expectedMappingRegistry.rb", "echoMappingRegistry.rb")
+    compare("expectedDriver.rb", "echoDriver.rb")
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'group.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    #
+    do_test_arg
+  end
+
+  def test_naive
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/")
+    @client.add_document_method('echo', 'urn:group:echo',
+      XSD::QName.new('urn:grouptype', 'groupele'),
+      XSD::QName.new('urn:grouptype', 'groupele'))
+    @client.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+    #
+    do_test_arg
+  end
+
+  def test_stub
+    @client = Group_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    #
+    do_test_arg
+  end
+
+  def do_test_arg
+    arg = Groupele_type.new
+    arg.comment = "comment"
+    arg.set_any(
+      [::SOAP::SOAPElement.new("foo", "bar")]
+    )
+    arg.eletype = "eletype"
+    arg.var = "var"
+    arg.xmlattr_attr_min = -3
+    arg.xmlattr_attr_max = 3
+    ret = @client.echo(arg)
+    assert_equal(arg.comment, ret.comment)
+    assert_equal(arg.eletype, ret.eletype)
+    assert_nil(ret.element)
+    assert_equal(arg.var, ret.var)
+    assert_equal("bar", ret.foo)
+  end
+end
+
+
+end; end

data/test/wsdl/list/list.wsdl

@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions
+    name="list"
+    targetNamespace="urn:list"
+    xmlns:tns="urn:list"
+    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:list">
+      <xsd:simpleType name="langlistinline">
+        <xsd:list>
+          <xsd:simpleType>
+            <xsd:restriction base="xsd:string">
+              <xsd:enumeration value="inlineruby" />
+              <xsd:enumeration value="inlineperl" />
+              <xsd:enumeration value="inlinepython" />
+              <xsd:enumeration value="inlinesmalltalk" />
+            </xsd:restriction>
+          </xsd:simpleType>
+        </xsd:list>
+      </xsd:simpleType>
+
+      <xsd:simpleType name="language">
+        <xsd:restriction base="xsd:string">
+          <xsd:enumeration value="ruby" />
+          <xsd:enumeration value="perl" />
+          <xsd:enumeration value="python" />
+          <xsd:enumeration value="smalltalk" />
+        </xsd:restriction>
+      </xsd:simpleType>
+
+      <xsd:simpleType name="langlist">
+        <xsd:list itemType="tns:language"/>
+      </xsd:simpleType>
+
+      <xsd:element name="echoele">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="e1"
+              type="tns:langlistinline" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="e2"
+              type="tns:langlist" />
+          </xsd:sequence>
+        </xsd:complexType>
+      </xsd:element>
+
+      <xsd:element name="echo_response">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="e1"
+              type="tns:langlistinline" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="e2"
+              type="tns:langlist" />
+          </xsd:sequence>
+        </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="list_porttype">
+    <operation name="echo">
+      <input message="tns:echo_in" />
+      <output message="tns:echo_out" />
+    </operation>
+  </portType>
+
+  <binding name="list_binding" type="tns:list_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <operation name="echo">
+      <soap:operation soapAction="urn:list:echo" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="list_service">
+    <port name="list_service_port" binding="tns:list_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>

data/test/wsdl/list/test_list.rb

@@ -0,0 +1,124 @@
+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 List
+
+
+class TestList < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'urn:list'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + ':echo',
+        'echo',
+        XSD::QName.new(Namespace, 'echoele'),
+        XSD::QName.new(Namespace, 'echo_response')
+      )
+    end
+  
+    def echo(arg)
+      arg
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_classdef
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    File.unlink(pathname('list.rb')) unless $DEBUG
+    File.unlink(pathname('listMappingRegistry.rb')) unless $DEBUG
+    File.unlink(pathname('listDriver.rb')) unless $DEBUG
+    @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("list.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['force'] = true
+    gen.run
+    TestUtil.require(DIR, 'listDriver.rb', 'listMappingRegistry.rb', 'list.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, 'list.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    e1 = Langlistinline.new([Langlistinline::Inlineruby,
+      Langlistinline::Inlineperl])
+    e2 = Langlist.new([Language::Python, Language::Smalltalk])
+    ret = @client.echo(Echoele.new(e1, e2))
+    # in the future...
+    #   assert_equal(e1, ret.e1)
+    #   assert_equal(e2, ret.e2)
+    assert_equal(e1.join(" "), ret.e1)
+    assert_equal(e2.join(" "), ret.e2)
+  end
+
+  def test_naive
+    @client = List_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    e1 = Langlistinline.new([Langlistinline::Inlineruby,
+      Langlistinline::Inlineperl])
+    e2 = Langlist.new([Language::Python, Language::Smalltalk])
+    ret = @client.echo(Echoele.new(e1, e2))
+    # in the future...
+    #   assert_equal(e1, ret.e1)
+    #   assert_equal(e2, ret.e2)
+    assert_equal(e1.join(" "), ret.e1)
+    assert_equal(e2.join(" "), ret.e2)
+  end
+
+  def test_string_as_a_value
+    @client = List_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    e1 = ['inlineruby', 'inlineperl']
+    e2 = 'python smalltalk'
+    ret = @client.echo(Echoele.new(e1, e2))
+    # in the future...
+    #   assert_equal(e1, ret.e1)
+    #   assert_equal(e2, ret.e2)
+    assert_equal(e1.join(" "), ret.e1)
+    assert_equal(e2, ret.e2)
+  end
+end
+
+
+end; end