rtiss_soap4r 2.1.0 → 3.0.0.beta

data/test/wsdl/fault/AddMappingRegistry.rb

@@ -0,0 +1,46 @@
+require 'Add.rb'
+require 'soap/mapping'
+
+module WSDL; module Fault
+
+module AddMappingRegistry
+  EncodedRegistry = ::SOAP::Mapping::EncodedRegistry.new
+  LiteralRegistry = ::SOAP::Mapping::LiteralRegistry.new
+  NsFaulttest = "http://fault.test/Faulttest"
+
+  LiteralRegistry.register(
+    :class => WSDL::Fault::Add,
+    :schema_name => XSD::QName.new(NsFaulttest, "Add"),
+    :schema_element => [
+      ["value", ["SOAP::SOAPInt", XSD::QName.new(nil, "value")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Fault::AddResponse,
+    :schema_name => XSD::QName.new(NsFaulttest, "AddResponse"),
+    :schema_element => [
+      ["sum", ["SOAP::SOAPInt", XSD::QName.new(nil, "sum")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Fault::AddFault,
+    :schema_name => XSD::QName.new(NsFaulttest, "AddFault"),
+    :schema_element => [
+      ["reason", ["SOAP::SOAPString", XSD::QName.new(nil, "Reason")]],
+      ["severity", ["SOAP::SOAPString", XSD::QName.new(nil, "Severity")]]
+    ]
+  )
+
+  LiteralRegistry.register(
+    :class => WSDL::Fault::NegativeValueFault,
+    :schema_name => XSD::QName.new(NsFaulttest, "NegativeValueFault"),
+    :schema_element => [
+      ["reason", ["SOAP::SOAPString", XSD::QName.new(nil, "Reason")]],
+      ["severity", ["SOAP::SOAPString", XSD::QName.new(nil, "Severity")]]
+    ]
+  )
+end
+
+end; end

data/test/wsdl/fault/AddServant.rb

@@ -0,0 +1,28 @@
+require 'Add.rb'
+
+
+module WSDL; module Fault
+
+class AddPortType
+  # SYNOPSIS
+  #   add(request)
+  #
+  # ARGS
+  #   request         Add - {http://fault.test/Faulttest}Add
+  #
+  # RETURNS
+  #   response        AddResponse - {http://fault.test/Faulttest}AddResponse
+  #
+  # RAISES
+  #   fault           AddFault - {http://fault.test/Faulttest}AddFault
+  #   fault           NegativeValueFault - {http://fault.test/Faulttest}NegativeValueFault
+  #
+  def add(request)
+    p [request]
+    raise NotImplementedError.new
+  end
+end
+
+
+
+end; end

data/test/wsdl/fault/AddService.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+require 'AddServant.rb'
+require 'AddMappingRegistry.rb'
+require 'soap/rpc/standaloneServer'
+
+module WSDL; module Fault
+
+class AddPortType
+  Methods = [
+    [ "Add",
+      "add",
+      [ [:in, "request", ["::SOAP::SOAPElement", "http://fault.test/Faulttest", "Add"]],
+        [:out, "response", ["::SOAP::SOAPElement", "http://fault.test/Faulttest", "AddResponse"]] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal,
+        :faults => {"WSDL::Fault::AddFault"=>{:ns=>"http://fault.test/Faulttest", :name=>"AddFault", :namespace=>nil, :use=>"literal", :encodingstyle=>"document"}, "WSDL::Fault::NegativeValueFault"=>{:ns=>"http://fault.test/Faulttest", :name=>"NegativeValueFault", :namespace=>nil, :use=>"literal", :encodingstyle=>"document"}} }
+    ]
+  ]
+end
+
+end; end
+
+module WSDL; module Fault
+
+class AddPortTypeApp < ::SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super(*arg)
+    servant = WSDL::Fault::AddPortType.new
+    WSDL::Fault::AddPortType::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 = AddMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = AddMappingRegistry::LiteralRegistry
+  end
+end
+
+end; end
+
+if $0 == __FILE__
+  # Change listen port.
+  server = WSDL::Fault::AddPortTypeApp.new('app', nil, '0.0.0.0', 10080)
+  trap(:INT) do
+    server.shutdown
+  end
+  server.start
+end

data/test/wsdl/fault/fault.wsdl

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<definitions name="Add"
+  targetNamespace="http://fault.test/Faulttest"
+  xmlns:tns="http://fault.test/Faulttest"
+  xmlns="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
+
+<types>
+  <schema targetNamespace="http://fault.test/Faulttest"
+          xmlns="http://www.w3.org/2001/XMLSchema">
+
+    <element name="Add">
+      <complexType>
+        <sequence>
+          <element name="value" type="int"/>
+        </sequence>
+      </complexType>
+    </element>
+    <element name="AddResponse">
+      <complexType>
+        <sequence>
+          <element name="sum" type="int"/>
+        </sequence>
+      </complexType>
+    </element>
+
+    <element name="AddFault">
+      <complexType>
+        <sequence>
+          <element name="Reason" type="string"/>
+          <element name="Severity" type="string"/>
+        </sequence>
+      </complexType>
+    </element>
+
+  </schema>
+</types>
+
+<message name="AddMessage">
+  <part name="request" element="tns:Add"/>
+</message>
+<message name="AddResponseMessage">
+  <part name="response" element="tns:AddResponse"/>
+</message>
+<message name="AddFaultMessage">
+  <part name="fault" element="tns:AddFault"/>
+</message>
+
+<portType name="AddPortType">
+  <operation name="Add">
+    <input  name="Add" message="tns:AddMessage"/>
+    <output name="AddResponse" message="tns:AddResponseMessage"/>
+    <fault  name="AddFault" message="tns:AddFaultMessage"/>
+  </operation>
+</portType>
+
+  <binding name="AddSOAPBinding" type="tns:AddPortType">
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+    <operation name="Add">
+      <soap:operation soapAction="Add"/>
+      <input>
+        <soap:body use="literal"/>
+      </input>
+      <output>
+        <soap:body use="literal"/>
+      </output>
+      <fault name="AddFault">
+        <soap:fault name="AddFault"/>
+      </fault>
+    </operation>
+  </binding>
+
+  <service name="AddService">
+    <port name="AddPort" binding="tns:AddSOAPBinding">
+      <soap:address location="http://localhost:8080/"/>
+    </port>
+  </service>
+
+</definitions>

data/test/wsdl/fault/multifault.wsdl

@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<definitions name="Add"
+  targetNamespace="http://fault.test/Faulttest"
+  xmlns:tns="http://fault.test/Faulttest"
+  xmlns="http://schemas.xmlsoap.org/wsdl/"
+  xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
+
+<types>
+  <schema targetNamespace="http://fault.test/Faulttest"
+          xmlns="http://www.w3.org/2001/XMLSchema">
+
+    <element name="Add">
+      <complexType>
+        <sequence>
+          <element name="value" type="int"/>
+        </sequence>
+      </complexType>
+    </element>
+    <element name="AddResponse">
+      <complexType>
+        <sequence>
+          <element name="sum" type="int"/>
+        </sequence>
+      </complexType>
+    </element>
+
+    <element name="AddFault">
+      <complexType>
+        <sequence>
+          <element name="Reason" type="string"/>
+          <element name="Severity" type="string"/>
+        </sequence>
+      </complexType>
+    </element>
+
+    <element name="NegativeValueFault">
+      <complexType>
+        <sequence>
+          <element name="Reason" type="string"/>
+          <element name="Severity" type="string"/>
+        </sequence>
+      </complexType>
+    </element>
+
+  </schema>
+</types>
+
+<message name="AddMessage">
+  <part name="request" element="tns:Add"/>
+</message>
+<message name="AddResponseMessage">
+  <part name="response" element="tns:AddResponse"/>
+</message>
+<message name="AddFaultMessage">
+  <part name="fault" element="tns:AddFault"/>
+</message>
+<message name="NegativeValueFaultMessage">
+  <part name="fault" element="tns:NegativeValueFault"/>
+</message>
+
+
+<portType name="AddPortType">
+  <operation name="Add">
+    <input  name="Add" message="tns:AddMessage"/>
+    <output name="AddResponse" message="tns:AddResponseMessage"/>
+    <fault  name="AddFault" message="tns:AddFaultMessage"/>
+    <fault  name="NegativeValueFault" message="tns:NegativeValueFaultMessage"/>
+  </operation>
+</portType>
+
+  <binding name="AddSOAPBinding" type="tns:AddPortType">
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+    <operation name="Add">
+      <soap:operation soapAction="Add"/>
+      <input>
+        <soap:body use="literal"/>
+      </input>
+      <output>
+        <soap:body use="literal"/>
+      </output>
+      <fault name="AddFault">
+        <soap:fault name="AddFault"/>
+      </fault>
+      <fault name="NegativeValueFault">
+        <soap:fault name="NegativeValueFault"/>
+      </fault>
+    </operation>
+  </binding>
+
+  <service name="AddService">
+    <port name="AddPort" binding="tns:AddSOAPBinding">
+      <soap:address location="http://localhost:8080/"/>
+    </port>
+  </service>
+
+</definitions>

data/test/wsdl/fault/test_fault.rb

@@ -0,0 +1,119 @@
+require 'test/unit'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/wsdlDriver'
+require 'test_helper'
+
+
+module WSDL; module Fault
+
+
+class TestFault < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = TestUtil.get_free_port
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('Add.rb'))
+      File.unlink(pathname('AddMappingRegistry.rb'))
+      File.unlink(pathname('AddServant.rb'))
+      File.unlink(pathname('AddService.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    AddPortType.class_eval do
+      define_method(:add) do |request|
+        @sum ||= 0
+        if (request.value > 100)
+        fault = AddFault.new("Value #{request.value} is too large", "Critical")
+          raise fault
+        end
+        @sum += request.value
+        return AddResponse.new(@sum)
+      end
+    end
+    @server = AddPortTypeApp.new('app', nil, '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("fault.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['servant_skelton'] = nil
+    gen.opt['standalone_server_stub'] = nil
+    gen.opt['force'] = true
+    TestUtil.silent do
+      gen.run
+    end
+    TestUtil.require(DIR, "Add.rb", "AddMappingRegistry.rb", "AddServant.rb", "AddService.rb")
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_driver
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/")
+    @client.mapping_registry = AddMappingRegistry::EncodedRegistry
+    @client.literal_mapping_registry = AddMappingRegistry::LiteralRegistry
+    @client.add_document_operation(
+      "Add",
+      "add",
+      [ [:in, "request", ["::SOAP::SOAPElement", "http://fault.test/Faulttest", "Add"]],
+        [:out, "response", ["::SOAP::SOAPElement", "http://fault.test/Faulttest", "AddResponse"]] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal,
+        :faults => {"AddFault"=>{:namespace=>nil, :name=>"AddFault", :use=>"literal", :encodingstyle=>"document", :ns=>"http://fault.test/Faulttest"}} }
+    )
+    @client.wiredump_dev = STDOUT if $DEBUG
+    do_test(@client)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'fault.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.mapping_registry = AddMappingRegistry::EncodedRegistry
+    @client.literal_mapping_registry = AddMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+    do_test(@client)
+  end
+
+  def do_test(client)
+    assert_equal(100, client.add(Add.new(100)).sum)
+    assert_equal(100, client.add(Add.new(0)).sum)
+    assert_equal(150, client.add(Add.new(50)).sum)
+    begin
+      client.add(Add.new(101))
+      assert(false)
+    rescue Exception => e
+      assert_equal(::SOAP::FaultError, e.class)
+      assert_equal("WSDL::Fault::AddFault", e.faultstring.data)
+      assert_equal("Value 101 is too large", e.detail.addFault.reason)
+      assert_equal("Critical", e.detail.addFault.severity)
+    end
+  end
+end
+
+
+end; end

data/test/wsdl/fault/test_multifault.rb

@@ -0,0 +1,133 @@
+require 'test/unit'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/wsdlDriver'
+require 'test_helper'
+
+module WSDL; module Fault
+
+
+class TestMultiFault < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = TestUtil.get_free_port
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_server if @server
+    unless $DEBUG
+      File.unlink(pathname('Add.rb'))
+      File.unlink(pathname('AddMappingRegistry.rb'))
+      File.unlink(pathname('AddServant.rb'))
+      File.unlink(pathname('AddService.rb'))
+    end
+    @client.reset_stream if @client
+  end
+
+  def setup_server
+    AddPortType.class_eval do
+      define_method(:add) do |request|
+        @sum ||= 0
+        if (request.value > 100)
+          fault = AddFault.new("Value #{request.value} is too large", "Critical")
+          raise fault
+        end
+
+        if (request.value < 0)
+          fault = NegativeValueFault.new("Value #{request.value} is negative", "Fatal")
+          raise fault
+        end
+
+        @sum += request.value
+        return AddResponse.new(@sum)
+      end
+    end
+    @server = AddPortTypeApp.new('app', nil, '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("multifault.wsdl")
+    gen.basedir = DIR
+    gen.logger.level = Logger::FATAL
+    gen.opt['module_path'] = self.class.to_s.sub(/::[^:]+$/, '')
+    gen.opt['classdef'] = nil
+    gen.opt['mapping_registry'] = nil
+    gen.opt['servant_skelton'] = nil
+    gen.opt['standalone_server_stub'] = nil
+    gen.opt['force'] = true
+    TestUtil.silent do
+      gen.run
+    end
+    TestUtil.require(DIR, 'Add.rb', 'AddMappingRegistry.rb', 'AddServant.rb', 'AddService.rb')
+  end
+
+  def teardown_server
+    @server.shutdown
+    @server_thread.kill
+    @server_thread.join
+  end
+
+  def pathname(filename)
+    File.join(DIR, filename)
+  end
+
+  def test_driver
+    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/")
+    @client.mapping_registry = AddMappingRegistry::EncodedRegistry
+    @client.literal_mapping_registry = AddMappingRegistry::LiteralRegistry
+    @client.add_document_operation(
+      "Add",
+      "add",
+      [ [:in, "request", ["::SOAP::SOAPElement", "http://fault.test/Faulttest", "Add"]],
+        [:out, "response", ["::SOAP::SOAPElement", "http://fault.test/Faulttest", "AddResponse"]] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal,
+        :faults => {"AddFault"=>{:namespace=>nil, :name=>"AddFault", :use=>"literal", :encodingstyle=>"document", :ns=>"http://fault.test/Faulttest"}} }
+    )
+    @client.wiredump_dev = STDOUT if $DEBUG
+    do_test(@client)
+  end
+
+  def test_wsdl
+    wsdl = File.join(DIR, 'multifault.wsdl')
+    @client = ::SOAP::WSDLDriverFactory.new(wsdl).create_rpc_driver
+    @client.endpoint_url = "http://localhost:#{Port}/"
+    @client.mapping_registry = AddMappingRegistry::EncodedRegistry
+    @client.literal_mapping_registry = AddMappingRegistry::LiteralRegistry
+    @client.wiredump_dev = STDOUT if $DEBUG
+    do_test(@client)
+  end
+
+  def do_test(client)
+    assert_equal(100, client.add(Add.new(100)).sum)
+    assert_equal(100, client.add(Add.new(0)).sum)
+    assert_equal(150, client.add(Add.new(50)).sum)
+    begin
+      client.add(Add.new(101))
+      assert(false)
+    rescue Exception => e
+      assert_equal(::SOAP::FaultError, e.class)
+      assert_equal("WSDL::Fault::AddFault", e.faultstring.data)
+      assert_equal("Value 101 is too large", e.detail.addFault.reason)
+      assert_equal("Critical", e.detail.addFault.severity)
+    end
+    begin
+      client.add(Add.new(-50))
+      assert(false)
+    rescue Exception => e
+      assert_equal(::SOAP::FaultError, e.class)
+      assert_equal("WSDL::Fault::NegativeValueFault", e.faultstring.data)
+      assert_equal("Value -50 is negative", e.detail.negativeValueFault.reason)
+      assert_equal("Fatal", e.detail.negativeValueFault.severity)
+    end
+  end
+end
+
+
+end; end

data/test/wsdl/group/echo.rb

@@ -0,0 +1,58 @@
+require 'xsd/qname'
+
+module WSDL; module Group
+
+
+# {urn:grouptype}groupele_type
+#   comment - SOAP::SOAPString
+#   element - SOAP::SOAPString
+#   eletype - SOAP::SOAPString
+#   var - SOAP::SOAPString
+#   xmlattr_attr_min - SOAP::SOAPDecimal
+#   xmlattr_attr_max - SOAP::SOAPDecimal
+class Groupele_type
+  AttrAttr_max = XSD::QName.new(nil, "attr_max")
+  AttrAttr_min = XSD::QName.new(nil, "attr_min")
+
+  attr_accessor :comment
+  attr_reader :__xmlele_any
+  attr_accessor :element
+  attr_accessor :eletype
+  attr_accessor :var
+
+  def set_any(elements)
+    @__xmlele_any = elements
+  end
+
+  def __xmlattr
+    @__xmlattr ||= {}
+  end
+
+  def xmlattr_attr_min
+    __xmlattr[AttrAttr_min]
+  end
+
+  def xmlattr_attr_min=(value)
+    __xmlattr[AttrAttr_min] = value
+  end
+
+  def xmlattr_attr_max
+    __xmlattr[AttrAttr_max]
+  end
+
+  def xmlattr_attr_max=(value)
+    __xmlattr[AttrAttr_max] = value
+  end
+
+  def initialize(comment = nil, element = nil, eletype = nil, var = nil)
+    @comment = comment
+    @__xmlele_any = nil
+    @element = element
+    @eletype = eletype
+    @var = var
+    @__xmlattr = {}
+  end
+end
+
+
+end; end

data/test/wsdl/group/echoDriver.rb

@@ -0,0 +1,53 @@
+require 'echo.rb'
+require 'echoMappingRegistry.rb'
+require 'soap/rpc/driver'
+
+module WSDL
+module Group
+
+class Group_porttype < ::SOAP::RPC::Driver
+  DefaultEndpointUrl = "http://localhost:17171/"
+
+  Methods = [
+    [ "urn:group:echo",
+      "echo",
+      [ [:in, "parameters", ["::SOAP::SOAPElement", "urn:grouptype", "groupele"]],
+        [:out, "parameters", ["::SOAP::SOAPElement", "urn:grouptype", "groupele"]] ],
+      { :request_style =>  :document, :request_use =>  :literal,
+        :response_style => :document, :response_use => :literal,
+        :faults => {} }
+    ]
+  ]
+
+  def initialize(endpoint_url = nil)
+    endpoint_url ||= DefaultEndpointUrl
+    super(endpoint_url, nil)
+    self.mapping_registry = EchoMappingRegistry::EncodedRegistry
+    self.literal_mapping_registry = EchoMappingRegistry::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
+
+
+end
+end