rtiss_soap4r 1.6.0

data/test/wsdl/raa/expectedMappingRegistry.rb

@@ -0,0 +1,122 @@
+# encoding: ASCII-8BIT
+require 'RAA.rb'
+require 'soap/mapping'
+
+module WSDL; module RAA
+
+module RAAMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsC_002 = "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Category,
+    :schema_type => XSD::QName.new(NsC_002, "Category"),
+    :schema_element => [
+      ["major", ["SOAP::SOAPString", XSD::QName.new(nil, "major")]],
+      ["minor", ["SOAP::SOAPString", XSD::QName.new(nil, "minor")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Product,
+    :schema_type => XSD::QName.new(NsC_002, "Product"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]],
+      ["short_description", ["SOAP::SOAPString", XSD::QName.new(nil, "short_description")]],
+      ["version", ["SOAP::SOAPString", XSD::QName.new(nil, "version")]],
+      ["status", ["SOAP::SOAPString", XSD::QName.new(nil, "status")]],
+      ["homepage", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "homepage")]],
+      ["download", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "download")]],
+      ["license", ["SOAP::SOAPString", XSD::QName.new(nil, "license")]],
+      ["description", ["SOAP::SOAPString", XSD::QName.new(nil, "description")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Owner,
+    :schema_type => XSD::QName.new(NsC_002, "Owner"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["email", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "email")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RAA::Info,
+    :schema_type => XSD::QName.new(NsC_002, "Info"),
+    :schema_element => [
+      ["category", ["WSDL::RAA::Category", XSD::QName.new(nil, "category")]],
+      ["product", ["WSDL::RAA::Product", XSD::QName.new(nil, "product")]],
+      ["owner", ["WSDL::RAA::Owner", XSD::QName.new(nil, "owner")]],
+      ["created", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "created")]],
+      ["updated", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "updated")]]
+    ]
+  )
+
+  EncodedRegistry.set(
+    WSDL::RAA::InfoArray,
+    ::SOAP::SOAPArray,
+    ::SOAP::Mapping::EncodedRegistry::TypedArrayFactory,
+    { :type => XSD::QName.new(NsC_002, "Info") }
+  )
+
+  EncodedRegistry.set(
+    WSDL::RAA::StringArray,
+    ::SOAP::SOAPArray,
+    ::SOAP::Mapping::EncodedRegistry::TypedArrayFactory,
+    { :type => XSD::QName.new("http://www.w3.org/2001/XMLSchema", "string") }
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Category,
+    :schema_type => XSD::QName.new(NsC_002, "Category"),
+    :schema_element => [
+      ["major", ["SOAP::SOAPString", XSD::QName.new(nil, "major")]],
+      ["minor", ["SOAP::SOAPString", XSD::QName.new(nil, "minor")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Product,
+    :schema_type => XSD::QName.new(NsC_002, "Product"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]],
+      ["short_description", ["SOAP::SOAPString", XSD::QName.new(nil, "short_description")]],
+      ["version", ["SOAP::SOAPString", XSD::QName.new(nil, "version")]],
+      ["status", ["SOAP::SOAPString", XSD::QName.new(nil, "status")]],
+      ["homepage", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "homepage")]],
+      ["download", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "download")]],
+      ["license", ["SOAP::SOAPString", XSD::QName.new(nil, "license")]],
+      ["description", ["SOAP::SOAPString", XSD::QName.new(nil, "description")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Owner,
+    :schema_type => XSD::QName.new(NsC_002, "Owner"),
+    :schema_element => [
+      ["id", ["SOAP::SOAPInt", XSD::QName.new(nil, "id")]],
+      ["email", ["SOAP::SOAPAnyURI", XSD::QName.new(nil, "email")]],
+      ["name", ["SOAP::SOAPString", XSD::QName.new(nil, "name")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RAA::Info,
+    :schema_type => XSD::QName.new(NsC_002, "Info"),
+    :schema_element => [
+      ["category", ["WSDL::RAA::Category", XSD::QName.new(nil, "category")]],
+      ["product", ["WSDL::RAA::Product", XSD::QName.new(nil, "product")]],
+      ["owner", ["WSDL::RAA::Owner", XSD::QName.new(nil, "owner")]],
+      ["created", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "created")]],
+      ["updated", ["SOAP::SOAPDateTime", XSD::QName.new(nil, "updated")]]
+    ]
+  )
+
+end
+
+end; end

data/test/wsdl/raa/raa.wsdl

@@ -0,0 +1,264 @@
+<?xml version="1.0"?>
+<definitions
+    name="RAA"
+    targetNamespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"
+    xmlns:tns="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"
+    xmlns:txd="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"
+    xmlns="http://schemas.xmlsoap.org/wsdl/"
+    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+    xmlns:apachesoap="http://xml.apache.org/xml-soap">
+
+  <types>
+    <schema
+	xmlns="http://www.w3.org/2001/XMLSchema"
+	targetNamespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/">
+
+      <complexType name="Category">
+  	<all>
+    	  <element name="major" type="xsd:string"/>
+	  <element name="minor" type="xsd:string"/>
+  	</all>
+      </complexType>
+
+      <complexType name="Product">
+  	<all>
+    	  <element name="id" type="xsd:int"/>
+    	  <element name="name" type="xsd:string"/>
+    	  <element name="short_description" type="xsd:string"/>
+	  <element name="version" type="xsd:string"/>
+	  <element name="status" type="xsd:string"/>
+	  <element name="homepage" type="xsd:anyURI"/>
+	  <element name="download" type="xsd:anyURI"/>
+	  <element name="license" type="xsd:string"/>
+	  <element name="description" type="xsd:string"/>
+  	</all>
+      </complexType>
+
+      <complexType name="Owner">
+  	<all>
+    	  <element name="id" type="xsd:int"/>
+	  <element name="email" type="xsd:anyURI"/>
+	  <element name="name" type="xsd:string"/>
+  	</all>
+      </complexType>
+
+      <complexType name="Info">
+  	<all>
+    	  <element name="category" type="txd:Category"/>
+    	  <element name="product" type="txd:Product"/>
+	  <element name="owner" type="txd:Owner"/>
+	  <element name="created" type="xsd:dateTime"/>
+	  <element name="updated" type="xsd:dateTime"/>
+  	</all>
+      </complexType>
+
+      <import namespace="http://schemas.xmlsoap.org/soap/encoding/"/>
+      <complexType name="InfoArray">
+	<complexContent>
+  	  <restriction base="soapenc:Array">
+  	    <attribute ref="soapenc:arrayType" wsdl:arrayType="txd:Info[]"/>
+  	  </restriction>
+	</complexContent>
+      </complexType>
+
+      <complexType name="StringArray">
+	<complexContent>
+  	  <restriction base="soapenc:Array">
+  	    <attribute ref="soapenc:arrayType" wsdl:arrayType="xsd:string[]"/>
+  	  </restriction>
+	</complexContent>
+      </complexType>
+    </schema>
+
+    <!-- type definition for ApacheSOAP's Map -->
+    <schema
+	xmlns="http://www.w3.org/2001/XMLSchema"
+	targetNamespace="http://xml.apache.org/xml-soap">
+      <complexType name="Map">
+	<sequence>
+	  <element name="item" minOccurs="0" maxOccurs="unbounded">
+	    <complexType>
+	      <sequence>
+		<element name="key" type="xsd:anyType" />
+		<element name="value" type="xsd:anyType" />
+	      </sequence>
+	    </complexType>
+	  </element>
+	</sequence>
+      </complexType>
+    </schema>
+  </types>
+
+  <message name="getAllListingsRequest"/>
+  <message name="getAllListingsResponse">
+    <part name="return" type="txd:StringArray"/>
+  </message>
+
+  <message name="getProductTreeRequest"/>
+  <message name="getProductTreeResponse">
+    <part name="return" type="apachesoap:Map"/>
+  </message>
+
+  <message name="getInfoFromCategoryRequest">
+    <part name="category" type="txd:Category"/>
+  </message>
+  <message name="getInfoFromCategoryResponse">
+    <part name="return" type="txd:InfoArray"/>
+  </message>
+
+  <message name="getModifiedInfoSinceRequest">
+    <part name="timeInstant" type="xsd:dateTime"/>
+  </message>
+  <message name="getModifiedInfoSinceResponse">
+    <part name="return" type="txd:InfoArray"/>
+  </message>
+
+  <message name="getInfoFromNameRequest">
+    <part name="productName" type="xsd:string"/>
+  </message>
+  <message name="getInfoFromNameResponse">
+    <part name="return" type="txd:Info"/>
+  </message>
+
+  <message name="getInfoFromOwnerIdRequest">
+    <part name="ownerId" type="xsd:int"/>
+  </message>
+  <message name="getInfoFromOwnerIdResponse">
+    <part name="return" type="txd:InfoArray"/>
+  </message>
+
+  <portType name="RAABaseServicePortType">
+    <operation name="getAllListings"
+	parameterOrder="">
+      <input message="tns:getAllListingsRequest"/>
+      <output message="tns:getAllListingsResponse"/>
+    </operation>
+
+    <operation name="getProductTree"
+	parameterOrder="">
+      <input message="tns:getProductTreeRequest"/>
+      <output message="tns:getProductTreeResponse"/>
+    </operation>
+
+    <operation name="getInfoFromCategory"
+	parameterOrder="category">
+      <input message="tns:getInfoFromCategoryRequest"/>
+      <output message="tns:getInfoFromCategoryResponse"/>
+    </operation>
+
+    <operation name="getModifiedInfoSince"
+	parameterOrder="timeInstant">
+      <input message="tns:getModifiedInfoSinceRequest"/>
+      <output message="tns:getModifiedInfoSinceResponse"/>
+    </operation>
+
+    <operation name="getInfoFromName"
+	parameterOrder="productName">
+      <input message="tns:getInfoFromNameRequest"/>
+      <output message="tns:getInfoFromNameResponse"/>
+    </operation>
+
+    <operation name="getInfoFromOwnerId"
+	parameterOrder="ownerId">
+      <input message="tns:getInfoFromOwnerIdRequest"/>
+      <output message="tns:getInfoFromOwnerIdResponse"/>
+    </operation>
+  </portType>
+
+  <binding name="RAABaseServicePortBinding" type="tns:RAABaseServicePortType">
+    <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
+
+    <operation name="getAllListings">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </output>
+    </operation>
+
+    <operation name="getProductTree">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </output>
+    </operation>
+
+    <operation name="getInfoFromCategory">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </output>
+    </operation>
+
+    <operation name="getModifiedInfoSince">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </output>
+    </operation>
+
+    <operation name="getInfoFromName">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </output>
+    </operation>
+
+    <operation name="getInfoFromOwnerId">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"/>
+      </output>
+    </operation>
+  </binding>
+
+  <service name="RAAService">
+    <port name="RAABaseServicePort" binding="tns:RAABaseServicePortBinding">
+      <soap:address location="http://raa.ruby-lang.org/soap/1.0.2/"/>
+    </port>
+  </service>
+</definitions>

data/test/wsdl/raa/test_raa.rb

@@ -0,0 +1,127 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/wsdlDriver'
+require 'wsdl/soap/wsdl2ruby'
+
+
+module WSDL
+module RAA
+
+
+class TestRAA < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_stub
+    setup_server
+    setup_client
+  end
+
+  def setup_stub
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("raa.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, 'RAADriver.rb', 'RAAMappingRegistry.rb', 'RAA.rb')
+  end
+
+  def setup_server
+    require pathname('RAAService.rb')
+    @server = RAABaseServicePortTypeApp.new('RAA server', nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      Thread.current.abort_on_exception = true
+      @server.start
+    }
+  end
+
+  def setup_client
+    wsdl = File.join(DIR, 'raa.wsdl')
+    @raa = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @raa.endpoint_url = "http://localhost:#{Port}/"
+    @raa.wiredump_dev = STDOUT if $DEBUG
+    @raa.mapping_registry = RAAMappingRegistry::EncodedRegistry
+    @raa.literal_mapping_registry = RAAMappingRegistry::LiteralRegistry
+  end
+
+  def teardown
+    teardown_server if defined?(@server)
+    teardown_client if defined?(@client)
+    unless $DEBUG
+      File.unlink(pathname('RAA.rb'))
+      File.unlink(pathname('RAAMappingRegistry.rb'))
+      File.unlink(pathname('RAADriver.rb'))
+    end
+  end
+
+  def teardown_server
+    @server.shutdown
+    @t.kill
+    @t.join
+  end
+
+  def teardown_client
+    @raa.reset_stream
+  end
+
+  def test_stubgeneration
+    compare("expectedClassDef.rb", "RAA.rb")
+    compare("expectedMappingRegistry.rb", "RAAMappingRegistry.rb")
+    compare("expectedDriver.rb", "RAADriver.rb")
+  end
+
+  def test_raa
+    do_test_raa(@raa)
+  end
+
+  def test_stub
+    client = RAABaseServicePortType.new("http://localhost:#{Port}/")
+    do_test_raa(client)
+  end
+
+  def do_test_raa(client)
+    assert_equal(["ruby", "soap4r"], client.getAllListings)
+    info = client.getInfoFromName("SOAP4R")
+    assert_equal(Info, info.class)
+    assert_equal(Category, info.category.class)
+    assert_equal(Product, info.product.class)
+    assert_equal(Owner, info.owner.class)
+    assert_equal("major", info.category.major)
+    assert_equal("minor", info.category.minor)
+    assert_equal(123, info.product.id)
+    assert_equal("SOAP4R", info.product.name)
+    assert_equal("short description", info.product.short_description)
+    assert_equal("version", info.product.version)
+    assert_equal("status", info.product.status)
+    assert_equal("http://example.com/homepage", info.product.homepage.to_s)
+    assert_equal("http://example.com/download", info.product.download.to_s)
+    assert_equal("license", info.product.license)
+    assert_equal("description", info.product.description)
+    assert_equal(456, info.owner.id)
+    assert_equal("mailto:email@example.com", info.owner.email.to_s)
+    assert_equal("name", info.owner.name)
+    assert(!info.created.nil?)
+    assert(!info.updated.nil?)
+  end
+
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+end
+
+
+end
+end

data/test/wsdl/ref/expectedDriver.rb

@@ -0,0 +1,52 @@
+# encoding: ASCII-8BIT
+require 'product.rb'
+require 'productMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+module WSDL::Ref
+
+class Ref_porttype < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost:17171/"
+
+  Methods = [
+    [ "urn:ref:echo",
+      "echo",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:ref", "Product-Bag"]],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:ref", "Creator"]] ],
+      { :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 = ProductMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = ProductMappingRegistry::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