require 'test/unit'
require 'soap/rpc/httpserver'
require 'soap/rpc/driver'


module SOAP; module Struct


class TestStruct < Test::Unit::TestCase
  Namespace = "urn:example.com:simpletype-rpc"
  class Server < ::SOAP::RPC::HTTPServer
    @@test_struct = ::Struct.new(:one, :two)

    def on_init
      add_method(self, 'a_method')
    end
  
    def a_method
      @@test_struct.new("string", 1)
    end
  end

  Port = 17171

  def setup
    setup_server
    setup_client
  end

  def setup_server
    @server = Server.new(
      :Port => Port,
      :AccessLog => [],
      :SOAPDefaultNamespace => Namespace
    )
    @server.level = Logger::Severity::ERROR
    @server_thread = start_server_thread(@server)
  end

  def setup_client
    @client = ::SOAP::RPC::Driver.new("http://localhost:#{Port}/", Namespace)
    @client.wiredump_dev = STDERR if $DEBUG
    @client.add_method('a_method')
  end

  def teardown
    teardown_server
    teardown_client
  end

  def teardown_server
    @server.shutdown
    @server_thread.kill
    @server_thread.join
  end

  def teardown_client
    @client.reset_stream
  end

  def start_server_thread(server)
    t = Thread.new {
      Thread.current.abort_on_exception = true
      server.start
    }
    while server.status != :Running
      sleep 0.1
      unless t.alive?
        t.join
        raise
      end
    end
    t
  end

  def test_struct
    assert_equal("string", @client.a_method.one)
    assert_equal(1, @client.a_method.two)
  end
end


end; end