soap4r 1.5.5.20061022 → 1.5.6

data/test/wsdl/fault/test_fault.rb

@@ -0,0 +1,119 @@
+require 'test/unit'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL; module Fault
+
+
+class TestFault < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = 17171
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_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,134 @@
+require 'test/unit'
+require 'wsdl/soap/wsdl2ruby'
+require 'soap/wsdlDriver'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
+
+
+module WSDL; module Fault
+
+
+class TestMultiFault < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+  Port = 17171
+
+  def setup
+    setup_classdef
+    setup_server
+    @client = nil
+  end
+
+  def teardown
+    teardown_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/list/test_list.rb

@@ -3,6 +3,7 @@ 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 List
@@ -40,6 +41,7 @@ class TestList < Test::Unit::TestCase
   def teardown
     teardown_server
     File.unlink(pathname('list.rb')) unless $DEBUG
+    File.unlink(pathname('listMappingRegistry.rb')) unless $DEBUG
     File.unlink(pathname('listDriver.rb')) unless $DEBUG
     @client.reset_stream if @client
   end
@@ -47,7 +49,7 @@ class TestList < Test::Unit::TestCase
   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)
+    @server_thread = TestUtil.start_server_thread(@server)
   end
 
   def setup_classdef
@@ -55,17 +57,13 @@ class TestList < Test::Unit::TestCase
     gen.location = pathname("list.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['driver'] = nil
     gen.opt['force'] = true
     gen.run
-    back = $:.dup
-    begin
-      $:.unshift(pathname('.'))
-      require pathname('listDriver')
-    ensure
-      $:.replace(back)
-    end
+    TestUtil.require(DIR, 'listDriver.rb', 'listMappingRegistry.rb', 'list.rb')
   end
 
   def teardown_server
@@ -74,14 +72,6 @@ class TestList < Test::Unit::TestCase
     @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

data/test/wsdl/marshal/test_wsdlmarshal.rb

@@ -3,10 +3,10 @@ require 'wsdl/parser'
 require 'soap/mapping/wsdlencodedregistry'
 require 'soap/marshal'
 require 'wsdl/soap/wsdl2ruby'
+require File.join(File.dirname(File.expand_path(__FILE__)), '..', '..', 'testutil.rb')
 
-class WSDLMarshaller
-  include SOAP
 
+class WSDLMarshaller
   def initialize(wsdlfile)
     wsdl = WSDL::Parser.new.parse(File.open(wsdlfile) { |f| f.read })
     types = wsdl.collect_complextypes
@@ -15,18 +15,18 @@ class WSDLMarshaller
       :generate_explicit_type => false,
       :pretty => true
     }
-    @mapping_registry = Mapping::WSDLEncodedRegistry.new(types)
+    @mapping_registry = ::SOAP::Mapping::WSDLEncodedRegistry.new(types)
   end
 
   def dump(obj, io = nil)
-    ele =  Mapping.obj2soap(obj, @mapping_registry)
-    ele.elename = ele.type
-    Processor.marshal(SOAPEnvelope.new(nil, SOAPBody.new(ele)), @opt, io)
+    ele = ::SOAP::Mapping.obj2soap(obj, @mapping_registry)
+    ele.elename = XSD::QName.new(nil, ele.type.name.to_s)
+    ::SOAP::Processor.marshal(::SOAP::SOAPEnvelope.new(nil, ::SOAP::SOAPBody.new(ele)), @opt, io)
   end
 
   def load(io)
-    header, body = Processor.unmarshal(io, @opt)
-    Mapping.soap2obj(body.root_node)
+    header, body = ::SOAP::Processor.unmarshal(io, @opt)
+    ::SOAP::Mapping.soap2obj(body.root_node, @mapping_registry)
   end
 end
 
@@ -48,6 +48,7 @@ class TestWSDLMarshal < Test::Unit::TestCase
     marshaller = WSDLMarshaller.new(pathname('person.wsdl'))
     obj = Person.new("NAKAMURA", "Hiroshi", 1, 1.0,  "1")
     str = marshaller.dump(obj)
+    puts str if $DEBUG
     obj2 = marshaller.load(str)
     assert_equal(obj, obj2)
     assert_equal(str, marshaller.dump(obj2))
@@ -66,11 +67,7 @@ class TestWSDLMarshal < Test::Unit::TestCase
   end
 
   def compare(expected, actual)
-    assert_equal(loadfile(expected), loadfile(actual), actual)
-  end
-
-  def loadfile(file)
-    File.open(pathname(file)) { |f| f.read }
+    TestUtil.filecompare(pathname(expected), pathname(actual))
   end
 
   def pathname(filename)

data/test/wsdl/oneway/oneway.wsdl

@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<definitions name="oneway" targetNamespace="http://www.example.com/oneway" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="http://www.example.com/oneway" xmlns:plnk="http://schemas.xmlsoap.org/ws/2003/05/partner-link/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:client="http://www.example.com/oneway">
+  <types>
+    <schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://www.example.com/oneway" xmlns="http://www.w3.org/2001/XMLSchema">
+      <element name="onewayProcessRequest">
+        <complexType>
+          <sequence>
+            <element name="msg" type="string" nillable="true" />
+          </sequence>
+        </complexType>
+      </element>
+    </schema>
+  </types>
+  <message name="onewayRequestMessage">
+    <part name="payload" element="tns:onewayProcessRequest"/>
+  </message>
+  <portType name="onewayPort">
+    <operation name="initiate">
+      <input message="tns:onewayRequestMessage"/>
+    </operation>
+  </portType>
+  <binding name="onewayBinding" type="tns:onewayPort">
+    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+    <operation name="initiate">
+      <soap:operation style="document" soapAction="initiate"/>
+      <input>
+        <soap:body use="literal"/>
+      </input>
+    </operation>
+  </binding>
+  <service name="onewayService">
+    <port name="onewayPort" binding="tns:onewayBinding">
+      <soap:address location="http://localhost:1234/soap"/>
+    </port>
+  </service>
+</definitions>

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
+    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