soap4r 1.5.5.20061022

data/test/wsdl/raa/server.rb

@@ -0,0 +1,103 @@
+#!/usr/bin/env ruby
+require 'soap/rpc/standaloneServer'
+require 'RAA.rb'
+
+class RAABaseServicePortType
+  MappingRegistry = SOAP::Mapping::Registry.new
+
+  MappingRegistry.set(
+    StringArray,
+    ::SOAP::SOAPArray,
+    ::SOAP::Mapping::Registry::TypedArrayFactory,
+    { :type => XSD::QName.new("http://www.w3.org/2001/XMLSchema", "string") }
+  )
+  MappingRegistry.set(
+    Map,
+    ::SOAP::SOAPStruct,
+    ::SOAP::Mapping::Registry::TypedStructFactory,
+    { :type => XSD::QName.new("http://xml.apache.org/xml-soap", "Map") }
+  )
+  MappingRegistry.set(
+    Category,
+    ::SOAP::SOAPStruct,
+    ::SOAP::Mapping::Registry::TypedStructFactory,
+    { :type => XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Category") }
+  )
+  MappingRegistry.set(
+    InfoArray,
+    ::SOAP::SOAPArray,
+    ::SOAP::Mapping::Registry::TypedArrayFactory,
+    { :type => XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info") }
+  )
+  MappingRegistry.set(
+    Info,
+    ::SOAP::SOAPStruct,
+    ::SOAP::Mapping::Registry::TypedStructFactory,
+    { :type => XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info") }
+  )
+  MappingRegistry.set(
+    Product,
+    ::SOAP::SOAPStruct,
+    ::SOAP::Mapping::Registry::TypedStructFactory,
+    { :type => XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Product") }
+  )
+  MappingRegistry.set(
+    Owner,
+    ::SOAP::SOAPStruct,
+    ::SOAP::Mapping::Registry::TypedStructFactory,
+    { :type => XSD::QName.new("http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Owner") }
+  )
+  
+  Methods = [
+    ["getAllListings", "getAllListings", [
+      ["retval", "return",
+       [::SOAP::SOAPArray, "http://www.w3.org/2001/XMLSchema", "string"]]],
+     "", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"],
+    ["getProductTree", "getProductTree", [
+      ["retval", "return",
+       [::SOAP::SOAPStruct, "http://xml.apache.org/xml-soap", "Map"]]],
+     "", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"],
+    ["getInfoFromCategory", "getInfoFromCategory", [
+      ["in", "category",
+       [::SOAP::SOAPStruct, "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Category"]],
+      ["retval", "return",
+       [::SOAP::SOAPArray, "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info"]]],
+     "", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"],
+    ["getModifiedInfoSince", "getModifiedInfoSince", [
+      ["in", "timeInstant",
+       [SOAP::SOAPDateTime]],
+      ["retval", "return",
+       [::SOAP::SOAPArray, "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info"]]],
+     "", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"],
+    ["getInfoFromName", "getInfoFromName", [
+      ["in", "productName",
+       [SOAP::SOAPString]],
+      ["retval", "return",
+       [::SOAP::SOAPStruct, "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info"]]],
+     "", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"],
+    ["getInfoFromOwnerId", "getInfoFromOwnerId", [
+      ["in", "ownerId",
+       [SOAP::SOAPInt]],
+      ["retval", "return",
+       [::SOAP::SOAPArray, "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/", "Info"]]],
+     "", "http://www.ruby-lang.org/xmlns/soap/interface/RAA/0.0.2/"]
+  ]
+
+  def getAllListings
+    ["ruby", "soap4r"]
+  end
+end
+
+class RAABaseServiceServer < SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super
+
+    servant = RAABaseServicePortType.new
+    RAABaseServicePortType::Methods.each do |name_as, name, params, soapaction, namespace|
+      qname = XSD::QName.new(namespace, name_as)
+      @router.add_method(servant, qname, soapaction, name, params)
+    end
+
+    self.mapping_registry = RAABaseServicePortType::MappingRegistry
+  end
+end

data/test/wsdl/raa/test_raa.rb

@@ -0,0 +1,91 @@
+require 'test/unit'
+require 'soap/wsdlDriver'
+require 'RAA.rb'
+require 'RAAServant.rb'
+require 'RAAService.rb'
+
+
+module WSDL
+module RAA
+
+
+class TestRAA < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_client
+  end
+
+  def setup_server
+    @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}/"
+  end
+
+  def teardown
+    teardown_server
+    teardown_client
+  end
+
+  def teardown_server
+    @server.shutdown
+    @t.kill
+    @t.join
+  end
+
+  def teardown_client
+    @raa.reset_stream
+  end
+
+  def test_raa
+    assert_equal(["ruby", "soap4r"], @raa.getAllListings)
+
+    info = @raa.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 foo
+    p @raa.getInfoFromCategory(Category.new("Library", "XML"))
+    t = Time.at(Time.now.to_i - 24 * 3600)
+    p @raa.getModifiedInfoSince(t)
+    p @raa.getModifiedInfoSince(DateTime.new(t.year, t.mon, t.mday, t.hour, t.min, t.sec))
+    p o.type
+    p o.owner.name
+    p o
+  end
+end
+
+
+end
+end

data/test/wsdl/ref/expectedProduct.rb

@@ -0,0 +1,158 @@
+require 'xsd/qname'
+
+# {urn:ref}Rating
+class Rating < ::String
+  C_0 = Rating.new("0")
+  C_1 = Rating.new("+1")
+  C_1_2 = Rating.new("-1")
+end
+
+# {urn:ref}Product-Bag
+class ProductBag
+  attr_accessor :bag
+  attr_accessor :rating
+  attr_accessor :comment_1
+  attr_accessor :comment_2
+
+  def m___point
+    @v___point
+  end
+
+  def m___point=(value)
+    @v___point = value
+  end
+
+  def xmlattr_version
+    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "version")]
+  end
+
+  def xmlattr_version=(value)
+    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "version")] = value
+  end
+
+  def xmlattr_yesno
+    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "yesno")]
+  end
+
+  def xmlattr_yesno=(value)
+    (@__xmlattr ||= {})[XSD::QName.new("urn:ref", "yesno")] = value
+  end
+
+  def initialize(bag = [], rating = [], comment_1 = [], comment_2 = [], v___point = nil)
+    @bag = bag
+    @rating = rating
+    @comment_1 = comment_1
+    @comment_2 = comment_2
+    @v___point = v___point
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}Creator
+class Creator < ::String
+  def xmlattr_Role
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "Role")]
+  end
+
+  def xmlattr_Role=(value)
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "Role")] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}yesno
+class Yesno < ::String
+  N = Yesno.new("N")
+  Y = Yesno.new("Y")
+end
+
+# {urn:ref}Product
+class Product
+  attr_accessor :name
+  attr_accessor :rating
+
+  def initialize(name = nil, rating = nil)
+    @name = name
+    @rating = rating
+  end
+end
+
+# {urn:ref}Comment
+class Comment < ::String
+  def xmlattr_msgid
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "msgid")]
+  end
+
+  def xmlattr_msgid=(value)
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "msgid")] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}_point
+class C__point < ::String
+  def xmlattr_unit
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "unit")]
+  end
+
+  def xmlattr_unit=(value)
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "unit")] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}Document
+class Document < ::String
+  def xmlattr_ID
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")]
+  end
+
+  def xmlattr_ID=(value)
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}DerivedChoice_BaseSimpleContent
+class DerivedChoice_BaseSimpleContent
+  attr_accessor :varStringExt
+  attr_accessor :varFloatExt
+
+  def xmlattr_ID
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")]
+  end
+
+  def xmlattr_ID=(value)
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "ID")] = value
+  end
+
+  def xmlattr_attrStringExt
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "attrStringExt")]
+  end
+
+  def xmlattr_attrStringExt=(value)
+    (@__xmlattr ||= {})[XSD::QName.new(nil, "attrStringExt")] = value
+  end
+
+  def initialize(varStringExt = nil, varFloatExt = nil)
+    @varStringExt = varStringExt
+    @varFloatExt = varFloatExt
+    @__xmlattr = {}
+  end
+end

data/test/wsdl/ref/product.wsdl

@@ -0,0 +1,147 @@
+<?xml version="1.0"?>
+<definitions name="product"
+    targetNamespace="urn:ref"
+    xmlns:tns="urn:ref"
+    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 xmlns="http://www.w3.org/2001/XMLSchema"
+        targetNamespace="urn:ref">
+      <simpleType name="non-empty-string">
+        <restriction base="xsd:string">
+          <minLength value="1"/>
+        </restriction>
+      </simpleType>
+
+      <complexType name="Product">
+        <all>
+          <element name="name" type="xsd:string"/>
+          <element ref="tns:Rating"/>
+        </all>
+      </complexType>
+
+      <complexType name="Comment">
+        <simpleContent>
+          <extension base="xsd:string">
+            <attribute name="msgid" type="xsd:string" use="required"/>
+          </extension>
+        </simpleContent>
+      </complexType>
+
+      <complexType name="_point">
+        <simpleContent>
+          <extension base="xsd:integer">
+            <attribute name="unit" type="xsd:string" use="required"/>
+          </extension>
+        </simpleContent>
+      </complexType>
+
+      <attribute name="version" type="tns:non-empty-string"/>
+
+      <attribute default="Y" name="yesno">
+        <simpleType>
+          <restriction base="xsd:string">
+            <enumeration value="Y"/>
+            <enumeration value="N"/>
+          </restriction>
+        </simpleType>
+      </attribute>
+
+      <element name="Rating">
+        <simpleType>
+          <restriction base="xsd:string">
+            <enumeration value="+1"/>
+            <enumeration value="0"/>
+            <enumeration value="-1"/>
+          </restriction>
+        </simpleType>
+      </element>
+
+      <element name="Product-Bag">
+        <complexType>
+          <sequence>
+            <element name="bag" type="tns:Product" minOccurs="0" maxOccurs="unbounded"/>
+            <element ref="tns:Rating" minOccurs="0" maxOccurs="unbounded"/>
+            <element name="Comment_1" minOccurs="0" maxOccurs="unbounded">
+              <complexType>
+                <simpleContent>
+                  <extension base="xsd:string">
+                    <attribute name="msgid" type="xsd:string" use="required"/>
+                  </extension>
+                </simpleContent>
+              </complexType>
+            </element>
+            <element name="comment-2" type="tns:Comment" minOccurs="0" maxOccurs="unbounded"/>
+            <element name="__point" type="tns:_point" minOccurs="0" maxOccurs="1"/>
+          </sequence>
+          <attribute ref="tns:version"/>
+          <attribute ref="tns:yesno"/>
+        </complexType>
+      </element>
+
+      <element name="Creator">
+        <complexType>
+          <simpleContent>
+            <extension base="xsd:string">
+              <attribute name="Role" type="xsd:string" use="required"/>
+            </extension>
+          </simpleContent>
+        </complexType>
+      </element>
+
+      <complexType name="Document">
+        <simpleContent>
+          <extension base="string">
+            <attribute name="ID" type="xsd:string"/>
+          </extension>
+        </simpleContent>
+      </complexType>
+
+      <complexType name="DerivedChoice_BaseSimpleContent">
+        <complexContent mixed="false">
+          <extension base="tns:Document">
+            <choice>
+              <element name="varStringExt" type="xsd:string"/>
+              <element name="varFloatExt" type="xsd:float"/>
+            </choice>
+            <attribute name="attrStringExt" type="xsd:string"/>
+          </extension>
+        </complexContent>
+      </complexType>
+    </xsd:schema>
+  </types>
+
+  <message name="echo_in">
+    <part name="parameters" element="tns:Product-Bag" />
+  </message>
+  <message name="echo_out">
+    <part name="parameters" element="tns:Creator" />
+  </message>
+
+  <portType name="ref_porttype">
+    <operation name="echo">
+      <input message="tns:echo_in" />
+      <output message="tns:echo_out" />
+    </operation>
+  </portType>
+
+  <binding name="ref_binding" type="tns:ref_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <operation name="echo">
+      <soap:operation soapAction="urn:ref:echo" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="ref_service">
+    <port name="ref_service_port" binding="tns:ref_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>