eventmachine-le 1.1.0.beta.1

data/tests/test_resolver.rb

@@ -0,0 +1,55 @@
+require 'em_test_helper'
+
+class TestResolver < Test::Unit::TestCase
+  def test_a
+    EM.run {
+      d = EM::DNS::Resolver.resolve "google.com"
+      d.errback { |msg, err| assert false, "msg: #{msg.inspect}, err: #{err.inspect}" }
+      d.callback { |r|
+        assert r
+        EM.stop
+      }
+    }
+  end
+
+  def test_bad_host
+    EM.run {
+      d = EM::DNS::Resolver.resolve "asdfasasdf"
+      d.callback { assert false }
+      d.errback  { assert true; EM.stop }
+    }
+  end
+
+  def test_garbage
+    assert_raises( ArgumentError ) {
+      EM.run {
+        EM::DNS::Resolver.resolve 123
+      }
+    }
+  end
+
+  def test_a_pair
+    EM.run {
+      d = EM::DNS::Resolver.resolve "google.com"
+      d.errback { |msg, err| assert false, "msg: #{msg.inspect}, err: #{err.inspect}" }
+      d.callback { |r|
+        assert_equal(Array, r.class)
+        assert r.size > 1
+        EM.stop
+      }
+    }
+  end
+
+  def test_localhost
+    EM.run {
+      d = EM::DNS::Resolver.resolve "localhost"
+      d.errback { assert false }
+      d.callback { |r|
+        assert_equal("127.0.0.1", r.first)
+        assert_equal(Array, r.class)
+
+        EM.stop
+      }
+    }
+  end
+end

data/tests/test_running.rb

@@ -0,0 +1,14 @@
+require 'em_test_helper'
+
+class TestRunning < Test::Unit::TestCase
+  def test_running
+    assert_equal( false, EM::reactor_running? )
+    r = false
+    EM.run {
+      r = EM::reactor_running?
+      EM.stop
+    }
+    assert_equal( true, r )
+  end
+end
+

data/tests/test_sasl.rb

@@ -0,0 +1,47 @@
+require 'em_test_helper'
+
+
+class TestSASL < Test::Unit::TestCase
+
+  # SASL authentication is usually done with UNIX-domain sockets, but
+  # we'll use TCP so this test will work on Windows. As far as the
+  # protocol handlers are concerned, there's no difference.
+
+  TestUser,TestPsw = "someone", "password"
+
+  class SaslServer < EM::Connection
+    include EM::Protocols::SASLauth
+    def validate usr, psw, sys, realm
+      usr == TestUser and psw == TestPsw
+    end
+  end
+
+  class SaslClient < EM::Connection
+    include EM::Protocols::SASLauthclient
+  end
+
+  def setup
+    @port = next_port
+  end
+
+  def test_sasl
+    resp = nil
+    EM.run {
+      EM.start_server( "127.0.0.1", @port, SaslServer )
+
+      c = EM.connect( "127.0.0.1", @port, SaslClient )
+      d = c.validate?( TestUser, TestPsw )
+      d.timeout 1
+      d.callback {
+        resp = true
+        EM.stop
+      }
+      d.errback {
+        resp = false
+        EM.stop
+      }
+    }
+    assert_equal( true, resp )
+  end
+
+end

data/tests/test_send_file.rb

@@ -0,0 +1,217 @@
+require 'em_test_helper'
+require 'tempfile'
+
+class TestSendFile < Test::Unit::TestCase
+
+  if EM.respond_to?(:send_file_data)
+    module TestModule
+      def initialize filename
+        @filename = filename
+      end
+
+      def post_init
+        send_file_data @filename
+        close_connection_after_writing
+      end
+    end
+
+    module TestClient
+      def data_to(&blk)
+        @data_to = blk
+      end
+
+      def receive_data(data)
+        @data_to.call(data) if @data_to
+      end
+
+      def unbind
+        EM.stop
+      end
+    end
+
+    def setup
+      @file = Tempfile.new("em_test_file")
+      @filename = @file.path
+      @port = next_port
+    end
+
+    def test_send_file
+      File.open( @filename, "w" ) {|f|
+        f << ("A" * 5000)
+      }
+
+      data = ''
+
+      EM.run {
+        EM.start_server "127.0.0.1", @port, TestModule, @filename
+        setup_timeout
+
+        EM.connect "127.0.0.1", @port, TestClient do |c|
+          c.data_to { |d| data << d }
+        end
+      }
+
+      assert_equal( "A" * 5000, data )
+    end
+
+    # EM::Connection#send_file_data has a strict upper limit on the filesize it will work with.
+    def test_send_large_file
+      File.open( @filename, "w" ) {|f|
+        f << ("A" * 1000000)
+      }
+
+      data = ''
+
+      assert_raises(RuntimeError) {
+        EM.run {
+          EM.start_server "127.0.0.1", @port, TestModule, @filename
+          setup_timeout
+          EM.connect "127.0.0.1", @port, TestClient do |c|
+            c.data_to { |d| data << d }
+          end
+        }
+      }
+    end
+
+    module StreamTestModule
+      def initialize filename
+        @filename = filename
+      end
+
+      def post_init
+        EM::Deferrable.future( stream_file_data(@filename)) {
+          close_connection_after_writing
+        }
+      end
+    end
+
+    module ChunkStreamTestModule
+      def initialize filename
+        @filename = filename
+      end
+
+      def post_init
+        EM::Deferrable.future( stream_file_data(@filename, :http_chunks=>true)) {
+          close_connection_after_writing
+        }
+      end
+    end
+
+    def test_stream_file_data
+      File.open( @filename, "w" ) {|f|
+        f << ("A" * 1000)
+      }
+
+      data = ''
+
+      EM.run {
+        EM.start_server "127.0.0.1", @port, StreamTestModule, @filename
+        setup_timeout
+        EM.connect "127.0.0.1", @port, TestClient do |c|
+          c.data_to { |d| data << d }
+        end
+      }
+
+      assert_equal( "A" * 1000, data )
+    end
+
+    def test_stream_chunked_file_data
+      File.open( @filename, "w" ) {|f|
+        f << ("A" * 1000)
+      }
+
+      data = ''
+
+      EM.run {
+        EM.start_server "127.0.0.1", @port, ChunkStreamTestModule, @filename
+        setup_timeout
+        EM.connect "127.0.0.1", @port, TestClient do |c|
+          c.data_to { |d| data << d }
+        end
+      }
+
+      assert_equal( "3e8\r\n#{"A" * 1000}\r\n0\r\n\r\n", data )
+    end
+
+    module BadFileTestModule
+      def initialize filename
+        @filename = filename
+      end
+
+      def post_init
+        de = stream_file_data( @filename+".wrong" )
+        de.errback {|msg|
+          send_data msg
+          close_connection_after_writing
+        }
+      end
+    end
+    def test_stream_bad_file
+      data = ''
+      EM.run {
+        EM.start_server "127.0.0.1", @port, BadFileTestModule, @filename
+        setup_timeout(5)
+        EM.connect "127.0.0.1", @port, TestClient do |c|
+          c.data_to { |d| data << d }
+        end
+      }
+
+      assert_equal( "file not found", data )
+    end
+  else
+    warn "EM.send_file_data not implemented, skipping tests in #{__FILE__}"
+
+    # Because some rubies will complain if a TestCase class has no tests
+    def test_em_send_file_data_not_implemented
+      assert !EM.respond_to?(:send_file_data)
+    end
+  end
+
+  begin
+    require 'fastfilereaderext'
+
+    def test_stream_large_file_data
+      File.open( @filename, "w" ) {|f|
+        f << ("A" * 10000)
+      }
+
+      data = ''
+
+      EM.run {
+        EM.start_server "127.0.0.1", @port, StreamTestModule, @filename
+        setup_timeout
+        EM.connect "127.0.0.1", @port, TestClient do |c|
+          c.data_to { |d| data << d }
+        end
+      }
+
+      assert_equal( "A" * 10000, data )
+    end
+
+    def test_stream_large_chunked_file_data
+      File.open( @filename, "w" ) {|f|
+        f << ("A" * 100000)
+      }
+
+      data = ''
+
+      EM.run {
+        EM.start_server "127.0.0.1", @port, ChunkStreamTestModule, @filename
+        setup_timeout
+        EM.connect "127.0.0.1", @port, TestClient do |c|
+          c.data_to { |d| data << d }
+        end
+      }
+
+      expected = [
+        "4000\r\n#{"A" * 16384}\r\n" * 6,
+        "6a0\r\n#{"A" * 0x6a0}\r\n",
+        "0\r\n\r\n"
+      ].join
+      assert_equal( expected, data )
+    end
+  rescue LoadError
+    warn "require 'fastfilereaderext' failed, skipping tests in #{__FILE__}"
+  end
+
+end

data/tests/test_servers.rb

@@ -0,0 +1,33 @@
+require 'em_test_helper'
+require 'socket'
+
+class TestServers < Test::Unit::TestCase
+
+  def setup
+    @port = next_port
+  end
+
+  def server_alive?
+    port_in_use?(@port)
+  end
+
+  def run_test_stop_server
+    EM.run {
+      sig = EM.start_server("127.0.0.1", @port)
+      assert server_alive?, "Server didn't start"
+      EM.stop_server sig
+      # Give the server some time to shutdown.
+      EM.add_timer(0.1) {
+        assert !server_alive?, "Server didn't stop"
+        EM.stop
+      }
+    }
+  end
+
+  def test_stop_server
+    assert !server_alive?, "Port already in use"
+    2.times { run_test_stop_server }
+    assert !server_alive?, "Servers didn't stop"
+  end
+
+end

data/tests/test_set_sock_opt.rb

@@ -0,0 +1,41 @@
+require 'em_test_helper'
+require 'socket'
+
+class TestSetSockOpt < Test::Unit::TestCase
+
+  if EM.respond_to? :set_sock_opt
+    def setup
+      assert(!EM.reactor_running?)
+    end
+
+    def teardown
+      assert(!EM.reactor_running?)
+    end
+
+    #-------------------------------------
+
+    def test_set_sock_opt
+      test = self
+      EM.run do
+        EM.connect 'google.com', 80, Module.new {
+          define_method :post_init do
+            wanted = 10240
+            val = set_sock_opt Socket::SOL_SOCKET, Socket::SO_RCVBUF, wanted
+            test.assert_equal 0, val
+            val = get_sock_opt Socket::SOL_SOCKET, Socket::SO_RCVBUF
+            obtained = val.unpack("L")[0]
+            test.assert obtained == wanted || obtained == wanted * 2 # Linux at work
+            EM.stop
+          end
+        }
+      end
+    end
+  else
+    warn "EM.set_sock_opt not implemented, skipping tests in #{__FILE__}"
+
+    # Because some rubies will complain if a TestCase class has no tests
+    def test_em_set_sock_opt_unsupported
+      assert true
+    end
+  end
+end

data/tests/test_shutdown_hooks.rb

@@ -0,0 +1,23 @@
+require 'em_test_helper'
+
+class TestShutdownHooks < Test::Unit::TestCase
+  def test_shutdown_hooks
+    r = false
+    EM.run {
+      EM.add_shutdown_hook { r = true }
+      EM.stop
+    }
+    assert_equal( true, r )
+  end
+
+  def test_hook_order
+    r = []
+    EM.run {
+      EM.add_shutdown_hook { r << 2 }
+      EM.add_shutdown_hook { r << 1 }
+      EM.stop
+    }
+    assert_equal( [1, 2], r )
+  end
+end
+

data/tests/test_smtpclient.rb

@@ -0,0 +1,55 @@
+require 'em_test_helper'
+
+class TestSmtpClient < Test::Unit::TestCase
+
+  Localhost = "127.0.0.1"
+  Localport = 9801
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_a
+    # No real tests until we have a server implementation to test against.
+    # This is what the call looks like, though:
+    err = nil
+    EM.run {
+      d = EM::Protocols::SmtpClient.send :domain=>"example.com",
+      :host=>Localhost,
+      :port=>Localport, # optional, defaults 25
+      :starttls=>true,
+      :from=>"sender@example.com",
+      :to=> ["to_1@example.com", "to_2@example.com"],
+      :header=> {"Subject" => "This is a subject line"},
+      :body=> "This is the body of the email",
+      :verbose=>true
+      d.errback {|e|
+        err = e
+        EM.stop
+      }
+    }
+    assert(err)
+  end
+
+  def test_content
+    err = nil
+    EM.run {
+      d = EM::Protocols::SmtpClient.send :domain=>"example.com",
+      :host=>Localhost,
+      :port=>Localport, # optional, defaults 25
+      :starttls=>true,
+      :from=>"sender@example.com",
+      :to=> ["to_1@example.com", "to_2@example.com"],
+      :content => ["Subject: xxx\r\n\r\ndata\r\n.\r\n"],
+      :verbose=>true
+      d.errback {|e|
+        err = e
+        EM.stop
+      }
+    }
+    assert(err)
+  end
+
+end