rtiss_soap4r 2.1.0 → 3.0.0.beta

data/test/soap/test_cookie.rb

@@ -0,0 +1,111 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'webrick'
+require 'logger'
+require 'test_helper'
+
+module SOAP
+
+  class TestCookie < Test::Unit::TestCase
+    Port = TestUtil.get_free_port
+
+    class CookieFilter < SOAP::Filter::StreamHandler
+      attr_accessor :cookie_value
+
+      def initialize
+        @cookie_value = nil
+      end
+
+      def on_http_outbound(req)
+        if @cookie_value
+          req.header.delete('Cookie')
+          req.header['Cookie'] = @cookie_value
+        end
+      end
+
+      def on_http_inbound(req, res)
+        # this sample filter only caputures the first cookie.
+        cookie = res.header['Set-Cookie'][0]
+        cookie.sub!(/;.*\z/, '') if cookie
+        @cookie_value = cookie
+        # do not save cookie value.
+      end
+    end
+
+    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 if @client
+      teardown_server if @server
+      sleep 0.5  # Allow OS to release port
+    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 = TestUtil.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 do_server_proc(req, res)
+      cookie = req['Cookie'].to_s
+      cookie = "var=hello world" if cookie.empty?
+      res['content-type'] = 'text/xml'
+      res['Set-Cookie'] = cookie
+      res.body = <<__EOX__
+<?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>
+    <n1:do_server_proc xmlns:n1="urn:foo" env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <return xsi:nil="true"/>
+    </n1:do_server_proc>
+  </env:Body>
+</env:Envelope>
+__EOX__
+    end
+
+    def test_normal
+      @client.wiredump_dev = STDOUT if $DEBUG
+      filter = CookieFilter.new
+      @client.streamhandler.filterchain << filter
+      assert_nil(@client.do_server_proc)
+      assert_equal('var=hello world', filter.cookie_value)
+      filter.cookie_value = 'var=empty'
+      assert_nil(@client.do_server_proc)
+      assert_equal('var=empty', filter.cookie_value)
+    end
+  end
+
+
+end

data/test/soap/test_custom_ns.rb

@@ -0,0 +1,105 @@
+require 'test/unit'
+require 'soap/processor'
+
+
+module SOAP
+
+
+class TestCustomNs < Test::Unit::TestCase
+  NORMAL_XML = <<__XML__.chomp
+<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <env:Header>
+      <n1:headeritem xmlns:n1="my:foo">hi</n1:headeritem>
+  </env:Header>
+  <env:Body>
+    <n2:test xmlns:n2="my:foo"
+        xmlns:n3="my:bar"
+        n3:baz="qux">bi</n2:test>
+  </env:Body>
+</env:Envelope>
+__XML__
+
+  CUSTOM_NS_XML = <<__XML__.chomp
+<?xml version="1.0" encoding="utf-8" ?>
+<ENV:Envelope xmlns:ENV="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:myns="my:foo"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <ENV:Header>
+      <myns:headeritem>hi</myns:headeritem>
+  </ENV:Header>
+  <ENV:Body>
+    <myns:test xmlns:bar="my:bar"
+        bar:baz="qux">bi</myns:test>
+  </ENV:Body>
+</ENV:Envelope>
+__XML__
+
+  XML_WITH_DEFAULT_NS = <<__XML__.chomp
+<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <env:Header>
+      <headeritem xmlns="my:foo">hi</headeritem>
+  </env:Header>
+  <env:Body>
+    <test xmlns="my:foo"
+        xmlns:n1="my:bar"
+        n1:baz="qux"
+        xmlns:n2="my:foo"
+        n2:quxx="quxxx">bi</test>
+  </env:Body>
+</env:Envelope>
+__XML__
+
+  def test_custom_ns
+    # create test env
+    header = SOAP::SOAPHeader.new()
+    hi = SOAP::SOAPElement.new(XSD::QName.new("my:foo", "headeritem"), 'hi')
+    header.add("test", hi)
+    body = SOAP::SOAPBody.new()
+    bi = SOAP::SOAPElement.new(XSD::QName.new("my:foo", "bodyitem"), 'bi')
+    bi.extraattr[XSD::QName.new('my:bar', 'baz')] = 'qux'
+    body.add("test", bi)
+    env = SOAP::SOAPEnvelope.new(header, body)
+    # normal
+    opt = {}
+    result = SOAP::Processor.marshal(env, opt)
+    assert_equal(NORMAL_XML, result)
+    # Envelope ns customize
+    env = SOAP::SOAPEnvelope.new(header, body)
+    ns = XSD::NS.new
+    ns.assign(SOAP::EnvelopeNamespace, 'ENV')
+    ns.assign('my:foo', 'myns')
+    # tag customize
+    tag = XSD::NS.new
+    tag.assign('my:bar', 'bar')
+    opt = { :default_ns => ns, :default_ns_tag => tag }
+    result = SOAP::Processor.marshal(env, opt)
+    assert_equal(CUSTOM_NS_XML, result)
+  end
+
+  def test_default_namespace
+    # create test env
+    header = SOAP::SOAPHeader.new()
+    hi = SOAP::SOAPElement.new(XSD::QName.new("my:foo", "headeritem"), 'hi')
+    header.add("test", hi)
+    body = SOAP::SOAPBody.new()
+    bi = SOAP::SOAPElement.new(XSD::QName.new("my:foo", "bodyitem"), 'bi')
+    bi.extraattr[XSD::QName.new('my:bar', 'baz')] = 'qux'
+    bi.extraattr[XSD::QName.new('my:foo', 'quxx')] = 'quxxx'
+    body.add("test", bi)
+    env = SOAP::SOAPEnvelope.new(header, body)
+    # normal
+    opt = {:use_default_namespace => true}
+    result = SOAP::Processor.marshal(env, opt)
+    assert_equal(XML_WITH_DEFAULT_NS, result)
+  end
+end
+
+
+end

data/test/soap/test_custommap.rb

@@ -0,0 +1,110 @@
+require 'test/unit'
+require 'soap/marshal'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+require 'test_helper'
+
+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 = TestUtil.get_free_port
+
+  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 if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @client.reset_stream if @client
+  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,105 @@
+require 'test/unit'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+require 'soap/header/handler'
+require 'test_helper'
+
+module SOAP
+
+
+class TestEmpty < Test::Unit::TestCase
+  Port = TestUtil.get_free_port
+
+  class EmptyHeaderHandler < SOAP::Header::Handler
+    def on_outbound(header)
+      # dump Header even if no header item given.
+      header.force_encode = true
+      # no additional header item
+      nil
+    end
+  end
+
+  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 if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @client.reset_stream if @client
+  end
+
+  EMPTY_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <env:Body></env:Body>
+</env:Envelope>]
+
+  EMPTY_HEADER_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <env:Header></env:Header>
+  <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 test_empty_header
+    @client.headerhandler << EmptyHeaderHandler.new(nil)
+    @client.wiredump_dev = str = ''
+    @client.nop
+    assert_equal(EMPTY_HEADER_XML, parse_requestxml(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,84 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'webrick'
+require 'logger'
+require 'test_helper'
+
+module SOAP
+
+  class TestEnvelopeNamespace < Test::Unit::TestCase
+    Port = TestUtil.get_free_port
+    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 if @client
+      teardown_server if @server
+      sleep 0.5  # Allow OS to release port
+    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 = TestUtil.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 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_extraattr.rb

@@ -0,0 +1,54 @@
+require 'test/unit'
+require 'soap/processor'
+
+
+module SOAP
+
+
+class TestExtrAttr < Test::Unit::TestCase
+
+  HEADER_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope Id="extraattr"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/">
+  <env:Header Id="extraattr">
+      <n1:headeritem xmlns:n1="my:foo"
+          Id="extraattr"></n1:headeritem>
+  </env:Header>
+  <env:Body Id="extraattr&lt;&gt;">
+    <n2:test xmlns:n2="my:foo"
+        Id="extraattr"></n2:test>
+  </env:Body>
+</env:Envelope>]
+
+  def test_extraattr
+    header = SOAP::SOAPHeader.new()
+    header.extraattr["Id"] = "extraattr"
+    hi = SOAP::SOAPElement.new(XSD::QName.new("my:foo", "headeritem"))
+    hi.extraattr["Id"] = "extraattr"
+    header.add("test", hi)
+    body = SOAP::SOAPBody.new()
+    body.extraattr["Id"] = "extraattr<>"
+    bi = SOAP::SOAPElement.new(XSD::QName.new("my:foo", "bodyitem"))
+    bi.extraattr["Id"] = "extraattr"
+    body.add("test", bi)
+    env = SOAP::SOAPEnvelope.new(header, body)
+    env.extraattr["Id"] = "extraattr"
+    g = SOAP::Generator.new()
+    xml = g.generate(env)
+    assert_equal(HEADER_XML, xml)
+    #
+    parser = SOAP::Parser.new
+    env = parser.parse(xml)
+    header = env.header
+    body = env.body
+    assert_equal("extraattr", env.extraattr[XSD::QName.new(nil, "Id")])
+    assert_equal("extraattr", header.extraattr[XSD::QName.new(nil, "Id")])
+    assert_equal("extraattr<>", body.extraattr[XSD::QName.new(nil, "Id")])
+    assert_equal("extraattr", header["headeritem"].element.extraattr[XSD::QName.new(nil, "Id")])
+  end
+end
+
+
+end

data/test/soap/test_generator.rb

@@ -0,0 +1,27 @@
+require 'test/unit'
+require 'soap/processor'
+
+
+module SOAP
+
+
+class TestGenerator < Test::Unit::TestCase
+  # based on #417, reported by Kou.
+  def test_encode
+    str = "\343\201\217<"
+    g = SOAP::Generator.new
+    g.generate(SOAPElement.new('foo'))
+    assert_equal("&lt;", g.encode_string(str)[-4, 4])
+    #
+    begin
+      kc_backup = $KCODE.dup
+      $KCODE = 'EUC-JP'
+      assert_equal("&lt;", g.encode_string(str)[-4, 4])
+    ensure
+      $KCODE = kc_backup
+    end
+  end
+end
+
+
+end

data/test/soap/test_httpconfigloader.rb

@@ -0,0 +1,71 @@
+require 'test/unit'
+require 'soap/httpconfigloader'
+require 'soap/rpc/driver'
+
+if defined?(HTTPClient)
+
+module SOAP
+
+
+class TestHTTPConfigLoader < Test::Unit::TestCase
+  DIR = File.dirname(File.expand_path(__FILE__))
+
+  def setup
+    @client = SOAP::RPC::Driver.new(nil, nil)
+  end
+
+  class Request
+    class Header
+      attr_reader :request_uri
+      def initialize(request_uri)
+        @request_uri = request_uri
+      end
+    end
+
+    attr_reader :header
+    def initialize(request_uri)
+      @header = Header.new(request_uri)
+    end
+  end
+
+  def test_property
+    testpropertyname = File.join(DIR, 'soapclient.properties')
+    File.open(testpropertyname, "w") do |f|
+      f <<<<__EOP__
+protocol.http.proxy = http://myproxy:8080
+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
+protocol.http.basic_auth.1.url = http://www.example.com/foo1/
+protocol.http.basic_auth.1.userid = user1
+protocol.http.basic_auth.1.password = password1
+protocol.http.basic_auth.2.url = http://www.example.com/foo2/
+protocol.http.basic_auth.2.userid = user2
+protocol.http.basic_auth.2.password = password2
+__EOP__
+    end
+    begin
+      @client.loadproperty(testpropertyname)
+      assert_equal('ALL', @client.options['protocol.http.ssl_config.ciphers'])
+      @client.options['protocol.http.basic_auth'] <<
+        ['http://www.example.com/foo3/', 'user3', 'password3']
+      h = @client.streamhandler.client
+      basic_auth = h.www_auth.basic_auth
+      cred1 = ["user1:password1"].pack('m').tr("\n", '')
+      cred2 = ["user2:password2"].pack('m').tr("\n", '')
+      cred3 = ["user3:password3"].pack('m').tr("\n", '')
+      basic_auth.challenge(URI.parse("http://www.example.com/"), nil)
+      assert_equal(cred1, basic_auth.get(Request.new(URI.parse("http://www.example.com/foo1/baz"))))
+      assert_equal(cred2, basic_auth.get(Request.new(URI.parse("http://www.example.com/foo2/"))))
+      assert_equal(cred3, basic_auth.get(Request.new(URI.parse("http://www.example.com/foo3/baz/qux"))))
+    ensure
+      File.unlink(testpropertyname)
+    end
+  end
+end
+
+
+end
+
+end