rtiss_soap4r 2.1.1 → 3.0.0.beta

data/test/soap/fault/test_customfault.rb

@@ -0,0 +1,60 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+require 'test_helper'
+
+module SOAP
+module Fault
+
+
+class TestCustomFault < Test::Unit::TestCase
+  Port = TestUtil.get_free_port
+
+  class CustomFaultServer < SOAP::RPC::StandaloneServer
+    def on_init
+      add_method(self, 'fault', 'msg')
+    end
+
+    def fault(msg)
+      SOAPFault.new(SOAPString.new("mycustom"),
+        SOAPString.new("error: #{msg}"),
+        SOAPString.new(self.class.name))
+    end
+  end
+
+  def setup
+    @server = CustomFaultServer.new('customfault', 'urn:customfault', '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      Thread.current.abort_on_exception = true
+      @server.start
+    }
+    @endpoint = "http://localhost:#{Port}/"
+    @client = SOAP::RPC::Driver.new(@endpoint, 'urn:customfault')
+    @client.wiredump_dev = STDERR if $DEBUG
+    @client.add_method("fault", "msg")
+  end
+
+  def teardown
+    @server.shutdown if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @client.reset_stream if @client
+  end
+
+  def test_custom_fault
+    begin
+      @client.fault("message")
+      assert(false, 'exception not raised')
+    rescue SOAP::FaultError => e
+      assert(true, 'exception raised')
+      assert_equal('error: message', e.message)
+    end
+  end
+end
+
+
+end
+end

data/test/soap/fault/test_fault.rb

@@ -0,0 +1,46 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+
+
+module SOAP
+module Fault
+
+
+class TestFault < Test::Unit::TestCase
+
+  def setup
+    @client = SOAP::RPC::Driver.new(nil, 'urn:fault')
+    @client.wiredump_dev = STDERR if $DEBUG
+    @client.add_method("hello", "msg")
+  end
+
+  def teardown
+    @client.reset_stream if @client
+  end
+
+  def test_fault
+    @client.mapping_registry = SOAP::Mapping::EncodedRegistry.new
+    @client.test_loopback_response << <<__XML__
+<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
+  <soap:Body>
+    <soap:Fault>
+      <faultcode>soap:Server</faultcode>
+      <faultstring>DN cannot be empty</faultstring>
+      <detail />
+    </soap:Fault>
+  </soap:Body>
+</soap:Envelope>
+__XML__
+    begin
+      @client.hello("world")
+      assert(false)
+    rescue ::SOAP::FaultError => e
+      assert_equal("DN cannot be empty", e.message)
+    end
+  end
+end
+
+
+end
+end

data/test/soap/fault/test_soaparray.rb

@@ -0,0 +1,35 @@
+require 'soap/rpc/router'
+require 'soap/mapping/mapping'
+require 'soap/processor'
+require 'test/unit'
+
+
+module SOAP
+module Fault
+
+
+class TestSOAPArray < Test::Unit::TestCase
+
+  # simulate the soap fault creation and parsing on the client
+  def test_parse_fault
+    router = SOAP::RPC::Router.new('parse_SOAPArray_error')
+    soap_fault = pump_stack rescue router.create_fault_response($!)
+    env = SOAP::Processor.unmarshal(soap_fault.send_string)
+    soap_fault = SOAP::FaultError.new(env.body.fault)
+    # in literal service, RuntimeError is raised (not an ArgumentError)
+    # any chance to use Ruby's exception encoding in literal service?
+    assert_raises(RuntimeError) do
+      registry = SOAP::Mapping::LiteralRegistry.new
+      SOAP::Mapping.fault2exception(soap_fault, registry)
+    end
+  end
+
+  def pump_stack(max = 0)
+    raise ArgumentError if max > 10
+    pump_stack(max+1)
+  end
+end
+
+
+end
+end

data/test/soap/filter/test_filter.rb

@@ -0,0 +1,147 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+require 'soap/filter'
+require 'test_helper'
+
+module SOAP
+module Filter
+
+
+class TestFilter < Test::Unit::TestCase
+  Port = TestUtil.get_free_port
+  PortName = 'http://tempuri.org/filterPort'
+
+  class FilterTestServer < SOAP::RPC::StandaloneServer
+    class Servant
+      def self.create
+	new
+      end
+
+      def echo(amt)
+        amt
+      end
+    end
+
+    class ServerFilter1 < SOAP::Filter::Handler
+      # 15 -> 30
+      def on_outbound(envelope, opt)
+        unless envelope.body.is_fault
+          node = envelope.body.root_node
+          node.retval = SOAPInt.new(node.retval.data * 2)
+          node.elename = XSD::QName.new(nil, 'return')
+        end
+        envelope
+      end
+
+      # 4 -> 5
+      def on_inbound(xml, opt)
+        xml = xml.sub(/4/, '5')
+        xml
+      end
+    end
+
+    class ServerFilter2 < SOAP::Filter::Handler
+      # 5 -> 15
+      def on_outbound(envelope, opt)
+        unless envelope.body.is_fault
+          node = envelope.body.root_node
+          node.retval = SOAPInt.new(node.retval.data + 10)
+          node.elename = XSD::QName.new(nil, 'return')
+        end
+        envelope
+      end
+
+      # 5 -> 6
+      def on_inbound(xml, opt)
+        xml = xml.sub(/5/, '6')
+        xml
+      end
+    end
+
+    def initialize(*arg)
+      super
+      add_rpc_servant(Servant.new, PortName)
+      self.filterchain << ServerFilter1.new
+      self.filterchain << ServerFilter2.new
+    end
+  end
+
+  def setup
+    @endpoint = "http://localhost:#{Port}/"
+    setup_server
+    setup_client
+  end
+
+  def setup_server
+    @server = FilterTestServer.new(self.class.name, nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      @server.start
+    }
+  end
+
+  def setup_client
+    @client = SOAP::RPC::Driver.new(@endpoint, PortName)
+    @client.wiredump_dev = STDERR if $DEBUG
+    @client.add_method('echo', 'amt')
+  end
+
+  def teardown
+    teardown_server if @server
+    teardown_client if @client
+    sleep 0.5  # Allow OS to release port
+  end
+
+  def teardown_server
+    @server.shutdown
+    @t.kill
+    @t.join
+  end
+
+  def teardown_client
+    @client.reset_stream
+  end
+
+  class ClientFilter1 < SOAP::Filter::Handler
+    # 1 -> 2
+    def on_outbound(envelope, opt)
+      param = envelope.body.root_node.inparam
+      param["amt"] = SOAPInt.new(param["amt"].data + 1)
+      param["amt"].elename = XSD::QName.new(nil, 'amt')
+      envelope
+    end
+
+    # 31 -> 32
+    def on_inbound(xml, opt)
+      xml = xml.sub(/31/, '32')
+      xml
+    end
+  end
+
+  class ClientFilter2 < SOAP::Filter::Handler
+    # 2 -> 4
+    def on_outbound(envelope, opt)
+      param = envelope.body.root_node.inparam
+      param["amt"] = SOAPInt.new(param["amt"].data * 2)
+      param["amt"].elename = XSD::QName.new(nil, 'amt')
+      envelope
+    end
+
+    # 30 -> 31
+    def on_inbound(xml, opt)
+      xml = xml.sub(/30/, '31')
+      xml
+    end
+  end
+
+  # def test_call
+  #   @client.filterchain << ClientFilter1.new
+  #   @client.filterchain << ClientFilter2.new
+  #   assert_equal(32, @client.echo(1))
+  # end
+end
+
+
+end
+end

data/test/soap/header/server.cgi

@@ -0,0 +1,122 @@
+#!/usr/bin/env ruby
+
+project_root = File.expand_path('../../../..', __FILE__)
+$LOAD_PATH.unshift(File.join(project_root, 'lib'))
+
+require 'soap/rpc/cgistub'
+require 'soap/header/simplehandler'
+require 'pstore'
+
+class AuthHeaderPortServer < SOAP::RPC::CGIStub
+  PortName = 'http://tempuri.org/authHeaderPort'
+  SupportPortName = 'http://tempuri.org/authHeaderSupportPort'
+  MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+  SessionDB = File.join(File.expand_path(File.dirname(__FILE__)), 'session.pstoredb')
+
+  class AuthHeaderService
+    def self.create
+      new
+    end
+
+    def deposit(amt)
+      "deposit #{amt} OK"
+    end
+
+    def withdrawal(amt)
+      "withdrawal #{amt} OK"
+    end
+  end
+
+  class AuthHeaderSupportService
+    def delete_sessiondb
+      File.unlink(SessionDB) if File.file?(SessionDB)
+      backup = SessionDB + "~"
+      File.unlink(backup) if File.file?(backup)
+    end
+  end
+
+  def initialize(*arg)
+    super
+    add_rpc_servant(AuthHeaderService.new, PortName)
+    add_rpc_servant(AuthHeaderSupportService.new, SupportPortName)
+    add_rpc_headerhandler(ServerAuthHeaderHandler.new)
+  end
+
+  class ServerAuthHeaderHandler < SOAP::Header::SimpleHandler
+    Users = {
+      'NaHi' => 'passwd',
+      'HiNa' => 'wspass'
+    }
+
+    def initialize
+      super(MyHeaderName)
+      @db = PStore.new(SessionDB)
+      @db.transaction do
+	@db["root"] = {} unless @db.root?("root")
+      end
+      @userid = @sessionid = nil
+    end
+
+    def login(userid, passwd)
+      userid and passwd and Users[userid] == passwd
+    end
+
+    def auth(sessionid)
+      in_sessiondb do |root|
+	root[sessionid][0]
+      end
+    end
+
+    def create_session(userid)
+      in_sessiondb do |root|
+	while true
+  	  key = create_sessionkey
+  	  break unless root[key]
+   	end
+    	root[key] = [userid]
+     	key
+      end
+    end
+
+    def destroy_session(sessionkey)
+      in_sessiondb do |root|
+	root.delete(sessionkey)
+      end
+    end
+
+    def on_simple_outbound
+      { "sessionid" => @sessionid }
+    end
+
+    def on_simple_inbound(my_header, mu)
+      succeeded = false
+      userid = my_header["userid"]
+      passwd = my_header["passwd"]
+      if login(userid, passwd)
+	succeeded = true
+      elsif sessionid = my_header["sessionid"]
+	if userid = auth(sessionid)
+	  destroy_session(sessionid)
+	  succeeded = true
+	end
+      end
+      raise RuntimeError.new("authentication failed") unless succeeded
+      @userid = userid
+      @sessionid = create_session(userid)
+    end
+
+  private
+
+    def create_sessionkey
+      Time.now.usec.to_s
+    end
+
+    def in_sessiondb
+      @db.transaction do
+	yield(@db["root"])
+      end
+    end
+  end
+end
+
+AuthHeaderPortServer.new('AuthHeaderPortServer', nil).start

data/test/soap/header/test_authheader.rb

@@ -0,0 +1,234 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+require 'soap/header/simplehandler'
+require 'test_helper'
+
+module SOAP
+  module Header
+    class TestAuthHeader < Test::Unit::TestCase
+      Port = TestUtil.get_free_port
+      PortName = 'http://tempuri.org/authHeaderPort'
+      MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+      DummyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "dummy")
+
+      class AuthHeaderPortServer < SOAP::RPC::StandaloneServer
+        class AuthHeaderService
+          def self.create
+            new
+          end
+
+          def deposit(amt)
+            "deposit #{amt} OK"
+          end
+
+          def withdrawal(amt)
+            "withdrawal #{amt} OK"
+          end
+        end
+
+        def initialize(*arg)
+          super
+          add_rpc_servant(AuthHeaderService.new, PortName)
+          ServerAuthHeaderHandler.init
+          add_request_headerhandler(ServerAuthHeaderHandler)
+        end
+
+        class ServerAuthHeaderHandler < SOAP::Header::SimpleHandler
+          class << self
+            def create
+              new
+            end
+
+            def init
+              @users = { 'NaHi' => 'passwd', 'HiNa' => 'wspass' }
+              @sessions = {}
+            end
+
+            def login(userid, passwd)
+              userid && passwd && @users[userid] == passwd
+            end
+
+            def auth(sessionid)
+              @sessions[sessionid][0]
+            end
+
+            def create_session(userid)
+              while true
+                key = create_sessionkey
+                break unless @sessions[key]
+              end
+              @sessions[key] = [userid]
+              key
+            end
+
+            def destroy_session(sessionkey)
+              @sessions.delete(sessionkey)
+            end
+
+            def sessions
+              @mutex ||= Mutex.new
+              @mutex.synchronize { @sessions }
+            end
+
+            private
+
+            def create_sessionkey
+              Time.now.usec.to_s
+            end
+          end
+
+          def initialize
+            super(MyHeaderName)
+            @userid = @sessionid = nil
+          end
+
+          def on_simple_outbound
+            { "sessionid" => @sessionid }
+          end
+
+          def on_simple_inbound(my_header, mu)
+            auth = false
+            userid = my_header["userid"]
+            passwd = my_header["passwd"]
+            if self.class.login(userid, passwd)
+              auth = true
+            elsif sessionid = my_header["sessionid"]
+              if userid = self.class.auth(sessionid)
+                self.class.destroy_session(sessionid)
+                auth = true
+              end
+            end
+            raise RuntimeError.new("authentication failed") unless auth
+            @userid = userid
+            @sessionid = self.class.create_session(userid)
+          end
+        end
+
+        class ClientAuthHeaderHandler < SOAP::Header::SimpleHandler
+          def initialize(userid, passwd, mustunderstand)
+            super(MyHeaderName)
+            @sessionid = nil
+            @userid = userid
+            @passwd = passwd
+            @mustunderstand = mustunderstand
+          end
+
+          def on_simple_outbound
+            if @sessionid
+              { "sessionid" => @sessionid }
+            else
+              { "userid" => @userid, "passwd" => @passwd }
+            end
+          end
+
+          def on_simple_inbound(my_header, mustunderstand)
+            @sessionid = my_header["sessionid"]
+          end
+
+          def sessionid
+            @sessionid
+          end
+        end
+
+        class DummyHeaderHandler < SOAP::Header::SimpleHandler
+          def initialize(mustunderstand)
+            super(DummyHeaderName)
+            @mustunderstand = mustunderstand
+          end
+
+          def on_simple_outbound
+            { XSD::QName.new("foo", "bar") => nil }
+          end
+
+          def on_simple_inbound(my_header, mustunderstand)
+          end
+        end
+      end
+
+      def setup
+        @port = TestUtil.get_free_port
+        @endpoint = "http://localhost:#{@port}/"
+        setup_server
+        setup_client
+      end
+
+      def setup_server
+        @server = AuthHeaderPortServer.new("SOAP::Header", nil, '0.0.0.0', @port)
+        @server.level = Logger::Severity::ERROR
+        @t = Thread.new { @server.start }
+      end
+
+      def setup_client
+        @client = SOAP::RPC::Driver.new(@endpoint, PortName)
+        @client.wiredump_dev = STDERR if $DEBUG
+        @client.add_method('deposit', 'amt')
+        @client.add_method('withdrawal', 'amt')
+      end
+
+      def teardown
+        teardown_server if @server
+        teardown_client if @client
+        sleep 0.5  # Allow OS to release port
+      end
+
+      def teardown_server
+        @server.shutdown
+        @t.kill
+        @t.join
+      end
+
+      def teardown_client
+        @client.reset_stream
+      end
+
+      def test_success_no_mu
+        h = AuthHeaderPortServer::ClientAuthHeaderHandler.new('NaHi', 'passwd', false)
+        @client.headerhandler << h
+        do_transaction_check(h)
+      end
+
+      def test_success_mu
+        h = AuthHeaderPortServer::ClientAuthHeaderHandler.new('NaHi', 'passwd', true)
+        @client.headerhandler << h
+        do_transaction_check(h)
+      end
+
+      def test_no_mu
+        h = AuthHeaderPortServer::ClientAuthHeaderHandler.new('NaHi', 'passwd', true)
+        @client.headerhandler << h
+        @client.headerhandler << AuthHeaderPortServer::DummyHeaderHandler.new(false)
+        do_transaction_check(h)
+      end
+
+      def test_mu
+        h = AuthHeaderPortServer::ClientAuthHeaderHandler.new('NaHi', 'passwd', true)
+        @client.headerhandler << h
+        @client.headerhandler << (h2 = AuthHeaderPortServer::DummyHeaderHandler.new(true))
+        assert_raise(SOAP::FaultError) do
+          @client.deposit(150)
+        end
+        @client.headerhandler.delete(h2)
+        @client.headerhandler << (h2 = AuthHeaderPortServer::DummyHeaderHandler.new(false))
+        do_transaction_check(h)
+      end
+
+      def do_transaction_check(h)
+        assert_equal("deposit 150 OK", @client.deposit(150))
+        serversess = AuthHeaderPortServer::ServerAuthHeaderHandler.sessions[h.sessionid]
+        assert_equal("NaHi", serversess[0])
+        assert_equal("withdrawal 120 OK", @client.withdrawal(120))
+        serversess = AuthHeaderPortServer::ServerAuthHeaderHandler.sessions[h.sessionid]
+        assert_equal("NaHi", serversess[0])
+      end
+
+      def test_authfailure
+        h = AuthHeaderPortServer::ClientAuthHeaderHandler.new('NaHi', 'pa', false)
+        @client.headerhandler << h
+        assert_raises(SOAP::FaultError) do
+          @client.deposit(150)
+        end
+      end
+    end
+  end
+end