soap4r 1.5.5.20061022

data/test/wsdl/document/test_rpc.rb

@@ -0,0 +1,211 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+
+
+module WSDL; module Document
+
+
+class TestRPC < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'urn:docrpc'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + ':echo',
+        'echo',
+        XSD::QName.new(Namespace, 'echo'),
+        XSD::QName.new(Namespace, 'echo_response')
+      )
+      add_document_method(
+        self,
+        Namespace + ':return_nil',
+        'return_nil',
+        nil,
+        XSD::QName.new(Namespace, 'return_nil')
+      )
+      self.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    end
+  
+    def echo(arg)
+      if arg.is_a?(Echoele)
+        # swap args
+        tmp = arg.struct1
+        arg.struct1 = arg.struct_2
+        arg.struct_2 = tmp
+        arg
+      else
+        # swap args
+        tmp = arg["struct1"]
+        arg["struct1"] = arg["struct-2"]
+        arg["struct-2"] = tmp
+        arg
+      end
+    end
+
+    def return_nil
+      ::SOAP::SOAPNil.new
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_server
+    File.unlink(pathname('echo.rb')) unless $DEBUG
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "urn:rpc", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = start_server_thread(@server)
+  end
+
+  def setup_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("document.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['force'] = true
+    gen.run
+    backupdir = Dir.pwd
+    begin
+      Dir.chdir(DIR)
+      require pathname('echo')
+      require pathname('echoMappingRegistry')
+    ensure
+      Dir.chdir(backupdir)
+    end
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def start_server_thread(server)
+    t = Thread.new {
+      Thread.current.abort_on_exception = true
+      server.start
+    }
+    t
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'document.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    @client.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+
+    struct1 = Echo_struct.new("mystring1", now1 = Time.now)
+    struct1.xmlattr_m_attr = 'myattr1'
+    struct2 = Echo_struct.new("mystring2", now2 = Time.now)
+    struct2.xmlattr_m_attr = 'myattr2'
+    echo = Echoele.new(struct1, struct2)
+    echo.xmlattr_attr_string = 'attr_string'
+    echo.xmlattr_attr_int = 5
+    ret = @client.echo(echo)
+
+    # struct#m_datetime in a response is a DateTime even though
+    # struct#m_datetime in a request is a Time.
+    timeformat = "%Y-%m-%dT%H:%M:%S"
+    assert_equal("mystring2", ret.struct1.m_string)
+    assert_equal(now2.strftime(timeformat),
+      date2time(ret.struct1.m_datetime).strftime(timeformat))
+    assert_equal("mystring1", ret.struct_2.m_string)
+    assert_equal(now1.strftime(timeformat),
+      date2time(ret.struct_2.m_datetime).strftime(timeformat))
+    assert_equal("attr_string", ret.xmlattr_attr_string)
+    assert_equal(5, ret.xmlattr_attr_int)
+  end
+
+  def date2time(date)
+    if date.respond_to?(:to_time)
+      date.to_time
+    else
+      d = date.new_offset(0)
+      d.instance_eval {
+        Time.utc(year, mon, mday, hour, min, sec,
+          (sec_fraction * 86400000000).to_i)
+      }.getlocal
+    end
+  end
+
+  include ::SOAP
+  def test_naive
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/")
+    @client.add_document_method('echo', 'urn:docrpc:echo',
+      XSD::QName.new('urn:docrpc', 'echoele'),
+      XSD::QName.new('urn:docrpc', 'echo_response'))
+    @client.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+
+    echo = SOAPElement.new('foo')
+    echo.extraattr['attr_string'] = 'attr_string'
+    echo.extraattr['attr-int'] = 5
+    echo.add(struct1 = SOAPElement.new('struct1'))
+    struct1.add(SOAPElement.new('m_string', 'mystring1'))
+    struct1.add(SOAPElement.new('m_datetime', '2005-03-17T19:47:31+01:00'))
+    struct1.extraattr['m_attr'] = 'myattr1'
+    echo.add(struct2 = SOAPElement.new('struct-2'))
+    struct2.add(SOAPElement.new('m_string', 'mystring2'))
+    struct2.add(SOAPElement.new('m_datetime', '2005-03-17T19:47:32+02:00'))
+    struct2.extraattr['m_attr'] = 'myattr2'
+    ret = @client.echo(echo)
+    timeformat = "%Y-%m-%dT%H:%M:%S"
+    assert_equal('mystring2', ret.struct1.m_string)
+    assert_equal('2005-03-17T19:47:32',
+      ret.struct1.m_datetime.strftime(timeformat))
+    assert_equal("mystring1", ret.struct_2.m_string)
+    assert_equal('2005-03-17T19:47:31',
+      ret.struct_2.m_datetime.strftime(timeformat))
+    assert_equal('attr_string', ret.xmlattr_attr_string)
+    assert_equal(5, ret.xmlattr_attr_int)
+
+    echo = {'struct1' => {'m_string' => 'mystring1', 'm_datetime' => '2005-03-17T19:47:31+01:00'}, 
+          'struct-2' => {'m_string' => 'mystring2', 'm_datetime' => '2005-03-17T19:47:32+02:00'}}
+    ret = @client.echo(echo)
+    timeformat = "%Y-%m-%dT%H:%M:%S"
+    assert_equal('mystring2', ret.struct1.m_string)
+    assert_equal('2005-03-17T19:47:32',
+      ret.struct1.m_datetime.strftime(timeformat))
+    assert_equal("mystring1", ret.struct_2.m_string)
+    assert_equal('2005-03-17T19:47:31',
+      ret.struct_2.m_datetime.strftime(timeformat))
+  end
+
+  def test_nil
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/")
+    @client.add_document_method('return_nil', 'urn:docrpc:return_nil',
+      nil,
+      XSD::QName.new('urn:docrpc', 'return_nil'))
+    @client.literal_mapping_registry = EchoMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+
+    assert_nil(@client.return_nil)
+  end
+end
+
+
+end; end

data/test/wsdl/emptycomplextype.wsdl

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions name = "emptycomplextype"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    targetNamespace="urn:jp.gr.jin.rrr.example.emptycomplextype"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+
+  <types>
+    <xsd:schema elementFormDefault="qualified"
+	targetNamespace="urn:jp.gr.jin.rrr.example.emptycomplextype">
+      <xsd:element name="typeIn">
+        <xsd:complexType />
+      </xsd:element>
+
+      <xsd:element name="typeOut">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="str1" type="xsd:string" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="str2" type="xsd:string" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="seq">
+              <xsd:complexType>
+                <xsd:sequence>
+                  <xsd:any />
+                </xsd:sequence>
+              </xsd:complexType>
+            </xsd:element>
+          </xsd:sequence>
+        </xsd:complexType>
+      </xsd:element>
+    </xsd:schema>
+  </types>
+</definitions>

data/test/wsdl/list/list.wsdl

@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions
+    name="list"
+    targetNamespace="urn:list"
+    xmlns:tns="urn:list"
+    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 elementFormDefault="unqualified" targetNamespace="urn:list">
+      <xsd:simpleType name="langlistinline">
+        <xsd:list>
+          <xsd:simpleType>
+            <xsd:restriction base="xsd:string">
+              <xsd:enumeration value="inlineruby" />
+              <xsd:enumeration value="inlineperl" />
+              <xsd:enumeration value="inlinepython" />
+              <xsd:enumeration value="inlinesmalltalk" />
+            </xsd:restriction>
+          </xsd:simpleType>
+        </xsd:list>
+      </xsd:simpleType>
+
+      <xsd:simpleType name="language">
+        <xsd:restriction base="xsd:string">
+          <xsd:enumeration value="ruby" />
+          <xsd:enumeration value="perl" />
+          <xsd:enumeration value="python" />
+          <xsd:enumeration value="smalltalk" />
+        </xsd:restriction>
+      </xsd:simpleType>
+
+      <xsd:simpleType name="langlist">
+        <xsd:list itemType="tns:language"/>
+      </xsd:simpleType>
+
+      <xsd:element name="echoele">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="e1"
+              type="tns:langlistinline" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="e2"
+              type="tns:langlist" />
+          </xsd:sequence>
+        </xsd:complexType>
+      </xsd:element>
+
+      <xsd:element name="echo_response">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="0" maxOccurs="1" name="e1"
+              type="tns:langlistinline" />
+            <xsd:element minOccurs="0" maxOccurs="1" name="e2"
+              type="tns:langlist" />
+          </xsd:sequence>
+        </xsd:complexType>
+      </xsd:element>
+    </xsd:schema>
+  </types>
+
+  <message name="echo_in">
+    <part name="parameters" element="tns:echoele" />
+  </message>
+  <message name="echo_out">
+    <part name="parameters" element="tns:echo_response" />
+  </message>
+
+  <portType name="list_porttype">
+    <operation name="echo">
+      <input message="tns:echo_in" />
+      <output message="tns:echo_out" />
+    </operation>
+  </portType>
+
+  <binding name="list_binding" type="tns:list_porttype">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document" />
+    <operation name="echo">
+      <soap:operation soapAction="urn:list:echo" style="document" />
+      <input>
+        <soap:body use="literal" />
+      </input>
+      <output>
+        <soap:body use="literal" />
+      </output>
+    </operation>
+  </binding>
+
+  <service name="list_service">
+    <port name="list_service_port" binding="tns:list_binding">
+      <soap:address location="http://localhost:17171/" />
+    </port>
+  </service>
+</definitions>

data/test/wsdl/list/test_list.rb

@@ -0,0 +1,134 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+
+
+module WSDL; module List
+
+
+class TestList < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    Namespace = 'urn:list'
+
+    def on_init
+      add_document_method(
+        self,
+        Namespace + ':echo',
+        'echo',
+        XSD::QName.new(Namespace, 'echoele'),
+        XSD::QName.new(Namespace, 'echo_response')
+      )
+    end
+  
+    def echo(arg)
+      arg
+    end
+  end
+
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  Port = 17171
+
+  def setup
+    setup_server
+    setup_classdef
+    @client = nil
+  end
+
+  def teardown
+    teardown_server
+    File.unlink(pathname('list.rb')) unless $DEBUG
+    File.unlink(pathname('listDriver.rb')) unless $DEBUG
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', Server::Namespace, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = start_server_thread(@server)
+  end
+
+  def setup_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("list.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['force'] = true
+    gen.run
+    back = $:.dup
+    begin
+      $:.unshift(pathname('.'))
+      require pathname('listDriver')
+    ensure
+      $:.replace(back)
+    end
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def start_server_thread(server)
+    t = Thread.new {
+      Thread.current.abort_on_exception = true
+      server.start
+    }
+    t
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'list.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    e1 = Langlistinline.new([Langlistinline::Inlineruby,
+      Langlistinline::Inlineperl])
+    e2 = Langlist.new([Language::Python, Language::Smalltalk])
+    ret = @client.echo(Echoele.new(e1, e2))
+    # in the future...
+    #   assert_equal(e1, ret.e1)
+    #   assert_equal(e2, ret.e2)
+    assert_equal(e1.join(" "), ret.e1)
+    assert_equal(e2.join(" "), ret.e2)
+  end
+
+  def test_naive
+    @client = List_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    e1 = Langlistinline.new([Langlistinline::Inlineruby,
+      Langlistinline::Inlineperl])
+    e2 = Langlist.new([Language::Python, Language::Smalltalk])
+    ret = @client.echo(Echoele.new(e1, e2))
+    # in the future...
+    #   assert_equal(e1, ret.e1)
+    #   assert_equal(e2, ret.e2)
+    assert_equal(e1.join(" "), ret.e1)
+    assert_equal(e2.join(" "), ret.e2)
+  end
+
+  def test_string_as_a_value
+    @client = List_porttype.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDOUT if $DEBUG
+    e1 = ['inlineruby', 'inlineperl']
+    e2 = 'python smalltalk'
+    ret = @client.echo(Echoele.new(e1, e2))
+    # in the future...
+    #   assert_equal(e1, ret.e1)
+    #   assert_equal(e2, ret.e2)
+    assert_equal(e1.join(" "), ret.e1)
+    assert_equal(e2, ret.e2)
+  end
+end
+
+
+end; end