soap4r-straightjacket 1.5.8

data/test/wsdl/oneway/test_oneway.rb

@@ -0,0 +1,108 @@
+require 'test/unit'
+require 'soap/rpc/standaloneServer'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL
+module Oneway
+
+
+class TestOneway < Test::Unit::TestCase
+  NS = 'http://www.example.com/oneway'
+  class Server < ::SOAP::RPC::StandaloneServer
+    Methods = [
+      [ "initiate",
+        "initiate",
+        [ [:in, "payload", ["::SOAP::SOAPElement", "http://www.example.com/oneway", "onewayProcessRequest"]] ],
+        { :request_style =>  :document, :request_use =>  :literal,
+          :response_style => :document, :response_use => nil,
+          :faults => {} }
+      ]
+    ]
+
+    def on_init
+      Methods.each do |definition|
+        add_document_operation(self, *definition)
+      end
+      self.mapping_registry = OnewayMappingRegistry::EncodedRegistry
+      self.literal_mapping_registry = OnewayMappingRegistry::LiteralRegistry
+    end
+  
+    def initiate(payload)
+      raise unless payload.msg
+    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('oneway.rb'))
+      File.unlink(pathname('onewayMappingRegistry.rb'))
+      File.unlink(pathname('onewayDriver.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    @server = Server.new('Test', "http://www.example.com/oneway", '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("oneway.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'] = 'WSDL::Oneway'
+    gen.run
+    TestUtil.require(DIR, 'oneway.rb', 'onewayDriver.rb', 'onewayMappingRegistry.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_stub
+    @client = OnewayPort.new("http://localhost:#{Port}/")
+    @client.wiredump_dev = STDERR if $DEBUG
+    # not raised
+    @client.initiate(OnewayProcessRequest.new("msg"))
+    @client.initiate(OnewayProcessRequest.new(nil))
+  end
+
+  def test_wsdl
+    @client = ::SOAP::WSDLDriverFactory.new(pathname('oneway.wsdl')).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDERR if $DEBUG
+    # not raised
+    @client.initiate(OnewayProcessRequest.new("msg"))
+    @client.initiate(OnewayProcessRequest.new(nil))
+  end
+end
+
+
+end
+end

data/test/wsdl/overload/expectedClient.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+require 'defaultDriver.rb'
+
+endpoint_url = ARGV.shift
+obj = OverloadServicePortType.new(endpoint_url)
+
+# run ruby with -d to see SOAP wiredumps.
+obj.wiredump_dev = STDERR if $DEBUG
+
+# SYNOPSIS
+#   methodAlpha(in0, in1, in2)
+#
+# ARGS
+#   in0             C_String - {http://www.w3.org/2001/XMLSchema}string
+#   in1             C_String - {http://www.w3.org/2001/XMLSchema}string
+#   in2             C_String - {http://www.w3.org/2001/XMLSchema}string
+#
+# RETURNS
+#   methodAlphaReturn Long - {http://www.w3.org/2001/XMLSchema}long
+#
+in0 = in1 = in2 = nil
+puts obj.methodAlpha(in0, in1, in2)
+
+# SYNOPSIS
+#   methodAlpha_2(in0, in1)
+#
+# ARGS
+#   in0             C_String - {http://www.w3.org/2001/XMLSchema}string
+#   in1             C_String - {http://www.w3.org/2001/XMLSchema}string
+#
+# RETURNS
+#   methodAlphaReturn Long - {http://www.w3.org/2001/XMLSchema}long
+#
+in0 = in1 = nil
+puts obj.methodAlpha_2(in0, in1)
+
+

data/test/wsdl/overload/expectedDriver.rb

@@ -0,0 +1,61 @@
+require 'default.rb'
+require 'defaultMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+class OverloadServicePortType < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost/"
+  NsOverload = "urn:overload"
+
+  Methods = [
+    [ XSD::QName.new(NsOverload, "methodAlpha"),
+      "methodAlpha1",
+      "methodAlpha",
+      [ [:in, "in0", ["::SOAP::SOAPString"]],
+        [:in, "in1", ["::SOAP::SOAPString"]],
+        [:in, "in2", ["::SOAP::SOAPString"]],
+        [:retval, "methodAlphaReturn", ["::SOAP::SOAPLong"]] ],
+      { :request_style =>  :rpc, :request_use =>  :encoded,
+        :response_style => :rpc, :response_use => :encoded,
+        :faults => {} }
+    ],
+    [ XSD::QName.new(NsOverload, "methodAlpha"),
+      "methodAlpha2",
+      "methodAlpha_2",
+      [ [:in, "in0", ["::SOAP::SOAPString"]],
+        [:in, "in1", ["::SOAP::SOAPString"]],
+        [:retval, "methodAlphaReturn", ["::SOAP::SOAPLong"]] ],
+      { :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 = DefaultMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = DefaultMappingRegistry::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/overload/expectedServant.rb

@@ -0,0 +1,35 @@
+require 'default.rb'
+
+class OverloadServicePortType
+  # SYNOPSIS
+  #   methodAlpha(in0, in1, in2)
+  #
+  # ARGS
+  #   in0             C_String - {http://www.w3.org/2001/XMLSchema}string
+  #   in1             C_String - {http://www.w3.org/2001/XMLSchema}string
+  #   in2             C_String - {http://www.w3.org/2001/XMLSchema}string
+  #
+  # RETURNS
+  #   methodAlphaReturn Long - {http://www.w3.org/2001/XMLSchema}long
+  #
+  def methodAlpha(in0, in1, in2)
+    p [in0, in1, in2]
+    raise NotImplementedError.new
+  end
+
+  # SYNOPSIS
+  #   methodAlpha_2(in0, in1)
+  #
+  # ARGS
+  #   in0             C_String - {http://www.w3.org/2001/XMLSchema}string
+  #   in1             C_String - {http://www.w3.org/2001/XMLSchema}string
+  #
+  # RETURNS
+  #   methodAlphaReturn Long - {http://www.w3.org/2001/XMLSchema}long
+  #
+  def methodAlpha_2(in0, in1)
+    p [in0, in1]
+    raise NotImplementedError.new
+  end
+end
+

data/test/wsdl/overload/overload.wsdl

@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<wsdl:definitions targetNamespace="urn:overload" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:tns="urn:overload" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+ <wsdl:types>
+  <schema targetNamespace="urn:overload" xmlns="http://www.w3.org/2001/XMLSchema">
+   <import namespace="http://xml.apache.org/xml-soap"/>
+   <import namespace="http://schemas.xmlsoap.org/soap/encoding/"/>
+  </schema>
+ </wsdl:types>
+
+   <wsdl:message name="methodAlphaRequest">
+      <wsdl:part name="in0" type="xsd:string"/>
+      <wsdl:part name="in1" type="xsd:string"/>
+      <wsdl:part name="in2" type="xsd:string"/>
+   </wsdl:message>
+   
+   <wsdl:message name="methodAlphaRequest1">
+      <wsdl:part name="in0" type="xsd:string"/>
+      <wsdl:part name="in1" type="xsd:string"/>
+   </wsdl:message>
+   
+   <wsdl:message name="methodAlphaResponse">
+      <wsdl:part name="methodAlphaReturn" type="xsd:long"/>
+   </wsdl:message>
+   
+   <wsdl:message name="methodAlphaResponse1">
+      <wsdl:part name="methodAlphaReturn" type="xsd:long"/>
+   </wsdl:message>
+
+   <wsdl:portType name="OverloadServicePortType">
+      <wsdl:operation name="methodAlpha" parameterOrder="in0 in1 in2">
+         <wsdl:input message="tns:methodAlphaRequest" name="methodAlphaRequest"/>
+         <wsdl:output message="tns:methodAlphaResponse" name="methodAlphaResponse"/>
+      </wsdl:operation>
+
+      <wsdl:operation name="methodAlpha" parameterOrder="in0 in1">
+         <wsdl:input message="tns:methodAlphaRequest1" name="methodAlphaRequest1"/>
+         <wsdl:output message="tns:methodAlphaResponse1" name="methodAlphaResponse1"/>
+      </wsdl:operation>
+   </wsdl:portType>
+
+   <wsdl:binding name="OverloadServiceSoap" type="tns:OverloadServicePortType">
+      <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
+      <wsdl:operation name="methodAlpha">
+         <wsdlsoap:operation soapAction="methodAlpha1"/>
+         <wsdl:input name="methodAlphaRequest">
+            <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:overload" use="encoded"/>
+         </wsdl:input>
+         <wsdl:output name="methodAlphaResponse">
+            <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:overload" use="encoded"/>
+         </wsdl:output>
+      </wsdl:operation>
+
+      <wsdl:operation name="methodAlpha">
+         <wsdlsoap:operation soapAction="methodAlpha2"/>
+         <wsdl:input name="methodAlphaRequest1">
+            <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:overload" use="encoded"/>
+         </wsdl:input>
+         <wsdl:output name="methodAlphaResponse1">
+            <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:overload" use="encoded"/>
+         </wsdl:output>
+      </wsdl:operation>
+    </wsdl:binding>
+	
+    <wsdl:service name="OverloadService">
+      <wsdl:port binding="tns:OverloadServiceSoap" name="OverloadServicePort">
+        <wsdlsoap:address location="http://localhost/"/>
+      </wsdl:port>
+   </wsdl:service>
+
+</wsdl:definitions>

data/test/wsdl/overload/test_overload.rb

@@ -0,0 +1,131 @@
+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 Overload
+
+
+class TestOverload < Test::Unit::TestCase
+  TNS = "urn:overload"
+
+  Methods = [
+    [
+      XSD::QName.new(TNS, 'methodAlpha'), "methodAlpha1", "method_alpha_1",
+      [ [:in, "in0", ["::SOAP::SOAPString"]],
+        [:in, "in1", ["::SOAP::SOAPString"]],
+        [:in, "in2", ["::SOAP::SOAPString"]],
+        [:retval, "methodAlphaReturn", ["::SOAP::SOAPLong"]] ]
+    ], 
+    [
+      XSD::QName.new(TNS, 'methodAlpha'), "methodAlpha2", "method_alpha_2",
+      [ [:in, "in0", ["::SOAP::SOAPString"]],
+        [:in, "in1", ["::SOAP::SOAPString"]],
+        [:retval, "methodAlphaReturn", ["::SOAP::SOAPLong"]] ]
+    ]
+  ]
+
+  class Server < ::SOAP::RPC::StandaloneServer
+    def on_init
+      TestOverload::Methods.each do |definition|
+        add_rpc_operation(self, *definition)
+      end
+    end
+  
+    def method_alpha_1(in0, in1, in2)
+      3
+    end
+  
+    def method_alpha_2(in0, in1)
+      2
+    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('default.rb'))
+      File.unlink(pathname('defaultMappingRegistry.rb'))
+      File.unlink(pathname('defaultDriver.rb'))
+      File.unlink(pathname('defaultServant.rb'))
+      File.unlink(pathname('OverloadServiceClient.rb'))
+    end
+    @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 = TestUtil.start_server_thread(@server)
+  end
+
+  def setup_classdef
+    gen = WSDL::SOAP::WSDL2Ruby.new
+    gen.location = pathname("overload.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['driver'] = nil
+    gen.opt['servant_skelton'] = nil
+    gen.opt['client_skelton'] = nil
+    gen.opt['force'] = true
+    gen.run
+    TestUtil.require(DIR, 'default.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_compare
+    compare("expectedDriver.rb", "defaultDriver.rb")
+    compare("expectedServant.rb", "defaultServant.rb")
+    compare("expectedClient.rb", "OverloadServiceClient.rb")
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'overload.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.wiredump_dev = STDOUT if $DEBUG
+    assert_equal(3, @client.call("methodAlpha1", "1", "2", "3"))
+    assert_equal(2, @client.call("methodAlpha2", "1", "2"))
+  end
+
+  def test_native
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/")
+    Methods.each do |definition|
+      @client.add_rpc_operation(*definition)
+    end
+    @client.wiredump_dev = STDOUT if $DEBUG
+    assert_equal(3, @client.call("methodAlpha1", "1", "2", "3"))
+    assert_equal(2, @client.call("methodAlpha2", "1", "2"))
+  end
+
+  def compare(expected, actual)
+    TestUtil.filecompare(pathname(expected), pathname(actual))
+  end
+end
+
+
+end; end