soap4r 1.5.5.20061022

data/test/soap/test_custommap.rb

@@ -0,0 +1,108 @@
+require 'test/unit'
+require 'soap/marshal'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+
+
+module SOAP
+
+
+class TestMap < Test::Unit::TestCase
+
+  class CustomHashFactory < SOAP::Mapping::Factory
+    def initialize(itemname)
+      @itemname = itemname
+    end
+
+    def obj2soap(soap_class, obj, info, map)
+      soap_obj = SOAP::SOAPStruct.new(SOAP::Mapping::MapQName)
+      mark_marshalled_obj(obj, soap_obj)
+      obj.each do |key, value|
+        elem = SOAP::SOAPStruct.new
+        elem.add('key', Mapping._obj2soap(key, map))
+        elem.add('value', Mapping._obj2soap(value, map))
+        soap_obj.add(@itemname, elem)
+      end
+      soap_obj
+    end
+
+    def soap2obj(obj_class, node, info, map)
+      false
+    end
+  end
+
+  Map = SOAP::Mapping::Registry.new
+  Map.add(Hash, SOAP::SOAPStruct, CustomHashFactory.new('customname'))
+
+  Port = 17171
+
+  class MapServer < SOAP::RPC::StandaloneServer
+    def initialize(*arg)
+      super
+      add_rpc_method(self, 'echo', 'map')
+      add_rpc_method(self, 'setmap')
+    end
+
+    def echo(map)
+      map
+    end
+
+    def setmap
+      self.mapping_registry = Map
+      nil
+    end
+  end
+
+  def setup
+    @server = MapServer.new(self.class.name, nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      @server.start
+    }
+    @endpoint = "http://localhost:#{Port}/"
+    @client = SOAP::RPC::Driver.new(@endpoint)
+    @client.add_rpc_method('echo', 'map')
+    @client.add_rpc_method('setmap')
+    @client.wiredump_dev = STDOUT if $DEBUG
+  end
+
+  def teardown
+    @server.shutdown
+    @t.kill
+    @t.join
+    @client.reset_stream
+  end
+
+  def test_map
+    h = {'a' => 1, 'b' => 2}
+    soap = SOAP::Marshal.marshal(h)
+    puts soap if $DEBUG
+    obj = SOAP::Marshal.unmarshal(soap)
+    assert_equal(h, obj)
+    #
+    soap = SOAP::Marshal.marshal(h, Map)
+    puts soap if $DEBUG
+    obj = SOAP::Marshal.unmarshal(soap, Map)
+    assert_equal(h, obj)
+  end
+
+  def test_rpc
+    h = {'a' => 1, 'b' => 2}
+    @client.wiredump_dev = str = ''
+    assert_equal(h, @client.echo(h))
+    assert_equal(0, str.scan(/customname/).size)
+    #
+    @client.setmap
+    @client.wiredump_dev = str = ''
+    assert_equal(h, @client.echo(h))
+    assert_equal(4, str.scan(/customname/).size)
+    #
+    @client.mapping_registry = Map
+    @client.wiredump_dev = str = ''
+    assert_equal(h, @client.echo(h))
+    assert_equal(8, str.scan(/customname/).size)
+  end
+end
+
+
+end

data/test/soap/test_empty.rb

@@ -0,0 +1,79 @@
+require 'test/unit'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+
+
+module SOAP
+
+
+class TestEmpty < Test::Unit::TestCase
+  Port = 17171
+
+  class NopServer < SOAP::RPC::StandaloneServer
+    def initialize(*arg)
+      super
+      add_document_method(self, 'urn:empty:nop',  'nop', [], [])
+      add_document_method(self, 'urn:empty:nop',  'nop_nil', nil, nil)
+    end
+
+    def nop
+      [1, 2, 3] # ignored
+    end
+
+    def nop_nil
+      [1, 2, 3] # ignored
+    end
+  end
+
+  def setup
+    @server = NopServer.new(self.class.name, nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      @server.start
+    }
+    @endpoint = "http://localhost:#{Port}/"
+    @client = SOAP::RPC::Driver.new(@endpoint)
+    @client.add_document_method('nop', 'urn:empty:nop', [], [])
+    @client.add_document_method('nop_nil', 'urn:empty:nop', nil, nil)
+  end
+
+  def teardown
+    @server.shutdown
+    @t.kill
+    @t.join
+    @client.reset_stream
+  end
+
+  EMPTY_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+  </env:Body>
+</env:Envelope>]
+
+  def test_nop
+    @client.wiredump_dev = str = ''
+    @client.nop
+    assert_equal(EMPTY_XML, parse_requestxml(str))
+    assert_equal(EMPTY_XML, parse_responsexml(str))
+  end
+
+  def test_nop_nil
+    @client.wiredump_dev = str = ''
+    @client.nop_nil
+    assert_equal(EMPTY_XML, parse_requestxml(str))
+    assert_equal(EMPTY_XML, parse_responsexml(str))
+  end
+
+  def parse_requestxml(str)
+    str.split(/\r?\n\r?\n/)[3]
+  end
+
+  def parse_responsexml(str)
+    str.split(/\r?\n\r?\n/)[6]
+  end
+end
+
+
+end

data/test/soap/test_envelopenamespace.rb

@@ -0,0 +1,92 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'webrick'
+require 'logger'
+
+
+module SOAP
+
+
+class TestEnvelopeNamespace < Test::Unit::TestCase
+  Port = 17171
+  TemporaryNamespace = 'urn:foo'
+
+  def setup
+    @logger = Logger.new(STDERR)
+    @logger.level = Logger::Severity::ERROR
+    @url = "http://localhost:#{Port}/"
+    @server = @client = nil
+    @server_thread = nil
+    setup_server
+    setup_client
+  end
+
+  def teardown
+    teardown_client
+    teardown_server
+  end
+
+  def setup_server
+    @server = WEBrick::HTTPServer.new(
+      :BindAddress => "0.0.0.0",
+      :Logger => @logger,
+      :Port => Port,
+      :AccessLog => [],
+      :DocumentRoot => File.dirname(File.expand_path(__FILE__))
+    )
+    @server.mount(
+      '/',
+      WEBrick::HTTPServlet::ProcHandler.new(method(:do_server_proc).to_proc)
+    )
+    @server_thread = start_server_thread(@server)
+  end
+
+  def setup_client
+    @client = SOAP::RPC::Driver.new(@url, '')
+    @client.add_method("do_server_proc")
+  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 do_server_proc(req, res)
+    res['content-type'] = 'text/xml'
+    res.body = <<__EOX__
+<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:env="#{TemporaryNamespace}">
+  <env:Body>
+    <n1:do_server_proc xmlns:n1="urn:foo" env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <return>hello world</return>
+    </n1:do_server_proc>
+  </env:Body>
+</env:Envelope>
+__EOX__
+  end
+
+  def test_normal
+    assert_raise(SOAP::ResponseFormatError) do
+      @client.do_server_proc
+    end
+    @client.options["soap.envelope.requestnamespace"] = TemporaryNamespace
+    @client.options["soap.envelope.responsenamespace"] = TemporaryNamespace
+    assert_equal('hello world', @client.do_server_proc)
+  end
+end
+
+
+end

data/test/soap/test_httpconfigloader.rb

@@ -0,0 +1,39 @@
+require 'test/unit'
+require 'soap/httpconfigloader'
+require 'soap/rpc/driver'
+
+if defined?(HTTPAccess2)
+
+module SOAP
+
+
+class TestHTTPConfigLoader < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  def setup
+    @client = SOAP::RPC::Driver.new(nil, nil)
+  end
+
+  def test_property
+    testpropertyname = File.join(DIR, 'soapclient.properties')
+    File.open(testpropertyname, "w") do |f|
+      f <<<<__EOP__
+protocol.http.ssl_config.verify_mode = OpenSSL::SSL::VERIFY_PEER
+# depth: 1 causes an error (intentional)
+protocol.http.ssl_config.verify_depth = 1
+protocol.http.ssl_config.ciphers = ALL
+__EOP__
+    end
+    begin
+      @client.loadproperty(testpropertyname)
+      assert_equal('ALL', @client.options['protocol.http.ssl_config.ciphers'])
+    ensure
+      File.unlink(testpropertyname)
+    end
+  end
+end
+
+
+end
+
+end

data/test/soap/test_mapping.rb

@@ -0,0 +1,59 @@
+require 'test/unit'
+require 'soap/mapping'
+
+
+module SOAP
+
+
+class TestMapping < Test::Unit::TestCase
+  def test_date
+    targets = [
+      ["2002-12-31",
+	"2002-12-31Z"],
+      ["2002-12-31+00:00",
+	"2002-12-31Z"],
+      ["2002-12-31-00:00",
+	"2002-12-31Z"],
+      ["-2002-12-31",
+	"-2002-12-31Z"],
+      ["-2002-12-31+00:00",
+	"-2002-12-31Z"],
+      ["-2002-12-31-00:00",
+	"-2002-12-31Z"],
+    ]
+    targets.each do |str, expectec|
+      d = Date.parse(str)
+      assert_equal(d.class, convert(d).class)
+      assert_equal(d, convert(d))
+    end
+  end
+
+  def test_datetime
+    targets = [
+      ["2002-12-31T23:59:59.00",
+	"2002-12-31T23:59:59Z"],
+      ["2002-12-31T23:59:59+00:00",
+	"2002-12-31T23:59:59Z"],
+      ["2002-12-31T23:59:59-00:00",
+	"2002-12-31T23:59:59Z"],
+      ["-2002-12-31T23:59:59.00",
+	"-2002-12-31T23:59:59Z"],
+      ["-2002-12-31T23:59:59+00:00",
+	"-2002-12-31T23:59:59Z"],
+      ["-2002-12-31T23:59:59-00:00",
+	"-2002-12-31T23:59:59Z"],
+    ]
+    targets.each do |str, expectec|
+      d = DateTime.parse(str)
+      assert_equal(d.class, convert(d).class)
+      assert_equal(d, convert(d))
+    end
+  end
+
+  def convert(obj)
+    SOAP::Mapping.soap2obj(SOAP::Mapping.obj2soap(obj))
+  end
+end
+
+
+end

data/test/soap/test_no_indent.rb

@@ -0,0 +1,86 @@
+require 'test/unit'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+
+if defined?(HTTPAccess2)
+
+module SOAP
+
+
+class TestNoIndent < Test::Unit::TestCase
+  Port = 17171
+
+  class NopServer < SOAP::RPC::StandaloneServer
+    def initialize(*arg)
+      super
+      add_rpc_method(self, 'nop')
+    end
+
+    def nop
+      SOAP::RPC::SOAPVoid.new
+    end
+  end
+
+  def setup
+    @server = NopServer.new(self.class.name, nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      @server.start
+    }
+    @endpoint = "http://localhost:#{Port}/"
+    @client = SOAP::RPC::Driver.new(@endpoint)
+    @client.add_rpc_method('nop')
+  end
+
+  def teardown
+    @server.shutdown
+    @t.kill
+    @t.join
+    @client.reset_stream
+  end
+
+  INDENT_XML =
+%q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <env:Body>
+    <nop env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+    </nop>
+  </env:Body>
+</env:Envelope>]
+
+  NO_INDENT_XML =
+%q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+<env:Body>
+<nop env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+</nop>
+</env:Body>
+</env:Envelope>]
+
+  def test_indent
+    @client.wiredump_dev = str = ''
+    @client.options["soap.envelope.no_indent"] = false
+    @client.nop
+    assert_equal(INDENT_XML, parse_requestxml(str))
+  end
+
+  def test_no_indent
+    @client.wiredump_dev = str = ''
+    @client.options["soap.envelope.no_indent"] = true
+    @client.nop
+    assert_equal(NO_INDENT_XML, parse_requestxml(str))
+  end
+
+  def parse_requestxml(str)
+    str.split(/\r?\n\r?\n/)[3]
+  end
+end
+
+
+end
+
+end