eventmachine 0.5.3 → 0.7.0

data/tests/test_eventables.rb

@@ -0,0 +1,85 @@
+# $Id: test_eventables.rb 252 2006-09-02 19:23:20Z blackhedd $
+#
+# Author:: blackhedd (gmail address: garbagecat10).
+# Date:: 8 Apr 2006
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# This program is made available under the terms of the GPL version 2.
+#
+# See EventMachine and EventMachine::Connection for documentation and
+# usage examples.
+#
+#----------------------------------------------------------------------------
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# Gmail: garbagecat10
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+#---------------------------------------------------------------------------
+#
+#
+
+$:.unshift "../lib"
+require 'eventmachine'
+
+require 'test/unit/testsuite'
+require 'test/unit/ui/console/testrunner'
+
+
+class TestEventables < Test::Unit::TestCase
+
+  class EvTest
+    include EventMachine::Eventable
+  end
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_a
+    n = 0
+    tester = EvTest.new
+    tester.listen_event( :fire1 ) {|arg|
+      n = 1 if arg == "$"
+      EventMachine.stop
+    }
+    tester.post_event( :fire1, "$" )
+    
+    EventMachine.run {
+      EventMachine::add_timer(1) {EventMachine.stop}
+    }
+
+    assert n == 1
+  end
+
+end
+
+
+#--------------------------------------
+
+if __FILE__ == $0
+  runner = Test::Unit::UI::Console::TestRunner
+  suite = Test::Unit::TestSuite.new("name")
+  ObjectSpace.each_object(Class) do |testcase|
+    suite << testcase.suite if testcase < Test::Unit::TestCase
+  end
+  runner.run(suite)
+end
+

data/tests/test_hc.rb

@@ -0,0 +1,207 @@
+# $Id: test_hc.rb 281 2006-11-20 03:17:22Z blackhedd $
+#
+# Author:: blackhedd (gmail address: garbagecat10).
+# Date:: 8 Apr 2006
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# This program is made available under the terms of the GPL version 2.
+#
+# See EventMachine and EventMachine::Connection for documentation and
+# usage examples.
+#
+#----------------------------------------------------------------------------
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# Gmail: garbagecat10
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+#---------------------------------------------------------------------------
+#
+#
+
+$:.unshift "../lib"
+require 'eventmachine'
+
+class TestHeaderAndContentProtocol < Test::Unit::TestCase
+
+    TestHost = "127.0.0.1"
+    TestPort = 8905
+
+
+    #--------------------------------------------------------------------
+
+    class SimpleTest < EventMachine::Protocols::HeaderAndContentProtocol
+	attr_reader :first_header, :my_headers, :request
+
+	def receive_first_header_line hdr
+	    @first_header ||= []
+	    @first_header << hdr
+	end
+	def receive_headers hdrs
+	    @my_headers ||= []
+	    @my_headers << hdrs
+	end
+	def receive_request hdrs, content
+	    @request ||= []
+	    @request << [hdrs, content]
+	end
+    end
+
+    def test_no_content
+	Thread.abort_on_exception = true
+	the_connection = nil
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleTest ) do |conn|
+		the_connection = conn
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		t.write [
+		    "aaa\n", "bbb\r\n", "ccc\n", "\n"
+		].join
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( ["aaa"], the_connection.first_header )
+	assert_equal( [%w(aaa bbb ccc)], the_connection.my_headers )
+	assert_equal( [[%w(aaa bbb ccc), ""]], the_connection.request )
+    end
+
+    def test_content
+	Thread.abort_on_exception = true
+	the_connection = nil
+	content = "A" * 50
+	headers = ["aaa", "bbb", "Content-length: #{content.length}", "ccc"]
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleTest ) do |conn|
+		the_connection = conn
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		headers.each {|h| t.write "#{h}\r\n" }
+		t.write "\n"
+		t.write content
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( ["aaa"], the_connection.first_header )
+	assert_equal( [headers], the_connection.my_headers )
+	assert_equal( [[headers, content]], the_connection.request )
+    end
+
+    def test_several_requests
+	Thread.abort_on_exception = true
+	the_connection = nil
+	content = "A" * 50
+	headers = ["aaa", "bbb", "Content-length: #{content.length}", "ccc"]
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleTest ) do |conn|
+		the_connection = conn
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		5.times {
+		    headers.each {|h| t.write "#{h}\r\n" }
+		    t.write "\n"
+		    t.write content
+		}
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( ["aaa"] * 5, the_connection.first_header )
+	assert_equal( [headers] * 5, the_connection.my_headers )
+	assert_equal( [[headers, content]] * 5, the_connection.request )
+    end
+
+
+    def x_test_multiple_content_length_headers
+	# This is supposed to throw a RuntimeError but it throws a C++ exception instead.
+	Thread.abort_on_exception = true
+	the_connection = nil
+	content = "A" * 50
+	headers = ["aaa", "bbb", ["Content-length: #{content.length}"]*2, "ccc"].flatten
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleTest ) do |conn|
+		the_connection = conn
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		headers.each {|h| t.write "#{h}\r\n" }
+		t.write "\n"
+		t.write content
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+    end
+
+    def test_interpret_headers
+	Thread.abort_on_exception = true
+	the_connection = nil
+	content = "A" * 50
+	headers = [
+	    "GET / HTTP/1.0",
+	    "Accept: aaa",
+	    "User-Agent: bbb",
+	    "Host:	    ccc",
+	    "x-tempest-header:ddd"
+	]
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleTest ) do |conn|
+		the_connection = conn
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		headers.each {|h| t.write "#{h}\r\n" }
+		t.write "\n"
+		t.write content
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+
+	hsh = the_connection.headers_2_hash( the_connection.my_headers.shift )
+	assert_equal(
+	    {
+		:accept => "aaa",
+		:user_agent => "bbb",
+		:host => "ccc",
+		:x_tempest_header => "ddd"
+	    },
+	    hsh
+	 )
+    end
+
+    #--------------------------------------------------------------------
+
+end
+
+

data/tests/test_httpclient.rb

@@ -0,0 +1,94 @@
+# $Id: test_httpclient.rb 226 2006-08-10 08:55:49Z blackhedd $
+#
+# Author:: blackhedd (gmail address: garbagecat10).
+# Date:: 8 Apr 2006
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# This program is made available under the terms of the GPL version 2.
+#
+# See EventMachine and EventMachine::Connection for documentation and
+# usage examples.
+#
+#----------------------------------------------------------------------------
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# Gmail: garbagecat10
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+#---------------------------------------------------------------------------
+#
+#
+
+$:.unshift "../lib"
+require 'eventmachine'
+
+class TestHttpClient < Test::Unit::TestCase
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  #-------------------------------------
+
+  def test_http_client
+    ok = false
+    EventMachine.run {
+      c = EventMachine::Protocols::HttpClient.send :request, :host => "www.bayshorenetworks.com", :port => 80
+      c.callback {
+        ok = true
+        EventMachine.stop
+      }
+      c.errback {EventMachine.stop} # necessary, otherwise a failure blocks the test suite forever.
+    }
+    assert ok
+  end
+
+  #-------------------------------------
+
+  def test_http_client_1
+    ok = false
+    EventMachine.run {
+      c = EventMachine::Protocols::HttpClient.send :request, :host => "www.bayshorenetworks.com", :port => 80
+      c.callback {ok = true; EventMachine.stop}
+      c.errback {EventMachine.stop}
+    }
+    assert ok
+  end
+
+  #-------------------------------------
+
+  def test_http_client_2
+    ok = false
+    EventMachine.run {
+      c = EventMachine::Protocols::HttpClient.send :request, :host => "www.bayshorenetworks.com", :port => 80
+      c.callback {|result|
+p result
+        ok = true;
+        EventMachine.stop
+      }
+      c.errback {EventMachine.stop}
+    }
+    assert ok
+  end
+
+
+end
+
+

data/tests/test_ltp.rb

@@ -0,0 +1,192 @@
+# $Id: test_ltp.rb 278 2006-11-16 15:54:52Z blackhedd $
+#
+# Author:: blackhedd (gmail address: garbagecat10).
+# Date:: 8 Apr 2006
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# This program is made available under the terms of the GPL version 2.
+#
+# See EventMachine and EventMachine::Connection for documentation and
+# usage examples.
+#
+#----------------------------------------------------------------------------
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# Gmail: garbagecat10
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+#---------------------------------------------------------------------------
+#
+#
+
+$:.unshift "../lib"
+require 'eventmachine'
+
+class TestLineAndTextProtocol < Test::Unit::TestCase
+
+    TestHost = "127.0.0.1"
+    TestPort = 8905
+
+
+    #--------------------------------------------------------------------
+
+    class SimpleLineTest < EventMachine::Protocols::LineAndTextProtocol
+	def receive_line line
+	    @line_buffer << line
+	end
+    end
+
+    def test_simple_lines
+	lines_received = []
+	Thread.abort_on_exception = true
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleLineTest ) do |conn|
+		conn.instance_eval "@line_buffer = lines_received"
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		t.write [
+		    "aaa\n", "bbb\r\n", "ccc\n"
+		].join
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( %w(aaa bbb ccc), lines_received )
+    end
+
+    #--------------------------------------------------------------------
+
+    class SimpleLineTest < EventMachine::Protocols::LineAndTextProtocol
+	def receive_error text
+	    @error_message << text
+	end
+    end
+
+    def test_overlength_lines
+	lines_received = []
+	Thread.abort_on_exception = true
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, SimpleLineTest ) do |conn|
+		conn.instance_eval "@error_message = lines_received"
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		t.write "a" * (16*1024 + 1)
+		t.write "\n"
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( ["overlength line"], lines_received )
+    end
+
+
+    #--------------------------------------------------------------------
+
+    class LineAndTextTest < EventMachine::Protocols::LineAndTextProtocol
+	def post_init
+	end
+	def receive_line line
+	    if line =~ /content-length:\s*(\d+)/i
+		@content_lenth = $1.to_i
+	    elsif line.length == 0
+		set_binary_mode @content_length
+	    end
+	end
+	def receive_binary_data text
+	    send_data "received #{text.length} bytes"
+	    close_connection_after_writing
+	end
+    end
+
+    def test_lines_and_text
+	output = nil
+	lines_received = []
+	text_received = []
+	Thread.abort_on_exception = true
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, LineAndTextTest ) do |conn|
+		conn.instance_eval "@lines = lines_received; @text = text_received"
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		t.puts "Content-length: 400"
+		t.puts
+		t.write "A" * 400
+		output = t.read
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( "received 400 bytes", output )
+    end
+
+    #--------------------------------------------------------------------
+
+
+    class BinaryTextTest < EventMachine::Protocols::LineAndTextProtocol
+	def post_init
+	end
+	def receive_line line
+	    if line =~ /content-length:\s*(\d+)/i
+		set_binary_mode $1.to_i
+	    else
+		raise "protocol error"
+	    end
+	end
+	def receive_binary_data text
+	    send_data "received #{text.length} bytes"
+	    close_connection_after_writing
+	end
+    end
+
+    def test_binary_text
+	output = nil
+	lines_received = []
+	text_received = []
+	Thread.abort_on_exception = true
+	EventMachine.run {
+	    EventMachine.start_server( TestHost, TestPort, BinaryTextTest ) do |conn|
+		conn.instance_eval "@lines = lines_received; @text = text_received"
+	    end
+	    EventMachine.add_timer(4) {raise "test timed out"}
+	    EventMachine.defer proc {
+		t = TCPSocket.new TestHost, TestPort
+		t.puts "Content-length: 10000"
+		t.write "A" * 10000
+		output = t.read
+		t.close
+	    }, proc {
+		EventMachine.stop
+	    }
+	}
+	assert_equal( "received 10000 bytes", output )
+    end
+
+    #--------------------------------------------------------------------
+
+end
+
+

data/tests/test_ud.rb

@@ -0,0 +1,52 @@
+# $Id: test_ud.rb 269 2006-10-25 23:31:15Z blackhedd $
+#
+# Author:: blackhedd (gmail address: garbagecat10).
+# Date:: 8 Apr 2006
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# This program is made available under the terms of the GPL version 2.
+#
+# See EventMachine and EventMachine::Connection for documentation and
+# usage examples.
+#
+#----------------------------------------------------------------------------
+#
+# Copyright (C) 2006 by Francis Cianfrocca. All Rights Reserved.
+#
+# Gmail: garbagecat10
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+#
+#---------------------------------------------------------------------------
+#
+#
+
+$:.unshift "../lib"
+require 'eventmachine'
+
+class TestUserDefinedEvents < Test::Unit::TestCase
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_a
+  end
+
+end
+