soap4r 1.5.5.20061022

data/test/wsdl/simpletype/rpc/test_rpc.rb

@@ -0,0 +1,62 @@
+require 'test/unit'
+require 'wsdl/parser'
+require 'wsdl/soap/wsdl2ruby'
+
+
+module WSDL; module SimpleType
+
+
+class TestRPC < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_rpc
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("rpc.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['client_skelton'] = nil
+    gen.opt['servant_skelton'] = nil
+    gen.opt['standalone_server_stub'] = nil
+    gen.opt['force'] = true
+    suppress_warning do
+      gen.run
+    end
+    compare("expectedEchoVersion.rb", "echo_version.rb")
+    compare("expectedDriver.rb", "echo_versionDriver.rb")
+    compare("expectedService.rb", "echo_version_service.rb")
+    compare("expectedClient.rb", "echo_version_serviceClient.rb")
+    compare("expectedServant.rb", "echo_versionServant.rb")
+
+    File.unlink(pathname("echo_version.rb"))
+    File.unlink(pathname("echo_versionDriver.rb"))
+    File.unlink(pathname("echo_version_service.rb"))
+    File.unlink(pathname("echo_version_serviceClient.rb"))
+    File.unlink(pathname("echo_versionServant.rb"))
+  end
+
+  def compare(expected, actual)
+    assert_equal(loadfile(expected), loadfile(actual), actual)
+  end
+
+  def loadfile(file)
+    File.open(pathname(file)) { |f| f.read }
+  end
+
+  def suppress_warning
+    back = $VERBOSE
+    $VERBOSE = nil
+    begin
+      yield
+    ensure
+      $VERBOSE = back
+    end
+  end
+end
+
+
+end; end

data/test/wsdl/simpletype/simpletype.wsdl

@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="utf-8"?>
+<definitions name="ping_service"
+    xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:tns="urn:example.com:simpletype"
+    targetNamespace="urn:example.com:simpletype"
+    xmlns="http://schemas.xmlsoap.org/wsdl/">
+  <types>
+    <xsd:schema targetNamespace="urn:example.com:simpletype">
+      <xsd:element name="ruby">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element minOccurs="1" maxOccurs="1" name="myversion" type="tns:myversion"/>
+            <xsd:element minOccurs="0" maxOccurs="1" name="date" type="xsd:dateTime"/>
+          </xsd:sequence>
+        </xsd:complexType>
+      </xsd:element>
+
+      <xsd:simpleType name="myversion">
+        <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:element name="myid" type="tns:ID"/>
+
+      <xsd:simpleType name="ID">
+        <xsd:restriction base="xsd:string">
+          <xsd:length value="18"/>
+          <xsd:pattern value='[a-zA-Z0-9]{18}'/>
+        </xsd:restriction>
+      </xsd:simpleType>
+    </xsd:schema>
+  </types>
+
+  <message name="ping_in">
+    <part name="parameters" element="tns:ruby"/>
+  </message>
+
+  <message name="ping_out">
+    <part name="parameters" type="xsd:string"/>
+  </message>
+
+  <message name="ping_id_in">
+    <part name="parameters" element="tns:myid"/>
+  </message>
+
+  <message name="ping_id_out">
+    <part name="parameters" element="tns:myid"/>
+  </message>
+
+  <message name="versionmsg">
+    <part name="myversion" element="tns:myversion"/>
+  </message>
+
+  <portType name="ping_port_type">
+    <operation name="ping">
+      <input message="tns:ping_in"/>
+      <output message="tns:ping_out"/>
+    </operation>
+
+    <operation name="ping_id">
+      <input message="tns:ping_id_in"/>
+      <output message="tns:ping_id_out"/>
+    </operation>
+
+    <operation name="echo_version">
+      <input message="tns:versionmsg"/>
+      <output message="tns:versionmsg"/>
+    </operation>
+  </portType>
+
+  <binding name="ping_binding" type="tns:ping_port_type">
+    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/>
+    <operation name="ping">
+      <soap:operation soapAction="urn:example.com:simpletype:ping" style="document"/>
+      <input><soap:body use="literal"/></input>
+      <output><soap:body use="literal"/></output>
+    </operation>
+
+    <operation name="ping_id">
+      <soap:operation soapAction="urn:example.com:simpletype:ping_id" style="document"/>
+      <input><soap:body use="literal"/></input>
+      <output><soap:body use="literal"/></output>
+    </operation>
+  </binding>
+
+  <service name="ping_service">
+    <port name="ping_port" binding="tns:ping_binding">
+      <soap:address location="http://localhost:10080"/>
+    </port>
+  </service>
+</definitions>

data/test/wsdl/simpletype/test_simpletype.rb

@@ -0,0 +1,99 @@
+require 'test/unit'
+require 'soap/rpc/standaloneServer'
+require 'soap/wsdlDriver'
+
+
+module WSDL
+module SimpleType
+
+
+class TestSimpleType < Test::Unit::TestCase
+  class Server < ::SOAP::RPC::StandaloneServer
+    def on_init
+      add_document_method(self, 'urn:example.com:simpletype:ping', 'ping',
+        XSD::QName.new('urn:example.com:simpletype', 'ruby'),
+        XSD::QName.new('http://www.w3.org/2001/XMLSchema', 'string'))
+      add_document_method(self, 'urn:example.com:simpletype:ping_id', 'ping_id',
+        XSD::QName.new('urn:example.com:simpletype', 'myid'),
+        XSD::QName.new('urn:example.com:simpletype', 'myid'))
+    end
+  
+    def ping(ruby)
+      version = ruby["myversion"]
+      date = ruby["date"]
+      "#{version} (#{date})"
+    end
+
+    def ping_id(id)
+      id
+    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:example.com:simpletype", '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @server_thread = start_server_thread(@server)
+  end
+
+  def setup_client
+    wsdl = File.join(DIR, 'simpletype.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.generate_explicit_type = false
+    @client.wiredump_dev = STDOUT if $DEBUG
+  end
+
+  def teardown
+    teardown_server
+    teardown_client
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def teardown_client
+    @client.reset_stream
+  end
+
+  def start_server_thread(server)
+    t = Thread.new {
+      Thread.current.abort_on_exception = true
+      server.start
+    }
+    t
+  end
+
+  def test_ping
+    ret = @client.ping({:myversion => "1.9", :date => "2004-01-01T00:00:00Z"})
+    assert_equal("1.9 (2004-01-01T00:00:00Z)", ret)
+  end
+
+  def test_ping_id
+    ret = @client.ping_id("012345678901234567")
+    assert_equal("012345678901234567", ret)
+    # length
+    assert_raise(XSD::ValueSpaceError) do
+      @client.ping_id("0123456789012345678")
+    end
+    # pattern
+    assert_raise(XSD::ValueSpaceError) do
+      @client.ping_id("01234567890123456;")
+    end
+  end
+end
+
+
+end
+end

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,79 @@
+require 'test/unit'
+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
+    teardown_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,19 @@
+require 'xsd/qname'
+
+# {urn:example.com:simpletype-rpc-type}version_struct
+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 = Version.new("1.6")
+  C_18 = Version.new("1.8")
+  C_19 = Version.new("1.9")
+end