soap5r 2.0.0

data/test/soap/header/test_authheader.rb

@@ -0,0 +1,241 @@
+# 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

data/test/soap/header/test_authheader_cgi.rb

@@ -0,0 +1,122 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+require 'soap/header/simplehandler'
+require 'logger'
+require 'webrick'
+require 'rbconfig'
+
+
+module SOAP
+module Header
+
+
+class TestAuthHeaderCGI < Test::Unit::TestCase
+  # This test shuld be run after installing ruby.
+  RUBYBIN = File.join(
+    Config::CONFIG["bindir"],
+    Config::CONFIG["ruby_install_name"] + Config::CONFIG["EXEEXT"]
+  )
+  RUBYBIN << " -d" if $DEBUG
+  
+  Port = 17171
+  PortName = 'http://tempuri.org/authHeaderPort'
+  SupportPortName = 'http://tempuri.org/authHeaderSupportPort'
+  MyHeaderName = XSD::QName.new("http://tempuri.org/authHeader", "auth")
+
+  class ClientAuthHeaderHandler < SOAP::Header::SimpleHandler
+    def initialize(userid, passwd)
+      super(MyHeaderName)
+      @sessionid = nil
+      @userid = userid
+      @passwd = passwd
+    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
+
+  def setup
+    @endpoint = "http://localhost:#{Port}/"
+    setup_server
+    setup_client
+  end
+
+  def setup_server
+    @endpoint = "http://localhost:#{Port}/server.cgi"
+    logger = Logger.new(STDERR)
+    logger.level = Logger::Severity::ERROR
+    @server = WEBrick::HTTPServer.new(
+      :BindAddress => "0.0.0.0",
+      :Logger => logger,
+      :Port => Port,
+      :AccessLog => [],
+      :DocumentRoot => File.dirname(File.expand_path(__FILE__)),
+      :CGIPathEnv => ENV['PATH'],
+      :CGIInterpreter => RUBYBIN
+    )
+    @t = Thread.new {
+      Thread.current.abort_on_exception = true
+      @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')
+    @supportclient = SOAP::RPC::Driver.new(@endpoint, SupportPortName)
+    @supportclient.add_method('delete_sessiondb')
+  end
+
+  def teardown
+    @supportclient.delete_sessiondb if @supportclient
+    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
+    @supportclient.reset_stream
+  end
+
+  def test_success
+    h = ClientAuthHeaderHandler.new('NaHi', 'passwd')
+    @client.headerhandler << h
+    assert_equal("deposit 150 OK", @client.deposit(150))
+    assert_equal("withdrawal 120 OK", @client.withdrawal(120))
+  end
+
+  def test_authfailure
+    h = ClientAuthHeaderHandler.new('NaHi', 'pa')
+    @client.headerhandler << h
+    assert_raises(RuntimeError) do
+      @client.deposit(150)
+    end
+  end
+end
+
+
+end
+end

data/test/soap/header/test_simplehandler.rb

@@ -0,0 +1,117 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+require 'soap/header/simplehandler'
+
+
+module SOAP
+module Header
+
+
+class TestSimpleHandler < Test::Unit::TestCase
+  Port = 17171
+  PortName = 'http://tempuri.org/authHeaderPort'
+
+  class PingPortServer < SOAP::RPC::StandaloneServer
+    class PingService
+      def self.create
+	new
+      end
+
+      def ping
+        Thread.current[:pingheader]
+      end
+    end
+
+    def initialize(*arg)
+      super
+      add_rpc_servant(PingService.new, PortName)
+      add_request_headerhandler(PingServerHeaderHandler)
+    end
+
+    class PingServerHeaderHandler < SOAP::Header::SimpleHandler
+      MyHeaderName = XSD::QName.new("http://xmlsoap.org/Ping", "PingHeader")
+  
+      def self.create
+        new
+      end
+
+      def initialize()
+        super(MyHeaderName)
+      end
+
+      def on_simple_outbound
+        "dummy"
+      end
+
+      def on_simple_inbound(my_header, mu)
+        Thread.current[:pingheader] = my_header
+      end
+    end
+  end
+
+  class PingClientHeaderHandler < SOAP::Header::SimpleHandler
+    MyHeaderName = XSD::QName.new("http://xmlsoap.org/Ping", "PingHeader")
+
+    def initialize(pingHeader)
+      super(MyHeaderName)
+      @pingHeader = pingHeader
+      @mustunderstand = false
+    end
+
+    def on_simple_outbound
+      @pingHeader # --- note, not a Hash
+    end
+
+    def on_simple_inbound(my_header, mustunderstand)
+      Thread.current[:pingheader] = my_header
+    end
+  end
+
+  def setup
+    @endpoint = "http://localhost:#{Port}/"
+    setup_server
+    setup_client
+  end
+
+  def setup_server
+    @server = PingPortServer.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('ping')
+  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_string
+    h = PingClientHeaderHandler.new('pingheader')
+    @client.headerhandler << h
+    assert_equal("pingheader", @client.ping)
+    assert_equal("dummy", Thread.current[:pingheader])
+  end
+end
+
+
+end
+end

data/test/soap/helloworld/hw_s.rb

@@ -0,0 +1,17 @@
+# encoding: ASCII-8BIT
+require 'soap/rpc/standaloneServer'
+
+class HelloWorldServer < SOAP::RPC::StandaloneServer
+  def on_init
+    add_method(self, 'hello_world', 'from')
+  end
+
+  def hello_world(from)
+    "Hello World, from #{ from }"
+  end
+end
+
+if $0 == __FILE__
+  server = HelloWorldServer.new('hws', 'urn:hws', '0.0.0.0', 17171)
+  server.start
+end

data/test/soap/helloworld/test_helloworld.rb

@@ -0,0 +1,45 @@
+# encoding: ASCII-8BIT
+require 'helper'
+require 'testutil'
+require 'soap/rpc/driver'
+TestUtil.require(File.dirname(__FILE__), 'hw_s.rb')
+
+
+module SOAP
+module HelloWorld
+
+
+class TestHelloWorld < Test::Unit::TestCase
+  Port = 17171
+
+  def setup
+    @server = HelloWorldServer.new('hws', 'urn:hws', '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:hws')
+    @client.wiredump_dev = STDERR if $DEBUG
+    @client.add_method("hello_world", "from")
+  end
+
+  def teardown
+    @server.shutdown if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @client.reset_stream if @client
+  end
+
+  def test_hello_world
+    assert_equal("Hello World, from NaHi", @client.hello_world("NaHi"))
+    assert_equal("Hello World, from <&>", @client.hello_world("<&>"))
+  end
+end
+
+
+end
+end

data/test/soap/htpasswd

@@ -0,0 +1,2 @@
+admin:Qg266hq/YYKe2
+guest:gbPc4vPCH.h12