rtiss_soap4r 1.6.0

data/test/wsdl/soap/soapbodyparts.wsdl

@@ -0,0 +1,103 @@
+<?xml version="1.0"?>
+<definitions
+    name="soapbodyparts"
+    targetNamespace="urn:www.example.com:soapbodyparts:v1"
+    xmlns:tns="urn:www.example.com:soapbodyparts:v1"
+    xmlns="http://schemas.xmlsoap.org/wsdl/"
+    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
+
+  <types>
+    <schema xmlns="http://www.w3.org/2001/XMLSchema"
+	targetNamespace="urn:www.example.com:soapbodyparts:v1">
+      <import namespace = "http://schemas.xmlsoap.org/soap/encoding/"/>
+      <complexType name="StringArray">
+ 	<complexContent>
+	  <restriction base="soapenc:Array">
+	    <attribute ref="soapenc:arrayType" wsdl:arrayType="string[]"/>
+  	  </restriction>
+  	</complexContent>
+      </complexType>
+    </schema>
+  </types>
+
+  <message name="fooRequest">
+    <part name="param1" type="xsd:string"/>
+    <part name="param2" type="xsd:string"/>
+    <part name="param3" type="xsd:string"/>
+  </message>
+
+  <message name="fooResponse">
+    <part name="return" type="tns:StringArray"/>
+  </message>
+
+  <portType name="FooServicePortType">
+    <operation name="foo"
+	parameterOrder="param3 param2 param1">
+      <input message="tns:fooRequest"/>
+      <output message="tns:fooResponse"/>
+    </operation>
+    <operation name="bar"
+	parameterOrder="param1 param2 param3">
+      <input message="tns:fooRequest"/>
+      <output message="tns:fooResponse"/>
+    </operation>
+    <operation name="baz">
+      <input message="tns:fooRequest"/>
+      <output message="tns:fooResponse"/>
+    </operation>
+  </portType>
+
+  <binding name="FooServicePortBinding" type="tns:FooServicePortType">
+    <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
+    <operation name="foo">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    parts="param1 param3"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="urn:www.example.com:soapbodyparts:v1"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="urn:www.example.com:soapbodyparts:v1"/>
+      </output>
+    </operation>
+    <operation name="bar">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    parts="param3 param2"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="urn:www.example.com:soapbodyparts:v1"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="urn:www.example.com:soapbodyparts:v1"/>
+      </output>
+    </operation>
+    <operation name="baz">
+      <soap:operation soapAction=""/>
+      <input>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="urn:www.example.com:soapbodyparts:v1"/>
+      </input>
+      <output>
+	<soap:body use="encoded"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
+	    namespace="urn:www.example.com:soapbodyparts:v1"/>
+      </output>
+    </operation>
+  </binding>
+
+  <service name="FooService">
+    <port name="FooServicePort" binding="tns:FooServicePortBinding">
+      <soap:address location="http://raa.ruby-lang.org/soap/1.0.2/"/>
+    </port>
+  </service>
+</definitions>

data/test/wsdl/soap/test_soapbodyparts.rb

@@ -0,0 +1,80 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+
+
+module WSDL
+module SOAP
+
+
+class TestSOAPBodyParts < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    def on_init
+      add_method(self, 'foo', 'p1', 'p2', 'p3')
+      add_method(self, 'bar', 'p1', 'p2', 'p3')
+      add_method(self, 'baz', 'p1', 'p2', 'p3')
+    end
+  
+    def foo(p1, p2, p3)
+      [p1, p2, p3]
+    end
+
+    alias bar foo
+
+    def baz(p1, p2, p3)
+      [p3, p2, p1]
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:www.example.com:soapbodyparts:v1", '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, 'soapbodyparts.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDERR if $DEBUG
+  end
+
+  def teardown
+    teardown_server if @server
+    teardown_client if @client
+  end
+
+  def teardown_server
+    @server.shutdown
+    @t.kill
+    @t.join
+  end
+
+  def teardown_client
+    @client.reset_stream
+  end
+
+  def test_soapbodyparts
+    assert_equal(["1", "2", "3"], @client.foo("1", "2", "3"))
+    assert_equal(["3", "2", "1"], @client.foo("3", "2", "1"))
+    assert_equal(["1", "2", "3"], @client.bar("1", "2", "3"))
+    assert_equal(["3", "2", "1"], @client.baz("1", "2", "3"))
+  end
+end
+
+
+end
+end

data/test/wsdl/soap/wsdl2ruby/expectedClassdef.rb

@@ -0,0 +1,22 @@
+# encoding: ASCII-8BIT
+require 'xsd/qname'
+
+# {urn:example.com:simpletype-rpc-type}version_struct
+#   version - Version
+#   msg - SOAP::SOAPString
+class Version_struct
+  attr_accessor :version
+  attr_accessor :msg
+
+  def initialize(version = nil, msg = nil)
+    @version = version
+    @msg = msg
+  end
+end
+
+# {urn:example.com:simpletype-rpc-type}version
+class Version < ::String
+  C_16 = new("1.6")
+  C_18 = new("1.8")
+  C_19 = new("1.9")
+end

data/test/wsdl/soap/wsdl2ruby/expectedClient.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+require 'echo_versionDriver.rb'
+
+endpoint_url = ARGV.shift
+obj = Echo_version_port_type.new(endpoint_url)
+
+# run ruby with -d to see SOAP wiredumps.
+obj.wiredump_dev = STDERR if $DEBUG
+
+# SYNOPSIS
+#   echo_version(version)
+#
+# ARGS
+#   version         Version - {urn:example.com:simpletype-rpc-type}version
+#
+# RETURNS
+#   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+#
+version = nil
+puts obj.echo_version(version)
+
+# SYNOPSIS
+#   echo_version_r(version_struct)
+#
+# ARGS
+#   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+#
+# RETURNS
+#   version         Version - {urn:example.com:simpletype-rpc-type}version
+#
+version_struct = nil
+puts obj.echo_version_r(version_struct)
+
+

data/test/wsdl/soap/wsdl2ruby/expectedDriver.rb

@@ -0,0 +1,59 @@
+# encoding: ASCII-8BIT
+require 'echo_version.rb'
+require 'echo_versionMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+class Echo_version_port_type < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost:10080"
+  NsSimpletypeRpc = "urn:example.com:simpletype-rpc"
+
+  Methods = [
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version",
+      [ [:in, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]],
+        [:retval, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version_r"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version_r",
+      [ [:in, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
+        [:retval, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = Echo_versionMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = Echo_versionMappingRegistry::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
+

data/test/wsdl/soap/wsdl2ruby/expectedMappingRegistry.rb

@@ -0,0 +1,37 @@
+# encoding: ASCII-8BIT
+require 'echo_version.rb'
+require 'soap/mapping'
+
+module Echo_versionMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsSimpletypeRpcType = "urn:example.com:simpletype-rpc-type"
+
+  EncodedRegistry.register(
+    :class => Version_struct,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version_struct"),
+    :schema_element => [
+      ["version", ["Version", XSD::QName.new(nil, "version")]],
+      ["msg", ["SOAP::SOAPString", XSD::QName.new(nil, "msg")]]
+    ]
+  )
+
+  EncodedRegistry.register(
+    :class => Version,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version")
+  )
+
+  LiteralRegistry.register(
+    :class => Version_struct,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version_struct"),
+    :schema_element => [
+      ["version", ["Version", XSD::QName.new(nil, "version")]],
+      ["msg", ["SOAP::SOAPString", XSD::QName.new(nil, "msg")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => Version,
+    :schema_type => XSD::QName.new(NsSimpletypeRpcType, "version")
+  )
+end

data/test/wsdl/soap/wsdl2ruby/expectedServant.rb

@@ -0,0 +1,33 @@
+# encoding: ASCII-8BIT
+require 'echo_version.rb'
+
+class Echo_version_port_type
+  # SYNOPSIS
+  #   echo_version(version)
+  #
+  # ARGS
+  #   version         Version - {urn:example.com:simpletype-rpc-type}version
+  #
+  # RETURNS
+  #   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+  #
+  def echo_version(version)
+    p [version]
+    raise NotImplementedError.new
+  end
+
+  # SYNOPSIS
+  #   echo_version_r(version_struct)
+  #
+  # ARGS
+  #   version_struct  Version_struct - {urn:example.com:simpletype-rpc-type}version_struct
+  #
+  # RETURNS
+  #   version         Version - {urn:example.com:simpletype-rpc-type}version
+  #
+  def echo_version_r(version_struct)
+    p [version_struct]
+    raise NotImplementedError.new
+  end
+end
+

data/test/wsdl/soap/wsdl2ruby/expectedService.cgi

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+require 'echo_versionServant.rb'
+require 'echo_versionMappingRegistry.rb'
+require 'soap/rpc/cgistub'
+
+class Echo_version_port_type
+  NsSimpletypeRpc = "urn:example.com:simpletype-rpc"
+
+  Methods = [
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version",
+      [ [:in, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]],
+        [:retval, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version_r"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version_r",
+      [ [:in, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
+        [:retval, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ]
+  ]
+end
+
+class Echo_version_port_typeApp < ::SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super(*arg)
+    servant = Echo_version_port_type.new
+    Echo_version_port_type::Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        @router.add_document_operation(servant, *definitions)
+      else
+        @router.add_rpc_operation(servant, *definitions)
+      end
+    end
+    self.mapping_registry = Echo_versionMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = Echo_versionMappingRegistry::LiteralRegistry
+    self.level = Logger::Severity::ERROR
+  end
+end
+Echo_version_port_typeApp.new('app', nil).start

data/test/wsdl/soap/wsdl2ruby/expectedService.rb

@@ -0,0 +1,56 @@
+#!/usr/bin/env ruby
+# encoding: ASCII-8BIT
+require 'echo_versionServant.rb'
+require 'echo_versionMappingRegistry.rb'
+require 'soap/rpc/standaloneServer'
+
+class Echo_version_port_type
+  NsSimpletypeRpc = "urn:example.com:simpletype-rpc"
+
+  Methods = [
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version",
+      [ [:in, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]],
+        [:retval, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsSimpletypeRpc, "echo_version_r"),
+      "urn:example.com:simpletype-rpc",
+      "echo_version_r",
+      [ [:in, "version_struct", ["Version_struct", "urn:example.com:simpletype-rpc-type", "version_struct"]],
+        [:retval, "version", [nil, "urn:example.com:simpletype-rpc-type", "version"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ]
+  ]
+end
+
+class Echo_version_port_typeApp < ::SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super(*arg)
+    servant = Echo_version_port_type.new
+    Echo_version_port_type::Methods.each do |definitions|
+      opt = definitions.last
+      if opt[:request_style] == :document
+        @router.add_document_operation(servant, *definitions)
+      else
+        @router.add_rpc_operation(servant, *definitions)
+      end
+    end
+    self.mapping_registry = Echo_versionMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = Echo_versionMappingRegistry::LiteralRegistry
+  end
+end
+
+if $0 == __FILE__
+  # Change listen port.
+  server = Echo_version_port_typeApp.new('app', nil, '0.0.0.0', 10080)
+  trap(:INT) do
+    server.shutdown
+  end
+  server.start
+end

data/test/wsdl/soap/wsdl2ruby/rpc.wsdl

@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions name="echo_version"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:tns="urn:example.com:simpletype-rpc"
+    xmlns:txd="urn:example.com:simpletype-rpc-type"
+    targetNamespace="urn:example.com:simpletype-rpc"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema targetNamespace="urn:example.com:simpletype-rpc-type">
+      <xsd:complexType name="version_struct">
+	<xsd:all>
+	  <xsd:element name="version" type="txd:version" />
+	  <xsd:element name="msg" type="xsd:string" />
+	</xsd:all>
+      </xsd:complexType>
+
+      <xsd:simpleType name="version">
+        <xsd:restriction base="xsd:string">
+          <xsd:enumeration value="1.6"/>
+          <xsd:enumeration value="1.8"/>
+          <xsd:enumeration value="1.9"/>
+        </xsd:restriction>
+      </xsd:simpleType>
+    </xsd:schema>
+  </types>
+
+  <message name="msg_version">
+    <part name="version" type="txd:version"/>
+  </message>
+
+  <message name="msg_version_struct">
+    <part name="version_struct" type="txd:version_struct"/>
+  </message>
+
+  <portType name="echo_version_port_type">
+    <operation name="echo_version">
+      <input message="tns:msg_version"/>
+      <output message="tns:msg_version_struct"/>
+    </operation>
+
+    <operation name="echo_version_r">
+      <input message="tns:msg_version_struct"/>
+      <output message="tns:msg_version"/>
+    </operation>
+  </portType>
+
+  <binding name="echo_version_binding" type="tns:echo_version_port_type">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="rpc"/>
+    <operation name="echo_version">
+      <soap:operation soapAction="urn:example.com:simpletype-rpc"/>
+      <input>
+        <soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </input>
+      <output>
+        <soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </output>
+    </operation>
+
+    <operation name="echo_version_r">
+      <soap:operation soapAction="urn:example.com:simpletype-rpc"/>
+      <input>
+        <soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </input>
+      <output>
+        <soap:body use="encoded" namespace="urn:example.com:simpletype-rpc"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </output>
+    </operation>
+  </binding>
+
+  <service name="echo_version_service">
+    <port name="echo_version_port" binding="tns:echo_version_binding">
+      <soap:address location="http://localhost:10080"/>
+    </port>
+  </service>
+</definitions>

data/test/wsdl/soap/wsdl2ruby/section/expectedClassdef.rb

@@ -0,0 +1,38 @@
+# encoding: ASCII-8BIT
+require 'xsd/qname'
+
+# {urn:mysample}question
+#   something - SOAP::SOAPString
+class Question
+  attr_accessor :something
+
+  def initialize(something = nil)
+    @something = something
+  end
+end
+
+# {urn:mysample}section
+#   sectionID - SOAP::SOAPInt
+#   name - SOAP::SOAPString
+#   description - SOAP::SOAPString
+#   index - SOAP::SOAPInt
+#   firstQuestion - Question
+class Section
+  attr_accessor :sectionID
+  attr_accessor :name
+  attr_accessor :description
+  attr_accessor :index
+  attr_accessor :firstQuestion
+
+  def initialize(sectionID = nil, name = nil, description = nil, index = nil, firstQuestion = nil)
+    @sectionID = sectionID
+    @name = name
+    @description = description
+    @index = index
+    @firstQuestion = firstQuestion
+  end
+end
+
+# {urn:mysample}sectionArray
+class SectionArray < ::Array
+end

data/test/wsdl/soap/wsdl2ruby/section/section.xsd

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema targetNamespace="urn:mysample"
+    xmlns:tns="urn:mysample"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:enc="http://schemas.xmlsoap.org/soap/encoding/"
+    xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+
+  <xsd:complexType name="question">
+    <xsd:sequence>
+      <xsd:element name="something" type="xsd:string" />
+    </xsd:sequence>
+  </xsd:complexType>
+
+  <xsd:complexType name="section">
+    <xsd:sequence>
+      <xsd:element name="sectionID" type="xsd:int" />
+      <xsd:element name="name" type="xsd:string" />
+      <xsd:element name="description" type="xsd:string" />
+      <xsd:element name="index" type="xsd:int" />
+      <xsd:element name="firstQuestion" type="tns:question" />
+    </xsd:sequence>
+  </xsd:complexType>
+
+  <xsd:complexType name="sectionArray">
+    <xsd:complexContent>
+      <xsd:restriction base="enc:Array">
+        <xsd:attribute ref="enc:arrayType" wsdl:arrayType="tns:section[]"/>
+      </xsd:restriction>
+    </xsd:complexContent>
+  </xsd:complexType>
+</xsd:schema>

data/test/wsdl/soap/wsdl2ruby/section/test_section.rb

@@ -0,0 +1,54 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/marshal'
+require 'rbconfig'
+
+
+module WSDL; module SOAP
+
+
+class TestSection < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+  RUBY = Config::CONFIG['RUBY_INSTALL_NAME']
+
+  def setup
+    system("cd #{DIR} && #{RUBY} #{pathname("../../../../../bin/xsd2ruby.rb")} --xsd #{pathname("section.xsd")} --classdef --force --quiet")
+  end
+
+  def teardown
+    File.unlink(pathname("mysample.rb")) unless $DEBUG
+  end
+
+  def test_classdef
+    compare("expectedClassdef.rb", "mysample.rb")
+  end
+
+  def test_marshal
+    # avoid name crash (<item> => an Item when a class Item is defined)
+    if ::Object.constants.include?("Item")
+      ::Object.instance_eval { remove_const("Item") }
+    end
+    TestUtil.require(DIR, 'mysample.rb')
+    s1 = Section.new(1, "section1", "section 1", 1001, Question.new("q1"))
+    s2 = Section.new(2, "section2", "section 2", 1002, Question.new("q2"))
+    org = SectionArray[s1, s2]
+    obj = ::SOAP::Marshal.unmarshal(::SOAP::Marshal.marshal(org))
+    assert_equal(SectionArray, obj.class)
+    assert_equal(Section, obj[0].class)
+    assert_equal(Question, obj[0].firstQuestion.class)
+  end
+
+private
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+end
+
+
+end; end