rtiss_soap4r 1.6.0

data/test/wsdl/ref/expectedProduct.rb

@@ -0,0 +1,244 @@
+# encoding: ASCII-8BIT
+require 'xsd/qname'
+
+module WSDL; module Ref
+
+
+# {urn:ref}Product
+#   name - SOAP::SOAPString
+#   rating - SOAP::SOAPString
+class Product
+  attr_accessor :name
+  attr_accessor :rating
+
+  def initialize(name = nil, rating = nil)
+    @name = name
+    @rating = rating
+  end
+end
+
+# {urn:ref}Comment
+#   xmlattr_msgid - SOAP::SOAPString
+class Comment < ::String
+  AttrMsgid = XSD::QName.new(nil, "msgid")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_msgid
+    __xmlattr[AttrMsgid]
+  end
+
+  def xmlattr_msgid=(value)
+    __xmlattr[AttrMsgid] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}_point
+#   xmlattr_unit - SOAP::SOAPString
+class C__point < ::String
+  AttrUnit = XSD::QName.new(nil, "unit")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_unit
+    __xmlattr[AttrUnit]
+  end
+
+  def xmlattr_unit=(value)
+    __xmlattr[AttrUnit] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}Document
+#   xmlattr_ID - SOAP::SOAPString
+class Document < ::String
+  AttrID = XSD::QName.new(nil, "ID")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_ID
+    __xmlattr[AttrID]
+  end
+
+  def xmlattr_ID=(value)
+    __xmlattr[AttrID] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}DerivedChoice_BaseSimpleContent
+#   varStringExt - SOAP::SOAPString
+#   varFloatExt - SOAP::SOAPFloat
+#   xmlattr_ID - SOAP::SOAPString
+#   xmlattr_attrStringExt - SOAP::SOAPString
+class DerivedChoice_BaseSimpleContent < Document
+  AttrAttrStringExt = XSD::QName.new(nil, "attrStringExt")
+  AttrID = XSD::QName.new(nil, "ID")
+
+  attr_accessor :varStringExt
+  attr_accessor :varFloatExt
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_ID
+    __xmlattr[AttrID]
+  end
+
+  def xmlattr_ID=(value)
+    __xmlattr[AttrID] = value
+  end
+
+  def xmlattr_attrStringExt
+    __xmlattr[AttrAttrStringExt]
+  end
+
+  def xmlattr_attrStringExt=(value)
+    __xmlattr[AttrAttrStringExt] = value
+  end
+
+  def initialize(varStringExt = nil, varFloatExt = nil)
+    @varStringExt = varStringExt
+    @varFloatExt = varFloatExt
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}Rating
+class Rating < ::String
+  C_0 = new("0")
+  C_1 = new("+1")
+  C_1_2 = new("-1")
+end
+
+# {urn:ref}Product-Bag
+#   bag - WSDL::Ref::Product
+#   rating - SOAP::SOAPString
+#   comment_1 - WSDL::Ref::ProductBag::Comment_1
+#   comment_2 - WSDL::Ref::Comment
+#   m___point - WSDL::Ref::C__point
+#   xmlattr_version - SOAP::SOAPString
+#   xmlattr_yesno - SOAP::SOAPString
+class ProductBag
+  AttrVersion = XSD::QName.new("urn:ref", "version")
+  AttrYesno = XSD::QName.new("urn:ref", "yesno")
+
+  # inner class for member: Comment_1
+  # {}Comment_1
+  #   xmlattr_msgid - SOAP::SOAPString
+  class Comment_1 < ::String
+    AttrMsgid = XSD::QName.new(nil, "msgid")
+
+    def __xmlattr
+      @__xmlattr ||= {}
+    end
+
+    def xmlattr_msgid
+      __xmlattr[AttrMsgid]
+    end
+
+    def xmlattr_msgid=(value)
+      __xmlattr[AttrMsgid] = value
+    end
+
+    def initialize(*arg)
+      super
+      @__xmlattr = {}
+    end
+  end
+
+  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
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_version
+    __xmlattr[AttrVersion]
+  end
+
+  def xmlattr_version=(value)
+    __xmlattr[AttrVersion] = value
+  end
+
+  def xmlattr_yesno
+    __xmlattr[AttrYesno]
+  end
+
+  def xmlattr_yesno=(value)
+    __xmlattr[AttrYesno] = 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
+#   xmlattr_Role - SOAP::SOAPString
+class Creator < ::String
+  AttrRole = XSD::QName.new(nil, "Role")
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_Role
+    __xmlattr[AttrRole]
+  end
+
+  def xmlattr_Role=(value)
+    __xmlattr[AttrRole] = value
+  end
+
+  def initialize(*arg)
+    super
+    @__xmlattr = {}
+  end
+end
+
+# {urn:ref}yesno
+class Yesno < ::String
+  N = new("N")
+  Y = new("Y")
+end
+
+
+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>

data/test/wsdl/ref/test_ref.rb

@@ -0,0 +1,269 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require 'wsdl/soap/wsdl2ruby'
+
+
+module WSDL
+module Ref
+
+
+class TestRef < Test::Unit::TestCase
+  Namespace = 'urn:ref'
+
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = TestRef::Namespace
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + ':echo',
+        'echo',
+        XSD::QName.new(Namespace, 'Product-Bag'),
+        XSD::QName.new(Namespace, 'Creator')
+      )
+      self.literal_mapping_registry = ProductMappingRegistry::LiteralRegistry
+    end
+  
+    def echo(arg)
+      content = [
+        arg.bag[0].name,
+        arg.bag[0].rating,
+        arg.bag[1].name,
+        arg.bag[1].rating,
+        arg.xmlattr_version,
+        arg.xmlattr_yesno,
+        arg.rating[0],
+        arg.rating[1],
+        arg.rating[2],
+        arg.comment_1[0],
+        arg.comment_1[0].xmlattr_msgid,
+        arg.comment_1[1],
+        arg.comment_1[1].xmlattr_msgid,
+        arg.comment_2[0],
+        arg.comment_2[0].xmlattr_msgid,
+        arg.comment_2[1],
+        arg.comment_2[1].xmlattr_msgid
+      ]
+      rv = Creator.new(content.join(" "))
+      rv.xmlattr_Role = "role"
+      rv
+    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('product.rb'))
+      File.unlink(pathname('productMappingRegistry.rb'))
+      File.unlink(pathname('productDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', 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("product.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, 'product.rb', 'productMappingRegistry.rb', 'productDriver.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_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("product.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['classdef'] = nil
+    gen.opt['force'] = true
+    TestUtil.silent do
+      gen.run
+    end
+    compare("expectedProduct.rb", "product.rb")
+    compare("expectedDriver.rb", "productDriver.rb")
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'product.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    p1 = e("bag")
+      p1.add(e("name", "foo"))
+      p1.add(e(q(Namespace, "Rating"), "0"))
+    p2 = e("bag")
+      p2.add(e("name", "bar"))
+      p2.add(e(q(Namespace, "Rating"), "+1"))
+    version = "version"
+    yesno = "N"
+    r1 = e(q(Namespace, "Rating"), "0")
+    r2 = e(q(Namespace, "Rating"), "+1")
+    r3 = e(q(Namespace, "Rating"), "-1")
+    c11 = e("Comment_1", "comment11")
+    c11.extraattr["msgid"] = "msgid11"
+    c12 = e("Comment_1", "comment12")
+    c12.extraattr["msgid"] = "msgid12"
+    c21 = e("comment-2", "comment21")
+    c21.extraattr["msgid"] = "msgid21"
+    c22 = e("comment-2", "comment22")
+    c22.extraattr["msgid"] = "msgid22"
+    bag = e(q(Namespace, "Product-Bag"))
+      bag.add(p1)
+      bag.add(p2)
+      bag.add(r1)
+      bag.add(r2)
+      bag.add(r3)
+      bag.add(c11)
+      bag.add(c12)
+      bag.add(c21)
+      bag.add(c22)
+    bag.extraattr[q(Namespace, "version")] = version
+    bag.extraattr[q(Namespace, "yesno")] = yesno
+    ret = @client.echo(bag)
+    assert_equal(
+      [
+        p1["name"].text, p1["Rating"].text,
+        p2["name"].text, p2["Rating"].text,
+        version, yesno,
+        r1.text, r2.text, r3.text,
+        c11.text, c11.extraattr["msgid"],
+        c12.text, c12.extraattr["msgid"],
+        c21.text, c21.extraattr["msgid"],
+        c22.text, c22.extraattr["msgid"]
+      ].join(" "),
+      ret
+    )
+    assert_equal("role", ret.xmlattr_Role)
+  end
+
+  def test_wsdl_with_classdef
+    wsdl = File.join(DIR, 'product.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.literal_mapping_registry = ProductMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+    p1 = Product.new("foo", Rating::C_0)
+    p2 = Product.new("bar", Rating::C_1)
+    version = "version"
+    yesno = Yesno::Y
+    r1 = Rating::C_0
+    r2 = Rating::C_1
+    r3 = Rating::C_1_2
+    c11 = ::SOAP::SOAPElement.new("Comment_1", "comment11")
+    c11.extraattr["msgid"] = "msgid11"
+    c12 = ::SOAP::SOAPElement.new("Comment_1", "comment12")
+    c12.extraattr["msgid"] = "msgid12"
+    c21 = Comment.new("comment21")
+    c21.xmlattr_msgid = "msgid21"
+    c22 = Comment.new("comment22")
+    c22.xmlattr_msgid = "msgid22"
+    bag = ProductBag.new([p1, p2], [r1, r2, r3], [c11, c12], [c21, c22])
+    bag.xmlattr_version = version
+    bag.xmlattr_yesno = yesno
+    ret = @client.echo(bag)
+    assert_equal(
+      [
+        p1.name, p1.rating,
+        p2.name, p2.rating,
+        version, yesno,
+        r1, r2, r3,
+        c11.text, c11.extraattr["msgid"],
+        c12.text, c12.extraattr["msgid"],
+        c21, c21.xmlattr_msgid,
+        c22, c22.xmlattr_msgid
+      ].join(" "),
+      ret
+    )
+    assert_equal("role", ret.xmlattr_Role)
+  end
+
+  def test_naive
+    @client = Ref_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    p1 = Product.new("foo", Rating::C_0)
+    p2 = Product.new("bar", Rating::C_1)
+    version = "version"
+    yesno = Yesno::Y
+    r1 = Rating::C_0
+    r2 = Rating::C_1
+    r3 = Rating::C_1_2
+    c11 = ::SOAP::SOAPElement.new("Comment_1", "comment11")
+    c11.extraattr["msgid"] = "msgid11"
+    c12 = ::SOAP::SOAPElement.new("Comment_1", "comment12")
+    c12.extraattr["msgid"] = "msgid12"
+    c21 = Comment.new("comment21")
+    c21.xmlattr_msgid = "msgid21"
+    c22 = Comment.new("comment22")
+    c22.xmlattr_msgid = "msgid22"
+    pts = C__point.new("123")
+    bag = ProductBag.new([p1, p2], [r1, r2, r3], [c11, c12], [c21, c22], pts)
+    bag.xmlattr_version = version
+    bag.xmlattr_yesno = yesno
+    ret = @client.echo(bag)
+    assert_equal(
+      [
+        p1.name, p1.rating,
+        p2.name, p2.rating,
+        version, yesno,
+        r1, r2, r3,
+        c11.text, c11.extraattr["msgid"],
+        c12.text, c12.extraattr["msgid"],
+        c21, c21.xmlattr_msgid,
+        c22, c22.xmlattr_msgid
+      ].join(" "),
+      ret
+    )
+    assert_equal("role", ret.xmlattr_Role)
+  end
+
+  def e(name, text = nil)
+    ::SOAP::SOAPElement.new(name, text)
+  end
+
+  def q(ns, name)
+    XSD::QName.new(ns, name)
+  end
+end
+
+
+end
+end