eventmachine-win32 0.5.3 → 0.7.0

data/lib/protocols/tcptest.rb

@@ -0,0 +1,67 @@
+# $Id: tcptest.rb 218 2006-07-17 10:29:20Z blackhedd $
+#
+# Author:: blackhedd (gmail address: garbagecat10).
+# Date:: 16 July 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
+#
+#---------------------------------------------------------------------------
+#
+# 
+
+
+
+module EventMachine
+module Protocols
+
+class TcpConnectTester < Connection
+  include EventMachine::Deferrable
+
+  def self.test( host, port )
+    EventMachine.connect( host, port, self )
+  end
+
+  def post_init
+    @start_time = Time.now
+  end
+
+  def connection_completed
+    @completed = true
+    set_deferred_status :succeeded, (Time.now - @start_time)
+    close_connection
+  end
+
+  def unbind
+    set_deferred_status :failed, (Time.now - @start_time)  unless @completed
+  end
+end
+
+
+end
+end
+

data/tests/test_basic.rb

@@ -0,0 +1,106 @@
+# $Id: test_basic.rb 225 2006-08-10 08:53: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 TestBasic < Test::Unit::TestCase
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  #-------------------------------------
+
+  def test_libtype
+    lt = EventMachine.library_type
+    case $eventmachine_library
+    when :pure_ruby
+      assert_equal( :pure_ruby, lt )
+    when :extension
+      assert_equal( :extension, lt )
+    else
+      assert_equal( :extension, lt )
+    end
+  end
+
+  #-------------------------------------
+
+
+  def test_em
+    EventMachine.run {
+      EventMachine.add_timer 0 do
+        EventMachine.stop
+      end
+    }
+  end
+
+  #-------------------------------------
+
+  def test_timer
+    n = 0
+    EventMachine.run {
+      EventMachine.add_periodic_timer(1) {
+        n += 1
+        EventMachine.stop if n == 2
+      }
+    }
+  end
+
+  #-------------------------------------
+
+  # This test throws an already-running exception. WHY?
+  module Trivial
+    def post_init
+      EentMachine.stop
+    end
+  end
+
+  def test_server
+    #EventMachine.run {
+    #  EventMachine.start_server "localhost", 9000, Trivial
+    #  EventMachine.connect "localhost", 9000
+    #}
+
+  end
+
+  #--------------------------------------
+
+end
+
+

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
+
+