teo-soap4r 1.5.9b

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

@@ -0,0 +1,37 @@
+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,53 @@
+require 'test/unit'
+require 'soap/marshal'
+require 'rbconfig'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', '..', '..', 'testutil.rb')
+
+
+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

data/test/wsdl/soap/wsdl2ruby/soapenc/soapenc.wsdl

@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions name="echo"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:tns="urn:example.com:soapenc"
+    xmlns:txd="urn:example.com:soapenc-type"
+    targetNamespace="urn:example.com:soapenc"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema targetNamespace="urn:example.com:soapenc-type">
+      <xsd:complexType name="version_struct">
+	<xsd:all>
+	  <xsd:element name="version" type="txd:t_version" />
+	  <xsd:element name="msg" type="soapenc:string" />
+	</xsd:all>
+      </xsd:complexType>
+
+      <xsd:simpleType name="t_version">
+        <xsd:restriction base="soapenc: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:t_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>
+  </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:soapenc"/>
+      <input>
+        <soap:body use="encoded" namespace="urn:example.com:soapenc"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </input>
+      <output>
+        <soap:body use="encoded" namespace="urn:example.com:soapenc"
+	    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/soapenc/test_soapenc.rb

@@ -0,0 +1,83 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', '..', '..', 'testutil.rb')
+
+
+module WSDL; module SOAP; module T_WSDL2Ruby
+
+
+class TestSOAPENC < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    def on_init
+      add_rpc_method(self, 'echo_version', 'version')
+    end
+  
+    def echo_version(version)
+      Version_struct.new(version, "hello")
+    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('echo.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:example.com:soapenc", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_classdef
+    if ::Object.constants.include?("Version_struct")
+      ::Object.instance_eval { remove_const("Version_struct") }
+    end
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("soapenc.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['force'] = true
+    gen.run
+    TestUtil.require(DIR, 'echo.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'soapenc.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    ret = @client.echo_version(T_version::C_19)
+    assert_equal(T_version::C_19, ret.version)
+    assert_equal("hello", ret.msg)
+  end
+end
+
+
+end; end; end

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

@@ -0,0 +1,102 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', '..', 'testutil.rb')
+
+
+module WSDL; module SOAP
+
+
+class TestWSDL2Ruby < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  def setup
+    Dir.chdir(DIR) do
+      gen = WSDL::SOAP::WSDL2Ruby.new
+      gen.location = pathname("rpc.wsdl")
+      gen.basedir = DIR
+      gen.logger.level = Logger::FATAL
+      gen.opt['classdef'] = nil
+      gen.opt['client_skelton'] = nil
+      gen.opt['servant_skelton'] = nil
+      gen.opt['cgi_stub'] = nil
+      gen.opt['standalone_server_stub'] = nil
+      gen.opt['mapping_registry'] = nil
+      gen.opt['driver'] = nil
+      gen.opt['force'] = true
+      TestUtil.silent do
+        gen.run
+      end
+    end
+  end
+
+  def teardown
+    # leave generated file for debug.
+  end
+
+  def test_rpc
+    compare("expectedServant.rb", "echo_versionServant.rb")
+    compare("expectedClassdef.rb", "echo_version.rb")
+    compare("expectedService.rb", "echo_version_service.rb")
+    compare("expectedService.cgi", "echo_version_service.cgi")
+    compare("expectedMappingRegistry.rb", "echo_versionMappingRegistry.rb")
+    compare("expectedDriver.rb", "echo_versionDriver.rb")
+    compare("expectedClient.rb", "echo_version_serviceClient.rb")
+
+    File.unlink(pathname("echo_versionServant.rb"))
+    File.unlink(pathname("echo_version.rb"))
+    File.unlink(pathname("echo_version_service.rb"))
+    File.unlink(pathname("echo_version_service.cgi"))
+    File.unlink(pathname("echo_versionMappingRegistry.rb"))
+    File.unlink(pathname("echo_versionDriver.rb"))
+    File.unlink(pathname("echo_version_serviceClient.rb"))
+  end
+
+  EXPECTED_CLASSDEF = <<__RB__
+require 'xsd/qname'
+
+module TEST
+
+
+# {urn:example.com:simpletype-rpc-type}version_struct
+#   version - TEST::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
+
+
+end
+__RB__
+
+  def test_classdefcreator
+    wsdl = WSDL::Importer.import(pathname("rpc.wsdl"))
+    name_creator = WSDL::SOAP::ClassNameCreator.new
+    creator = WSDL::SOAP::ClassDefCreator.new(wsdl, name_creator, 'TEST')
+    classdef = creator.dump(XSD::QName.new('urn:example.com:simpletype-rpc-type', 'version_struct'))
+    assert_equal(EXPECTED_CLASSDEF, classdef)
+  end
+
+private
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+
+  def loadfile(file)
+    File.open(pathname(file)) { |f| f.read }
+  end
+end
+
+
+end; end

data/test/wsdl/soaptype/soaptype.wsdl

@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions name="echo"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:tns="urn:soaptype"
+    xmlns:txd="urn:soaptype-type"
+    targetNamespace="urn:soaptype"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema targetNamespace="urn:soaptype-type">
+      <xsd:complexType name="wrapper">
+	<xsd:all>
+	  <xsd:element name="short" type="xsd:short" />
+	  <xsd:element name="long" type="xsd:long" />
+	  <xsd:element name="double" type="xsd:double" />
+	</xsd:all>
+      </xsd:complexType>
+    </xsd:schema>
+  </types>
+
+  <message name="echo_in">
+    <part name="arg" type="txd:wrapper"/>
+  </message>
+
+  <message name="echo_out">
+    <part name="return" type="txd:wrapper"/>
+  </message>
+
+  <portType name="echo_port_type">
+    <operation name="echo_soaptype">
+      <input message="tns:echo_in"/>
+      <output message="tns:echo_out"/>
+    </operation>
+
+    <operation name="echo_err">
+      <input message="tns:echo_in"/>
+      <output message="tns:echo_out"/>
+    </operation>
+  </portType>
+
+  <binding name="echo_binding" type="tns:echo_port_type">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="rpc"/>
+    <operation name="echo_soaptype">
+      <soap:operation soapAction=""/>
+      <input>
+        <soap:body use="encoded" namespace="urn:soaptype"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </input>
+      <output>
+        <soap:body use="encoded" namespace="urn:soaptype"
+	    encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
+      </output>
+    </operation>
+  </binding>
+
+  <service name="echo_service">
+    <port name="echo_port" binding="tns:echo_binding">
+      <soap:address location="http://localhost:10080"/>
+    </port>
+  </service>
+</definitions>

data/test/wsdl/soaptype/test_soaptype.rb

@@ -0,0 +1,178 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL; module RPC
+
+
+class TestSOAPTYPE < Test::Unit::TestCase
+  include ::SOAP
+
+  class Server < ::SOAP::RPC::StandaloneServer
+    include ::SOAP
+
+    def on_init
+      #self.generate_explicit_type = false
+      add_rpc_method(self, 'echo_soaptype', 'arg')
+    end
+  
+    def echo_soaptype(arg)
+      res = Wrapper.new
+      res.short = SOAPShort.new(arg.short)
+      res.long = SOAPLong.new(arg.long)
+      res.double = SOAPFloat.new(arg.double)
+      res
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_classdef
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('echo.rb'))
+      File.unlink(pathname('echoMappingRegistry.rb'))
+      File.unlink(pathname('echoDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:soaptype", '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("soaptype.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['force'] = true
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.run
+    TestUtil.require(DIR, 'echo.rb', 'echoMappingRegistry.rb', 'echoDriver.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+SOAPTYPE_WSDL_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:echo_soaptype xmlns:n1="urn:soaptype"
+        env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <arg xmlns:n2="urn:soaptype-type"
+          xsi:type="n2:wrapper">
+        <short xsi:type="xsd:short">123</short>
+        <long xsi:type="xsd:long">456</long>
+        <double xsi:type="xsd:double">+789</double>
+      </arg>
+    </n1:echo_soaptype>
+  </env:Body>
+</env:Envelope>]
+
+SOAPTYPE_NATIVE_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <n1:echo_soaptype xmlns:n1="urn:soaptype"
+        env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <arg xsi:type="xsd:anyType">
+        <short xsi:type="xsd:short">123</short>
+        <long xsi:type="xsd:long">456</long>
+        <double xsi:type="xsd:double">+789</double>
+      </arg>
+    </n1:echo_soaptype>
+  </env:Body>
+</env:Envelope>]
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'soaptype.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = str = ''
+
+    arg = Wrapper.new
+    arg.short = 123
+    arg.long = 456
+    arg.double = 789
+    res = @client.echo_soaptype(arg)
+
+    assert_equal(123, res.short)
+    assert_equal(456, res.long)
+    assert_equal(789.0, res.double)
+
+    assert_equal(SOAPTYPE_WSDL_XML, parse_requestxml(str))
+  end
+
+  def test_stub
+    @client = WSDL::RPC::Echo_port_type.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = str = ''
+
+    arg = WSDL::RPC::Wrapper.new
+    arg.short = 123
+    arg.long = 456
+    arg.double = 789
+    res = @client.echo_soaptype(arg)
+
+    assert_equal(123, res.short)
+    assert_equal(456, res.long)
+    assert_equal(789.0, res.double)
+
+    assert_equal(SOAPTYPE_WSDL_XML, parse_requestxml(str))
+  end
+
+  def test_native
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/", 'urn:soaptype')
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.add_method('echo_soaptype', 'arg')
+    @client.wiredump_dev = str = ''
+    @client.mapping_registry = WSDL::RPC::EchoMappingRegistry::EncodedRegistry
+    @client.literal_mapping_registry = WSDL::RPC::EchoMappingRegistry::LiteralRegistry
+
+    arg = ::Struct.new(:short, :long, :double).new
+    arg.short = SOAPShort.new(123)
+    arg.long = SOAPLong.new(456)
+    arg.double = SOAPDouble.new(789)
+    res = @client.echo_soaptype(arg)
+
+    assert_equal(123, res.short)
+    assert_equal(456, res.long)
+    assert_equal(789.0, res.double)
+
+    assert_equal(SOAPTYPE_NATIVE_XML, parse_requestxml(str))
+  end
+
+  def parse_requestxml(str)
+    str.split(/\r?\n\r?\n/)[3]
+  end
+end
+
+
+end; end