soap4r-straightjacket 1.5.8

data/test/soap/calc/calc.rb

@@ -0,0 +1,17 @@
+module CalcService
+  def self.add(lhs, rhs)
+    lhs + rhs
+  end
+
+  def self.sub(lhs, rhs)
+    lhs - rhs
+  end
+
+  def self.multi(lhs, rhs)
+    lhs * rhs
+  end
+
+  def self.div(lhs, rhs)
+    lhs / rhs
+  end
+end

data/test/soap/calc/calc2.rb

@@ -0,0 +1,29 @@
+class CalcService2
+  def initialize(value = 0)
+    @value = value
+  end
+
+  def set_value(value)
+    @value = value
+  end
+
+  def get_value
+    @value
+  end
+
+  def +(rhs)
+    @value + rhs
+  end
+
+  def -(rhs)
+    @value - rhs
+  end
+
+  def *(rhs)
+    @value * rhs
+  end
+
+  def /(rhs)
+    @value / rhs
+  end
+end

data/test/soap/calc/server.cgi

@@ -0,0 +1,13 @@
+require 'soap/rpc/cgistub'
+
+class CalcServer < SOAP::RPC::CGIStub
+  def initialize(*arg)
+    super
+
+    require 'calc'
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+status = CalcServer.new('CalcServer', nil).start

data/test/soap/calc/server.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+
+require 'soap/rpc/standaloneServer'
+require 'calc'
+
+class CalcServer < SOAP::RPC::StandaloneServer
+  def initialize(*arg)
+    super
+
+    servant = CalcService
+    add_servant(servant, 'http://tempuri.org/calcService')
+  end
+end
+
+if $0 == __FILE__
+  status = CalcServer.new('CalcServer', nil, '0.0.0.0', 17171).start
+end

data/test/soap/calc/server2.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'soap/rpc/standaloneServer'
+require 'calc2'
+
+class CalcServer2 < SOAP::RPC::StandaloneServer
+  def on_init
+    servant = CalcService2.new
+    add_method(servant, 'set_value', 'newValue')
+    add_method(servant, 'get_value')
+    add_method_as(servant, '+', 'add', 'lhs')
+    add_method_as(servant, '-', 'sub', 'lhs')
+    add_method_as(servant, '*', 'multi', 'lhs')
+    add_method_as(servant, '/', 'div', 'lhs')
+  end
+end
+
+if $0 == __FILE__
+  status = CalcServer2.new('CalcServer', 'http://tempuri.org/calcService', '0.0.0.0', 17171).start
+end

data/test/soap/calc/test_calc.rb

@@ -0,0 +1,51 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'server.rb'
+
+
+module SOAP
+module Calc
+
+
+class TestCalc < Test::Unit::TestCase
+  Port = 17171
+
+  def setup
+    @server = CalcServer.new(self.class.name, nil, '0.0.0.0', Port)
+    @server.level = Logger::Severity::ERROR
+    @t = Thread.new {
+      @server.start
+    }
+    @endpoint = "http://localhost:#{Port}/"
+    @calc = SOAP::RPC::Driver.new(@endpoint, 'http://tempuri.org/calcService')
+    @calc.add_method('add', 'lhs', 'rhs')
+    @calc.add_method('sub', 'lhs', 'rhs')
+    @calc.add_method('multi', 'lhs', 'rhs')
+    @calc.add_method('div', 'lhs', 'rhs')
+  end
+
+  def teardown
+    @server.shutdown if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @calc.reset_stream if @calc
+  end
+
+  def test_calc
+    assert_equal(3, @calc.add(1, 2))
+    assert_equal(-1.1, @calc.sub(1.1, 2.2))
+    assert_equal(2.42, @calc.multi(1.1, 2.2))
+    assert_equal(2, @calc.div(5, 2))
+    assert_equal(2.5, @calc.div(5.0, 2))
+    assert_equal(1.0/0.0, @calc.div(1.1, 0))
+    assert_raises(ZeroDivisionError) do
+      @calc.div(1, 0)
+    end
+  end
+end
+
+
+end
+end

data/test/soap/calc/test_calc2.rb

@@ -0,0 +1,55 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'server2.rb'
+
+
+module SOAP
+module Calc
+
+
+class TestCalc2 < Test::Unit::TestCase
+  Port = 17171
+
+  def setup
+    @server = CalcServer2.new('CalcServer', 'http://tempuri.org/calcService', '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}/"
+    @var = SOAP::RPC::Driver.new(@endpoint, 'http://tempuri.org/calcService')
+    @var.wiredump_dev = STDERR if $DEBUG
+    @var.add_method('set_value', 'newValue')
+    @var.add_method('get_value')
+    @var.add_method_as('+', 'add', 'rhs')
+    @var.add_method_as('-', 'sub', 'rhs')
+    @var.add_method_as('*', 'multi', 'rhs')
+    @var.add_method_as('/', 'div', 'rhs')
+  end
+
+  def teardown
+    @server.shutdown if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @var.reset_stream if @var
+  end
+
+  def test_calc2
+    assert_equal(1, @var.set_value(1))
+    assert_equal(3, @var + 2)
+    assert_equal(-1.2, @var - 2.2)
+    assert_equal(2.2, @var * 2.2)
+    assert_equal(0, @var / 2)
+    assert_equal(0.5, @var / 2.0)
+    assert_raises(ZeroDivisionError) do
+      @var / 0
+    end
+  end
+end
+
+
+end
+end

data/test/soap/calc/test_calc_cgi.rb

@@ -0,0 +1,71 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'logger'
+require 'webrick'
+require 'rbconfig'
+
+
+module SOAP
+module Calc
+
+
+class TestCalcCGI < 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
+
+  def setup
+    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
+    }
+    @endpoint = "http://localhost:#{Port}/server.cgi"
+    @calc = SOAP::RPC::Driver.new(@endpoint, 'http://tempuri.org/calcService')
+    @calc.wiredump_dev = STDERR if $DEBUG
+    @calc.add_method('add', 'lhs', 'rhs')
+    @calc.add_method('sub', 'lhs', 'rhs')
+    @calc.add_method('multi', 'lhs', 'rhs')
+    @calc.add_method('div', 'lhs', 'rhs')
+  end
+
+  def teardown
+    @server.shutdown if @server
+    if @t
+      @t.kill
+      @t.join
+    end
+    @calc.reset_stream if @calc
+  end
+
+  def test_calc_cgi
+    assert_equal(3, @calc.add(1, 2))
+    assert_equal(-1.1, @calc.sub(1.1, 2.2))
+    assert_equal(2.42, @calc.multi(1.1, 2.2))
+    assert_equal(2, @calc.div(5, 2))
+    assert_equal(2.5, @calc.div(5.0, 2))
+    assert_equal(1.0/0.0, @calc.div(1.1, 0))
+    assert_raises(ZeroDivisionError) do
+      @calc.div(1, 0)
+    end
+  end
+end
+
+
+end
+end

data/test/soap/case/test_mapping.rb

@@ -0,0 +1,57 @@
+require 'test/unit'
+require 'soap/marshal'
+
+
+module SOAP; module Case
+
+# {urn:TruckMateTypes}TTMHeader
+class TTMHeader
+  @@schema_type = "TTMHeader"
+  @@schema_ns = "urn:TruckMateTypes"
+  @@schema_element = [
+    ["dSN", ["SOAP::SOAPString", XSD::QName.new(nil, "DSN")]],
+    ["password", ["SOAP::SOAPString", XSD::QName.new(nil, "Password")]],
+    ["schema", ["SOAP::SOAPString", XSD::QName.new(nil, "Schema")]],
+    ["username", ["SOAP::SOAPString", XSD::QName.new(nil, "Username")]]
+  ]
+
+  attr_accessor :dSN
+  attr_accessor :password
+  attr_accessor :schema
+  attr_accessor :username
+
+  def initialize(dSN = nil, password = nil, schema = nil, username = nil)
+    @dSN = dSN
+    @password = password
+    @schema = schema
+    @username = username
+  end
+end
+
+
+class TestMapping < Test::Unit::TestCase
+  def test_mapping
+    dump = <<__XML__.chomp
+<?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..Case..TTMHeader xmlns:n1="urn:TruckMateTypes"
+        xsi:type="n1:TTMHeader"
+        env:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+      <DSN xsi:type="xsd:string">dsn</DSN>
+      <Password xsi:type="xsd:string">password</Password>
+      <Schema xsi:type="xsd:string">schema</Schema>
+      <Username xsi:type="xsd:string">username</Username>
+    </SOAP..Case..TTMHeader>
+  </env:Body>
+</env:Envelope>
+__XML__
+    o = TTMHeader.new("dsn", "password", "schema", "username")
+    assert_equal(dump, SOAP::Marshal.dump(o))
+  end
+end
+
+
+end; end

data/test/soap/fault/test_customfault.rb

@@ -0,0 +1,60 @@
+require 'test/unit'
+require 'soap/rpc/driver'
+require 'soap/rpc/standaloneServer'
+
+
+module SOAP
+module Fault
+
+
+class TestCustomFault < Test::Unit::TestCase
+  Port = 17171
+
+  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