rtiss_soap4r 1.6.1 → 2.0.4

data/test/soap/fault/test_soaparray.rb

@@ -1,36 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'soap/rpc/router'
-require 'soap/mapping/mapping'
-require 'soap/processor'
-
-
-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

@@ -1,147 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'soap/rpc/driver'
-require 'soap/rpc/standaloneServer'
-require 'soap/filter'
-
-
-module SOAP
-module Filter
-
-
-class TestFilter < Test::Unit::TestCase
-  Port = 17171
-  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
-  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

@@ -1,121 +0,0 @@
-# encoding: ASCII-8BIT
-$:.unshift File.expand_path(File.dirname(__FILE__)+'/../../../lib')
-require 'pstore'
-require 'soap/rpc/cgistub'
-require 'soap/header/simplehandler'
-
-
-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
-
-
-status = AuthHeaderPortServer.new('AuthHeaderPortServer', nil).start

data/test/soap/header/test_authheader.rb

@@ -1,241 +0,0 @@
-# encoding: ASCII-8BIT
-require 'helper'
-require 'soap/rpc/driver'
-require 'soap/rpc/standaloneServer'
-require 'soap/header/simplehandler'
-
-
-module SOAP
-module Header
-
-
-class TestAuthHeader < Test::Unit::TestCase
-  Port = 17171
-  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 and passwd and @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
-	  @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
-  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
-
-  def setup
-    @endpoint = "http://localhost:#{Port}/"
-    setup_server
-    setup_client
-  end
-
-  def setup_server
-    @server = AuthHeaderPortServer.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('deposit', 'amt')
-    @client.add_method('withdrawal', 'amt')
-  end
-
-  def teardown
-    teardown_server if @server
-    teardown_client if @client
-  end
-
-  def teardown_server
-    @server.shutdown
-    @t.kill
-    @t.join
-  end
-
-  def teardown_client
-    @client.reset_stream
-  end
-
-  def test_success_no_mu
-    h = ClientAuthHeaderHandler.new('NaHi', 'passwd', false)
-    @client.headerhandler << h
-    do_transaction_check(h)
-  end
-
-  def test_success_mu
-    h = ClientAuthHeaderHandler.new('NaHi', 'passwd', true)
-    @client.headerhandler << h
-    do_transaction_check(h)
-  end
-
-  def test_no_mu
-    h = ClientAuthHeaderHandler.new('NaHi', 'passwd', true)
-    @client.headerhandler << h
-    @client.headerhandler << DummyHeaderHandler.new(false)
-    do_transaction_check(h)
-  end
-
-  def test_mu
-    h = ClientAuthHeaderHandler.new('NaHi', 'passwd', true)
-    @client.headerhandler << h
-    @client.headerhandler << (h2 = DummyHeaderHandler.new(true))
-    assert_raise(SOAP::UnhandledMustUnderstandHeaderError) do
-      assert_equal("deposit 150 OK", @client.deposit(150))
-    end
-    @client.headerhandler.delete(h2)
-    @client.headerhandler << (h2 = 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 = ClientAuthHeaderHandler.new('NaHi', 'pa', false)
-    @client.headerhandler << h
-    assert_raises(RuntimeError) do
-      @client.deposit(150)
-    end
-  end
-end
-
-
-end
-end