rtiss_soap4r 2.1.0 → 3.0.0.beta

data/test/wsdl/ref/test_ref.rb

@@ -0,0 +1,267 @@
+require 'test/unit'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require 'wsdl/soap/wsdl2ruby'
+require 'test_helper'
+
+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 = TestUtil.get_free_port
+
+  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

data/test/wsdl/rpc/RPC-Literal-TestDefinitions.rb

@@ -0,0 +1,90 @@
+require 'xsd/qname'
+
+module WSDL; module RPC
+
+
+# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfstring
+class ArrayOfstring < ::Array
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfstringInline
+class ArrayOfstringInline < ::Array
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfint
+class ArrayOfint < ::Array
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}SOAPStruct
+#   varString - SOAP::SOAPString
+#   varInt - SOAP::SOAPInt
+#   varFloat - SOAP::SOAPFloat
+class SOAPStruct
+  attr_accessor :varString
+  attr_accessor :varInt
+  attr_accessor :varFloat
+
+  def initialize(varString = nil, varInt = nil, varFloat = nil)
+    @varString = varString
+    @varInt = varInt
+    @varFloat = varFloat
+  end
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}CombinationArray
+#   a - SOAP::SOAPString
+#   b - SOAP::SOAPInt
+class CombinationArray
+  attr_accessor :a
+  attr_accessor :b
+
+  def initialize(a = [], b = [])
+    @a = a
+    @b = b
+  end
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}ArrayOfSOAPStruct
+class ArrayOfSOAPStruct < ::Array
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}SOAPStructStruct
+#   varString - SOAP::SOAPString
+#   varInt - SOAP::SOAPInt
+#   varFloat - SOAP::SOAPFloat
+#   structItem - WSDL::RPC::SOAPStruct
+class SOAPStructStruct
+  attr_accessor :varString
+  attr_accessor :varInt
+  attr_accessor :varFloat
+  attr_accessor :structItem
+
+  def initialize(varString = nil, varInt = nil, varFloat = nil, structItem = nil)
+    @varString = varString
+    @varInt = varInt
+    @varFloat = varFloat
+    @structItem = structItem
+  end
+end
+
+# {http://soapbuilders.org/rpc-lit-test/types}SOAPArrayStruct
+#   varString - SOAP::SOAPString
+#   varInt - SOAP::SOAPInt
+#   varFloat - SOAP::SOAPFloat
+#   varArray - WSDL::RPC::ArrayOfstring
+class SOAPArrayStruct
+  attr_accessor :varString
+  attr_accessor :varInt
+  attr_accessor :varFloat
+  attr_accessor :varArray
+
+  def initialize(varString = nil, varInt = nil, varFloat = nil, varArray = nil)
+    @varString = varString
+    @varInt = varInt
+    @varFloat = varFloat
+    @varArray = varArray
+  end
+end
+
+
+end; end

data/test/wsdl/rpc/RPC-Literal-TestDefinitionsDriver.rb

@@ -0,0 +1,149 @@
+require 'RPC-Literal-TestDefinitions.rb'
+require 'RPC-Literal-TestDefinitionsMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+module WSDL
+module RPC
+
+class SoapTestPortTypeRpcLit < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://www.whitemesa.net/test-rpc-lit"
+  NsRpcLitTest = "http://soapbuilders.org/rpc-lit-test"
+
+  Methods = [
+    [ XSD::QName.new(NsRpcLitTest, "echoStruct"),
+      "http://soapinterop.org/",
+      "echoStruct",
+      [ [:in, "inputStruct", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]],
+        [:retval, "return", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoStructArray"),
+      "http://soapinterop.org/",
+      "echoStructArray",
+      [ [:in, "inputStructArray", ["WSDL::RPC::ArrayOfSOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfSOAPStruct"]],
+        [:retval, "return", ["WSDL::RPC::ArrayOfSOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfSOAPStruct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoStructAsSimpleTypes"),
+      "http://soapinterop.org/",
+      "echoStructAsSimpleTypes",
+      [ [:in, "inputStruct", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]],
+        [:retval, "outputString", ["::SOAP::SOAPString"]],
+        [:out, "outputInteger", ["::SOAP::SOAPInt"]],
+        [:out, "outputFloat", ["::SOAP::SOAPFloat"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoSimpleTypesAsStruct"),
+      "http://soapinterop.org/",
+      "echoSimpleTypesAsStruct",
+      [ [:in, "inputString", ["::SOAP::SOAPString"]],
+        [:in, "inputInteger", ["::SOAP::SOAPInt"]],
+        [:in, "inputFloat", ["::SOAP::SOAPFloat"]],
+        [:retval, "return", ["WSDL::RPC::SOAPStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStruct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoNestedStruct"),
+      "http://soapinterop.org/",
+      "echoNestedStruct",
+      [ [:in, "inputStruct", ["WSDL::RPC::SOAPStructStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStructStruct"]],
+        [:retval, "return", ["WSDL::RPC::SOAPStructStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPStructStruct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoNestedArray"),
+      "http://soapinterop.org/",
+      "echoNestedArray",
+      [ [:in, "inputStruct", ["WSDL::RPC::SOAPArrayStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPArrayStruct"]],
+        [:retval, "return", ["WSDL::RPC::SOAPArrayStruct", "http://soapbuilders.org/rpc-lit-test/types", "SOAPArrayStruct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoStringArray"),
+      "http://soapinterop.org/",
+      "echoStringArray",
+      [ [:in, "inputStringArray", ["WSDL::RPC::ArrayOfstring", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstring"]],
+        [:retval, "return", ["WSDL::RPC::ArrayOfstring", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstring"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoStringArrayInline"),
+      "http://soapinterop.org/",
+      "echoStringArrayInline",
+      [ [:in, "inputStringArray", ["WSDL::RPC::ArrayOfstringInline", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstringInline"]],
+        [:retval, "return", ["WSDL::RPC::ArrayOfstringInline", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfstringInline"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoIntegerArray"),
+      "http://soapinterop.org/",
+      "echoIntegerArray",
+      [ [:in, "inputIntegerArray", ["WSDL::RPC::ArrayOfint", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfint"]],
+        [:retval, "return", ["WSDL::RPC::ArrayOfint", "http://soapbuilders.org/rpc-lit-test/types", "ArrayOfint"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoBoolean"),
+      "http://soapinterop.org/",
+      "echoBoolean",
+      [ [:in, "inputBoolean", ["::SOAP::SOAPBoolean"]],
+        [:retval, "return", ["::SOAP::SOAPBoolean"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsRpcLitTest, "echoString"),
+      "http://soapinterop.org/",
+      "echoString",
+      [ [:in, "inputString", ["::SOAP::SOAPString"]],
+        [:retval, "return", ["::SOAP::SOAPString"]] ],
+      { :request_style =>  :rpc, :request_use =>  :literal,
+        :response_style => :rpc, :response_use => :literal,
+        :faults => {} }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = RPCLiteralTestDefinitionsMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = RPCLiteralTestDefinitionsMappingRegistry::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
+end

data/test/wsdl/rpc/RPC-Literal-TestDefinitionsMappingRegistry.rb

@@ -0,0 +1,168 @@
+require 'RPC-Literal-TestDefinitions.rb'
+require 'soap/mapping'
+
+module WSDL; module RPC
+
+module RPCLiteralTestDefinitionsMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsTypes = "http://soapbuilders.org/rpc-lit-test/types"
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::ArrayOfstring,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfstring"),
+    :schema_element => [
+      ["stringItem", "SOAP::SOAPString[]", [0, nil]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::ArrayOfstringInline,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfstringInline"),
+    :schema_element => [
+      ["stringItem", ["SOAP::SOAPString[]", XSD::QName.new(nil, "stringItem")], [0, nil]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::ArrayOfint,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfint"),
+    :schema_element => [
+      ["integer", ["SOAP::SOAPInt[]", XSD::QName.new(nil, "integer")], [0, nil]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::SOAPStruct,
+    :schema_type => XSD::QName.new(NsTypes, "SOAPStruct"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")], [0, 1]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::CombinationArray,
+    :schema_type => XSD::QName.new(NsTypes, "CombinationArray"),
+    :schema_element => [
+      ["a", ["SOAP::SOAPString[]", XSD::QName.new(nil, "a")], [0, nil]],
+      ["b", ["SOAP::SOAPInt[]", XSD::QName.new(nil, "b")], [0, nil]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::ArrayOfSOAPStruct,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfSOAPStruct"),
+    :schema_element => [
+      ["structItem", "WSDL::RPC::SOAPStruct[]", [0, nil]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::SOAPStructStruct,
+    :schema_type => XSD::QName.new(NsTypes, "SOAPStructStruct"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")], [0, 1]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]],
+      ["structItem", "WSDL::RPC::SOAPStruct"]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => WSDL::RPC::SOAPArrayStruct,
+    :schema_type => XSD::QName.new(NsTypes, "SOAPArrayStruct"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]],
+      ["varArray", ["WSDL::RPC::ArrayOfstring", XSD::QName.new(nil, "varArray")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::ArrayOfstring,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfstring"),
+    :schema_element => [
+      ["stringItem", "SOAP::SOAPString[]", [0, nil]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::ArrayOfstringInline,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfstringInline"),
+    :schema_element => [
+      ["stringItem", ["SOAP::SOAPString[]", XSD::QName.new(nil, "stringItem")], [0, nil]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::ArrayOfint,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfint"),
+    :schema_element => [
+      ["integer", ["SOAP::SOAPInt[]", XSD::QName.new(nil, "integer")], [0, nil]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::SOAPStruct,
+    :schema_type => XSD::QName.new(NsTypes, "SOAPStruct"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")], [0, 1]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::CombinationArray,
+    :schema_type => XSD::QName.new(NsTypes, "CombinationArray"),
+    :schema_element => [
+      ["a", ["SOAP::SOAPString[]", XSD::QName.new(nil, "a")], [0, nil]],
+      ["b", ["SOAP::SOAPInt[]", XSD::QName.new(nil, "b")], [0, nil]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::ArrayOfSOAPStruct,
+    :schema_type => XSD::QName.new(NsTypes, "ArrayOfSOAPStruct"),
+    :schema_element => [
+      ["structItem", "WSDL::RPC::SOAPStruct[]", [0, nil]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::SOAPStructStruct,
+    :schema_type => XSD::QName.new(NsTypes, "SOAPStructStruct"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")], [0, 1]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]],
+      ["structItem", "WSDL::RPC::SOAPStruct"]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::SOAPArrayStruct,
+    :schema_type => XSD::QName.new(NsTypes, "SOAPArrayStruct"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]],
+      ["varArray", ["WSDL::RPC::ArrayOfstring", XSD::QName.new(nil, "varArray")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::RPC::SOAPStruct,
+    :schema_name => XSD::QName.new(NsTypes, "structItem"),
+    :schema_element => [
+      ["varString", ["SOAP::SOAPString", XSD::QName.new(nil, "varString")]],
+      ["varInt", ["SOAP::SOAPInt", XSD::QName.new(nil, "varInt")], [0, 1]],
+      ["varFloat", ["SOAP::SOAPFloat", XSD::QName.new(nil, "varFloat")]]
+    ]
+  )
+end
+
+end; end