From 9ff1e787f915539b1980654e3d3d2013ff5c81d2 Mon Sep 17 00:00:00 2001
From: shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 7 Jul 2008 07:38:25 +0000
Subject: wrong commit; sorry

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_6_269@17938 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ruby_1_8_6/test/xmlrpc/test_webrick_server.rb | 98 ---------------------------
 1 file changed, 98 deletions(-)
 delete mode 100644 ruby_1_8_6/test/xmlrpc/test_webrick_server.rb

(limited to 'ruby_1_8_6/test/xmlrpc/test_webrick_server.rb')

diff --git a/ruby_1_8_6/test/xmlrpc/test_webrick_server.rb b/ruby_1_8_6/test/xmlrpc/test_webrick_server.rb
deleted file mode 100644
index 4cd63cfa74..0000000000
--- a/ruby_1_8_6/test/xmlrpc/test_webrick_server.rb
+++ /dev/null
@@ -1,98 +0,0 @@
-require 'test/unit'
-require 'webrick'
-require File.join(File.dirname(__FILE__), 'webrick_testing')
-require "xmlrpc/server"
-require 'xmlrpc/client'
-
-class Test_Webrick < Test::Unit::TestCase
-  include WEBrick_Testing
-
-  def create_servlet
-    s = XMLRPC::WEBrickServlet.new
-
-    s.add_handler("test.add") do |a,b|
-      a + b
-    end
-
-    s.add_handler("test.div") do |a,b|
-      if b == 0
-        raise XMLRPC::FaultException.new(1, "division by zero")
-      else
-        a / b 
-      end
-    end 
-
-    s.set_default_handler do |name, *args|
-      raise XMLRPC::FaultException.new(-99, "Method #{name} missing" +
-            " or wrong number of parameters!")
-    end
-
-    s.add_introspection
-
-    return s
-  end
-
-  def setup_http_server(port, use_ssl)
-    option = {
-      :Port => port, 
-      :SSLEnable => use_ssl,
-    }
-    if use_ssl
-      require 'webrick/https'
-      option.update(
-        :SSLVerifyClient => ::OpenSSL::SSL::VERIFY_NONE, 
-        :SSLCertName => []
-      )
-    end
-
-    start_server(option) {|w| w.mount('/RPC2', create_servlet) }
-
-    @s = XMLRPC::Client.new3(:port => port, :use_ssl => use_ssl)
-  end
-
-  PORT = 8070
-  def test_client_server
-    # NOTE: I don't enable SSL testing as this hangs
-    [false].each do |use_ssl|
-      begin
-        setup_http_server(PORT, use_ssl)
-        do_test
-      ensure
-        stop_server
-      end
-    end
-  end
-
-  def do_test
-    # simple call
-    assert_equal 9, @s.call('test.add', 4, 5)
-
-    # fault exception
-    assert_raises(XMLRPC::FaultException) { @s.call('test.div', 1, 0) }
-
-    # fault exception via call2
-    ok, param = @s.call2('test.div', 1, 0)
-    assert_equal false, ok
-    assert_instance_of XMLRPC::FaultException, param
-    assert_equal 1, param.faultCode
-    assert_equal 'division by zero', param.faultString
-
-    # call2 without fault exception
-    ok, param = @s.call2('test.div', 10, 5)
-    assert_equal true, ok
-    assert_equal param, 2
-
-    # introspection
-    assert_equal ["test.add", "test.div", "system.listMethods", "system.methodSignature", "system.methodHelp"], @s.call("system.listMethods")
-
-    # default handler (missing handler)
-    ok, param = @s.call2('test.nonexisting')
-    assert_equal false, ok
-    assert_equal -99, param.faultCode
-
-    # default handler (wrong number of arguments)
-    ok, param = @s.call2('test.add', 1, 2, 3)
-    assert_equal false, ok
-    assert_equal -99, param.faultCode
-  end
-end
-- 
cgit v1.2.3