soap4r-sgonyea 1.5.9

data/test/soap/test_extraattr.rb

@@ -0,0 +1,55 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/processor'
+
+
+module SOAP
+
+
+class TestExtrAttr < Test::Unit::TestCase
+
+  HEADER_XML = %q[<?xml version="1.0" encoding="utf-8" ?>
+<env:Envelope xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    Id="extraattr"
+    xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <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_xml_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,32 @@
+# encoding: ASCII-8BIT
+require 'helper'
+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])
+    #
+    if RUBY_VERSION.to_f >= 1.9
+      assert_equal("&lt;", g.encode_string(str)[-4, 4])
+    else
+      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
+
+
+end

data/test/soap/test_httpconfigloader.rb

@@ -0,0 +1,72 @@
+# encoding: ASCII-8BIT
+require 'helper'
+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

data/test/soap/test_mapping.rb

@@ -0,0 +1,132 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/mapping'
+require 'soap/marshal'
+
+
+module SOAP
+
+
+class TestMapping < Test::Unit::TestCase
+
+  class MappablePerson
+    attr_reader :name
+    attr_reader :age
+
+    def initialize(name, age)
+      @name, @age = name, age
+    end
+
+    def self.soap_marshallable
+      true
+    end
+  end
+
+  class UnmappablePerson
+    attr_reader :name
+    attr_reader :age
+
+    def initialize(name, age)
+      @name, @age = name, age
+    end
+
+    def self.soap_marshallable
+      false
+    end
+  end
+
+  def test_mappable
+    xml = <<__XML__
+<?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>
+    <SOAP..TestMapping..MappablePerson env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <name>nahi</name>
+      <age>37</age>
+    </SOAP..TestMapping..MappablePerson>
+  </env:Body>
+</env:Envelope>
+__XML__
+    obj = SOAP::Marshal.load(xml)
+    assert_equal(SOAP::TestMapping::MappablePerson, obj.class)
+    #
+    xml = <<__XML__
+<?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>
+    <SOAP..TestMapping..UnmappablePerson env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <name>nahi</name>
+      <age>37</age>
+    </SOAP..TestMapping..UnmappablePerson>
+  </env:Body>
+</env:Envelope>
+__XML__
+    obj = SOAP::Marshal.load(xml)
+    assert_equal(SOAP::Mapping::Object, obj.class)
+  end
+
+  def test_nestedexception
+    ele = Thread.new {}
+    obj = [ele]
+    begin
+      SOAP::Marshal.dump(obj)
+    rescue ::SOAP::Mapping::MappingError => e
+      assert(e.backtrace.find { |line| /\[NESTED\]/ =~ line })
+    end
+  end
+
+  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_nestedexception.rb

@@ -0,0 +1,71 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/soap'
+
+
+module SOAP
+
+
+class TestNestedException < Test::Unit::TestCase
+  class MyError < SOAP::Error; end
+
+  def foo
+    begin
+      bar
+    rescue
+      raise MyError.new("foo", $!)
+    end
+  end
+
+  def bar
+    begin
+      baz
+    rescue
+      raise MyError.new("bar", $!)
+    end
+  end
+
+  def baz
+    raise MyError.new("baz", $!)
+  end
+
+  def test_nestedexception
+    begin
+      foo
+    rescue MyError => e
+      trace = e.backtrace.find_all { |line| /test\/unit/ !~ line && /\d\z/ !~ line }
+      trace = trace.map { |line| line.sub(/\A[^:]*/, '') }
+      assert_equal(TOBE, trace)
+    end
+  end
+
+  if (RUBY_VERSION.to_f >= 1.9)
+    TOBE = [
+      ":16:in `rescue in foo'",
+      ":13:in `foo'",
+      ":34:in `test_nestedexception'",
+      ":24:in `rescue in bar': bar (SOAP::TestNestedException::MyError) [NESTED]",
+      ":21:in `bar'",
+      ":14:in `foo'",
+      ":34:in `test_nestedexception'",
+      ":29:in `baz': baz (SOAP::TestNestedException::MyError) [NESTED]",
+      ":22:in `bar'",
+      ":14:in `foo'",
+      ":34:in `test_nestedexception'"
+    ]  
+  else
+    TOBE = [
+      ":16:in `foo'",
+      ":34:in `test_nestedexception'",
+      ":24:in `bar': bar (SOAP::TestNestedException::MyError) [NESTED]",
+      ":14:in `foo'",
+      ":34:in `test_nestedexception'",
+      ":29:in `baz': baz (SOAP::TestNestedException::MyError) [NESTED]",
+      ":22:in `bar'",
+      ":14:in `foo'",
+      ":34:in `test_nestedexception'",
+    ]
+  end
+end
+
+end

data/test/soap/test_nil.rb

@@ -0,0 +1,71 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+require 'soap/header/handler'
+
+
+module SOAP
+
+
+class TestNil < Test::Unit::TestCase
+  Port = 17171
+
+  class NilServer < SOAP::RPC::StandaloneServer
+    def initialize(*arg)
+      super
+      add_method(self, 'nop')
+    end
+
+    def nop
+      1
+    end
+  end
+
+  def setup
+    @server = NilServer.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 if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @client.reset_stream if @client
+  end
+
+  require 'rexml/document'
+  # emulates SOAP::Lite's nil request
+
+#  def test_soaplite_nil
+#    body = SOAP::SOAPBody.new(REXML::Document.new(<<-__XML__))
+#      <nop xsi:nil="true"/>
+#    __XML__
+#    @client.wiredump_dev = STDOUT if $DEBUG
+#    header, body = @client.invoke(nil, body)
+#    assert_equal(1, body.root_node["return"].data)
+#  end
+
+  def test_soaplite_nil
+    body = SOAP::SOAPBody.new(REXML::Document.new(<<-__XML__))
+      <nop/>
+    __XML__
+    @client.wiredump_dev = STDOUT if $DEBUG
+    header, body = @client.invoke(nil, body)
+    assert_equal(1, body.root_node["return"].data)
+  end
+
+
+
+end
+
+
+end

data/test/soap/test_no_indent.rb

@@ -0,0 +1,89 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/rpc/standaloneServer'
+require 'soap/rpc/driver'
+
+if defined?(HTTPClient)
+
+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 if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @client.reset_stream if @client
+  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_xml_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_xml_equal(NO_INDENT_XML, parse_requestxml(str))
+  end
+
+  def parse_requestxml(str)
+    str.split(/\r?\n\r?\n/)[3]
+  end
+end
+
+
+end
+
+end