eventmachine-mkroman 1.3.0.dev.1

data/tests/em_ssl_handlers.rb

@@ -0,0 +1,165 @@
+# frozen_string_literal: true
+
+##
+# EMSSLHandlers has two classes, `Client` and `Server`, and one method,
+# `client_server`, which is a wrapper around
+#
+#    EM.run do
+#      EM.start_server IP, PORT, s_hndlr, server
+#      EM.connect IP, PORT, c_hndlr, client
+#    end  
+#
+# It also passes parameters to the `start_tls` call within the `post_init`
+# callbacks of Client and Server.
+#
+# Client and Server have most standard callbacks and many 'get_*' function values
+# as attributes.
+#
+# `Client` has a `:client_unbind` parameter, which when set to true, calls
+# `EM.stop_event_loop` in the `unbind` callback.
+# 
+# `Server` has two additional parameters.
+#
+# `:ssl_verify_result`, which is normally set to true/false for the
+# `ssl_verify_peer` return value.  If it is set to a String starting with "|RAISE|",
+# the remaing string will be raised.
+# 
+# `:stop_after_handshake`, when set to true, will close the connection and then
+# call `EM.stop_event_loop`.
+#
+module EMSSLHandlers
+
+  IP, PORT = "127.0.0.1", 16784
+
+  # is OpenSSL version >= 1.1.0
+  IS_SSL_GE_1_1 = (EM::OPENSSL_LIBRARY_VERSION[/OpenSSL (\d+\.\d+\.\d+)/, 1]
+    .split('.').map(&:to_i) <=> [1,1]) == 1
+
+  # common start_tls parameters
+  SSL_3   = { ssl_version: %w(SSLv3)   }
+  TLS_1_2 = { ssl_version: %w(TLSv1_2) }
+  TLS_1_3 = { ssl_version: %w(TLSv1_3) }
+  TLS_ALL = { ssl_version: Test::Unit::TestCase::SSL_AVAIL }
+
+  module Client
+    def initialize(tls = nil)
+      @@tls = tls ? tls.dup : tls
+      @@handshake_completed = false
+      @@cert            = nil
+      @@cert_value      = nil
+      @@cipher_bits     = nil
+      @@cipher_name     = nil
+      @@cipher_protocol = nil
+      @@ssl_verify_result = @@tls ? @@tls.delete(:ssl_verify_result) : nil
+      @@client_unbind = @@tls ? @@tls.delete(:client_unbind) : nil
+    end
+
+    def self.cert                 ;   @@cert                end
+    def self.cert_value           ;   @@cert_value          end
+    def self.cipher_bits          ;   @@cipher_bits         end
+    def self.cipher_name          ;   @@cipher_name         end
+    def self.cipher_protocol      ;   @@cipher_protocol     end
+    def self.handshake_completed? ; !!@@handshake_completed end
+
+    def post_init
+      if @@tls
+        start_tls @@tls
+      else
+        start_tls
+      end
+    end
+
+    def ssl_verify_peer(cert)
+      @@cert = cert
+      if @@ssl_verify_result.is_a?(String) && @@ssl_verify_result.start_with?("|RAISE|")
+        raise @@ssl_verify_result.sub('|RAISE|', '')
+      else
+        @@ssl_verify_result
+      end
+    end
+
+    def ssl_handshake_completed
+      @@handshake_completed = true
+      @@cert_value      = get_peer_cert
+      @@cipher_bits     = get_cipher_bits
+      @@cipher_name     = get_cipher_name
+      @@cipher_protocol = get_cipher_protocol
+
+      if "TLSv1.3" != @@cipher_protocol
+        close_connection
+        EM.stop_event_loop
+      end
+    end
+
+    def unbind
+      EM.stop_event_loop if @@client_unbind
+    end
+  end
+
+  module Server
+    def initialize(tls = nil)
+      @@tls = tls ? tls.dup : tls
+      @@handshake_completed = false
+      @@cert_value      = nil
+      @@cipher_bits     = nil
+      @@cipher_name     = nil
+      @@cipher_protocol = nil
+      @@sni_hostname = "not set"
+      @@ssl_verify_result    = @@tls ? @@tls.delete(:ssl_verify_result)    : nil
+      @@stop_after_handshake = @@tls ? @@tls.delete(:stop_after_handshake) : nil
+    end
+
+    def self.cert                 ;   @@cert                end
+    def self.cert_value           ;   @@cert_value          end
+    def self.cipher_bits          ;   @@cipher_bits         end
+    def self.cipher_name          ;   @@cipher_name         end
+    def self.cipher_protocol      ;   @@cipher_protocol     end
+    def self.handshake_completed? ; !!@@handshake_completed end
+    def self.sni_hostname         ;   @@sni_hostname        end
+
+    def post_init
+      if @@tls
+        start_tls @@tls
+      else
+        start_tls
+      end
+    end
+
+    def ssl_verify_peer(cert)
+      @@cert = cert
+      if @@ssl_verify_result.is_a?(String) && @@ssl_verify_result.start_with?("|RAISE|")
+        raise @@ssl_verify_result.sub('|RAISE|', '')
+      else
+        @@ssl_verify_result
+      end
+    end
+    
+    def ssl_handshake_completed
+      @@handshake_completed = true
+      @@cert_value      = get_peer_cert
+      @@cipher_bits     = get_cipher_bits
+      @@cipher_name     = get_cipher_name
+      @@cipher_protocol = get_cipher_protocol
+
+      @@sni_hostname    = get_sni_hostname
+      if ("TLSv1.3" == @@cipher_protocol) || @@stop_after_handshake
+        close_connection
+        EM.stop_event_loop
+      end
+    end
+
+    def unbind
+      EM.stop_event_loop unless @@handshake_completed
+    end
+  end
+
+  def client_server(c_hndlr = Client, s_hndlr = Server,
+    client: nil, server: nil, timeout: 3.0)
+    EM.run do
+      # fail safe stop
+      setup_timeout timeout
+      EM.start_server IP, PORT, s_hndlr, server
+      EM.connect IP, PORT, c_hndlr, client
+    end
+  end
+end if EM.ssl?

data/tests/em_test_helper.rb

@@ -0,0 +1,198 @@
+require 'em/pure_ruby' if ENV['EM_PURE_RUBY']
+require 'eventmachine'
+require 'rbconfig'
+require 'socket'
+
+# verbose fun is to stop warnings when loading test-unit 3.2.9 in trunk
+verbose, $VERBOSE = $VERBOSE, nil
+require 'test/unit'
+$VERBOSE = verbose
+
+class Test::Unit::TestCase
+
+  # below outputs to console on load
+  # SSL_AVAIL is used by SSL tests
+  puts "", RUBY_DESCRIPTION
+  puts "\nEM.library_type #{EM.library_type.to_s.ljust(16)} EM.ssl? #{EM.ssl?}"
+  if EM.ssl?
+    require 'openssl'
+    ssl_lib_vers = OpenSSL.const_defined?(:OPENSSL_LIBRARY_VERSION) ?
+      OpenSSL::OPENSSL_LIBRARY_VERSION : 'na'
+    puts "OpenSSL OPENSSL_LIBRARY_VERSION: #{ssl_lib_vers}\n" \
+         "                OPENSSL_VERSION: #{OpenSSL::OPENSSL_VERSION}\n" \
+         "     EM OPENSSL_LIBRARY_VERSION: #{EM::OPENSSL_LIBRARY_VERSION}\n" \
+         "                OPENSSL_VERSION: #{EM::OPENSSL_VERSION}"
+
+    # assumes all 2.x versions include support for TLSv1_2
+    temp = []
+    temp << 'SSLv2' unless EM::OPENSSL_NO_SSL2
+    temp << 'SSLv3' unless EM::OPENSSL_NO_SSL3
+    temp += %w[TLSv1 TLSv1_1 TLSv1_2]
+    temp << 'TLSv1_3' if EM.const_defined? :EM_PROTO_TLSv1_3
+    temp.sort!
+    puts "                      SSL_AVAIL: #{temp.join(' ')}", ""
+    SSL_AVAIL = temp.freeze
+  else
+    puts "\nEventMachine is not built with OpenSSL support, skipping tests in",
+         "files tests/test_ssl_*.rb"
+  end
+
+  class EMTestTimeout < StandardError ; end
+
+  def setup_timeout(timeout = TIMEOUT_INTERVAL)
+    EM.schedule {
+      EM.add_timer(timeout) {
+        raise EMTestTimeout, "Test was cancelled after #{timeout} seconds."
+      }
+    }
+  end
+
+  def port_in_use?(port, host="127.0.0.1")
+    s = TCPSocket.new(host, port)
+    s.close
+    s
+  rescue Errno::ECONNREFUSED
+    false
+  end
+
+  def next_port
+    @@port ||= 9000
+    begin
+      @@port += 1
+    end while port_in_use?(@@port)
+
+    @@port
+  end
+
+  # Returns true if the host have a localhost 127.0.0.1 IPv4.
+  def self.local_ipv4?
+    return @@has_local_ipv4 if defined?(@@has_local_ipv4)
+    begin
+      get_my_ipv4_address "127.0.0.1"
+      @@has_local_ipv4 = true
+    rescue
+      @@has_local_ipv4 = false
+    end
+  end
+
+  # Returns true if the host have a public IPv4 and stores it in
+  # @@public_ipv4.
+  def self.public_ipv4?
+    return @@has_public_ipv4 if defined?(@@has_public_ipv4)
+    begin
+      @@public_ipv4 = get_my_ipv4_address "1.2.3.4"
+      @@has_public_ipv4 = true
+    rescue
+      @@has_public_ipv4 = false
+    end
+  end
+
+  # Returns true if the host have a localhost ::1 IPv6.
+  def self.local_ipv6?
+    return @@has_local_ipv6 if defined?(@@has_local_ipv6)
+    begin
+      get_my_ipv6_address "::1"
+      @@has_local_ipv6 = true
+    rescue
+      @@has_local_ipv6 = false
+    end
+  end
+
+  # Returns true if the host have a public IPv6 and stores it in
+  # @@public_ipv6.
+  def self.public_ipv6?
+    return @@has_public_ipv6 if defined?(@@has_public_ipv6)
+    begin
+      @@public_ipv6 = get_my_ipv6_address "2001::1"
+      @@has_public_ipv6 = true
+    rescue
+      @@has_public_ipv6 = false
+    end
+  end
+
+  # Returns an array with the localhost addresses (IPv4 and/or IPv6).
+  def local_ips
+    return @@local_ips if defined?(@@local_ips)
+    @@local_ips = []
+    @@local_ips << "127.0.0.1" if self.class.local_ipv4?
+    @@local_ips << "::1" if self.class.local_ipv6?
+    @@local_ips
+  end
+
+  def exception_class
+    jruby? ? NativeException : RuntimeError
+  end
+
+  module PlatformHelper
+    # http://blog.emptyway.com/2009/11/03/proper-way-to-detect-windows-platform-in-ruby/
+    def windows?
+      RbConfig::CONFIG['host_os'] =~ /mswin|mingw/
+    end
+
+    def darwin?
+      RUBY_PLATFORM =~ /darwin/
+    end
+
+    def solaris?
+      RUBY_PLATFORM =~ /solaris/
+    end
+
+    # http://stackoverflow.com/questions/1342535/how-can-i-tell-if-im-running-from-jruby-vs-ruby/1685970#1685970
+    def jruby?
+      defined? JRUBY_VERSION
+    end
+
+    def rbx?
+      defined?(RUBY_ENGINE) && RUBY_ENGINE == 'rbx'
+    end
+  end
+
+  include PlatformHelper
+  extend PlatformHelper
+
+  # Tests may run slower on windows or Appveyor. YMMV
+  TIMEOUT_INTERVAL = windows? ? 0.25 : 0.25
+
+  module EMTestCasePrepend
+    def setup
+      EM.stop while EM.reactor_running?
+    end
+
+    def teardown
+      EM.cleanup_machine
+    end
+  end
+  prepend EMTestCasePrepend
+
+  def silent
+    backup, $VERBOSE = $VERBOSE, nil
+    begin
+      yield
+    ensure
+      $VERBOSE = backup
+    end
+  end
+
+
+  private
+
+  def self.get_my_ipv4_address ip
+    orig, Socket.do_not_reverse_lookup = Socket.do_not_reverse_lookup, true  # turn off reverse DNS resolution temporarily
+    UDPSocket.open(Socket::AF_INET) do |s|
+      s.connect ip, 1
+      s.addr.last
+    end
+  ensure
+    Socket.do_not_reverse_lookup = orig
+  end
+
+  def self.get_my_ipv6_address ip
+    orig, Socket.do_not_reverse_lookup = Socket.do_not_reverse_lookup, true  # turn off reverse DNS resolution temporarily
+    UDPSocket.open(Socket::AF_INET6) do |s|
+      s.connect ip, 1
+      s.addr.last
+    end
+  ensure
+    Socket.do_not_reverse_lookup = orig
+  end
+end

data/tests/encoded_client.key

@@ -0,0 +1,54 @@
+-----BEGIN RSA PRIVATE KEY-----
+Proc-Type: 4,ENCRYPTED
+DEK-Info: AES-128-CBC,4BFAC39AEF67B2BED03FB8D0E34BDB6E
+
+KXJGir0Kro0c4qoFCsyCyYQgBS0ul4FinsCei3haYwz3Vd/uvZD8wBoedzVho/Mz
+99nZXZ52lHuwewGVvBeAnSXTrAtWCV2S9ZivYLZNqsEyxRlUF0SYat31bD2OImh8
+kXNC89HA9CEpRp3Zc0DU9JqqaRMv6SloMZA9AM/ioeHGj2o8Ajf4Vi0jg766cVFc
+CyxHy+IOJww8FSBwGaghBixNS4rhtUonJUDeInB7C0jFqkoHQG1JCSGTzbK66bDf
+kDhvUzxJnKUTezXGl5sKTRznla7aurWY5kFjz0b/api8ZCm/LvvsDipZbwwOHm31
+wMj9LPLzd0Sz2c3TyoPc/oCS9KVFnszndjaT6ydRLvHgF2XpPbL+xJz0HJwsvkis
+kls0NHw69GvzTj6kZfz9a5XLpwjoGpeeMNBHw7SDRUNJnOEFwTecJL3NhCVSVgIy
+owYTWDmPR8rcyNd007uhCio2+VxkZE2Hdmk0drz69mp0CNQbxe0qF8XKHTBT74I/
+L3KQITmMpSDNEn8bY/KmKpB6iuVBURvTpz5ZAPStsp4hcp0LlmPuhZZYGWC4Hox5
+svsp95iE5esN67RNUI3/twZhtJu8e5tIKy6qEWMWdrVeI0oVoLmfK+g5uQJaMu+Z
+M/SLeTHjVOSq7r4Tg5Xmd8nzEQ8EyJKZCJshD7LZxjA34bOLID9Vhz0j/uE4IhNI
+APO6gllYsWAGO4hADZH24i8ZvS2dX4ZR2YtLhbwjOXyVK4NYNGUeU5W0StMV8rlx
+VLObQhN762YUFtm5nuP4z2GGcXgA4zCIRklbBw8N6+UP8RB54nrC4Mu6FyPolS3j
+c0cVQG9q1YU5sgokMZwDJSO4AmBYUqckgNFMIRH06qGEqPoKqpi55myrLiZJmgTK
+LuiaREGmyatjqqRm60sHUYrFpY+q/jsClmhvplQwOzAEX8MHwyyBp3tKokmdEniK
+ULF8I4XP70U3jpLOdlPmVbYZ69Wna+5OQNdpvboAoe1l9kB+ZLq9exen0BN/beL8
+hr17q8pZUSPehVlaKgv8/3uQT/Tgi4x+KkAghjwEa97gFsQth50B2gInBK7KcveC
+lRzyYM5CrIx1bXbsw3rgxODLUfX9eNRmXsznDeZZv0X0O18eVcwpp7OYZb4RnmTw
+VkjjW1dfb+ZY/wLfx/LDE/enj3hbnPqjZ48V5UpTiaV3XGMEnMdXmjR1dlsPRJ2D
+os3bzMT/Oo8CHu0VX73+JUrOCGQt3RpDslieQRdW6GEh0oxRo9AL8euDNyWBI1m9
+H8RRyaPwzY9GwTbpwXEtXoywHsuOhbQumng4QFOSDyAOiZoOt0q2MdmfZbyizDIQ
+qIXFsnQG/NI4fUquTwIvmlnkoAtEWlwc41nvW0nEB5LNtUgJ5dvnmvQ4CqewbiMt
+lm9AM47Bo3M/MjBg5NoNalEl1Wqx+H2nm6TslLA0CwNdsCKb/XSipXKwp8iWUZdT
+4TrBk9PO++7+LZkfpokSqjvwQFjGTRwQsTYqNWpMawxxGX9xQPX2xr9HqgGR9/wq
+gQ/GQJmfpOasKCXxUYfZ6RkLm/nkxryRdfdlqQ1l3PaBwSWL4kJaOxJbKQcRUIAb
+HbPzxS1fykZY56Nk8mUtLBVTTSNPLo4VQtqZngEE8FqnAoet2eHnAE/vnMwiVu8p
+lV+WeElUJ83q5UGKPtF6u3w+f989lMY2RA1vpIhN2cNmbuDIsutJjXNHRTHcmAvF
+pnBZingBhr1MVSFIGk5QUTVFkznB/FqBd/gc5HbRRQgg6cym8XaAVLDGuFhBqzbr
+B/bC7d4Qvn7/+G0zus04t1uGP/kGQnufFLO6IZocwGnhR1GdzyCJdfzeF7w3sNAT
+SSx4GPCp5ewRPvoZap81TppRu9MbKQ00CKQMSqTwcFSQ253e5G1a0BSlmV9ElzVd
+6voj4DVV5Lbr+IHIzUPbvZ7PQd6h/EurL1oieITaRm4V3L5o/nlt7V0w7e+PTLOg
+SgupvYl72r405ds8lqlzJ5X2iQ/7qm5QX2DnWSuYNBjUJUxGCi4k3Scc1ZFhxU2j
++SFYrIXhW3BWO5lNij24v9UPmpP4dxRuTYcZfz7c3K9qDgjobKw39OtCHwUGN9Cb
+dsxOQKYYijfNhg0c+uFAjDXaq2Mpn1GM4CUUOdIFEElYeboOmpEQg84O74RrR2LC
+U4mN1/2YuZRiAtht23J07wJr4vMx+yDsTaMvzvNJLT9uV1VChWprfMB/uyW9MLcE
+Sc6xMQsx5shBP5y3q3PX2mODIjg5xSXfWgyI12qK92X8vgzhERzidE64LbtRPio+
+SonNtkQFEbR2O6YmpPQ1lIrmj9+r1vjQGzMMn4317aK0EC0ntbCgX6nanvIvjbAT
+S2YUE0W2Xyx4LO8/d8lxp7LoRzs8ejLUHr9XOeq6qGdPHtTtTyqtqzukRyTdjtK3
+4fZbSeNfCiC/PCbxEqVdGFHZHNKjm2vEQ+vqdP3lvVlnxKGGrQ86Vg44VcF5c+Vp
+6wF2K1+6a0jarc5nAjpRCO0tlvIEmZ4bb0/jelrLhq7fD5689nE043mzNbuBzTGQ
+k+Oe9kcr4wRJfjN1+F3mb94O/WxJSimCniXKEJ5WlJma82jMChyitwVsSTvct8e+
+JXJNNPbX2UdXhpU3GIjp2NKD5p1tjNA1j4lw/aGYcuLQUEu7u3/hdyGbRInI+FVy
+LflkKR3N2uq1HbUomJbt2OyeQalHux652YGU5cshR2AHIn6iB0oIb2oYVzlzthNs
+j+EEIMgZRQzrW1aEf2BTYlwCjRqCYoE0P6fc6RrPMYS+fLmFkjEikrC9mduoWItc
+FtTLD/OY0xhXb5lF9UFFNmQSqMvagfI4GQ9vGg78vatSODw+Js88MqaQa3lbzcP3
+so5Bz2hBMY7bKjppUvseJtZETjSF4pjOVDGdVGpXis1iZj1DkP0IyXgt+u2LkvhQ
+rYtYZHxEUVwjJyEtd0kvXDq5g5jkEO6A9aOMBUU4B4cbrRNVSIfpXPJ7koZpIRwd
+A02+K21gS+DEkE8wBES+Qsuv8lTkTBpSFh60M8snrmJZ/2nJmX0SQ+kMakaCuh0h
+q5orm9wFUiOPOfWJe7JNHJ1pH9Yi+elbQEr4yKc2tuRuLXVNRlMNSWyaEjCUqpi1
+-----END RSA PRIVATE KEY-----

data/tests/jruby/test_jeventmachine.rb

@@ -0,0 +1,38 @@
+if !(RUBY_PLATFORM =~ /java/)
+  puts "Ignoring tests in #{__FILE__}.  They must be run in JRuby "
+else
+  require 'test/unit'
+  require 'jeventmachine'
+
+  class TestJEventmachine < Test::Unit::TestCase
+
+    def setup
+      EventMachine.instance_variable_set("@em", nil)
+      load 'jeventmachine.rb'
+    end
+
+    def test_can_make_calls_without_errors_before_initialization
+      assert_equal nil, EventMachine.signal_loopbreak
+      assert_equal nil, EventMachine.stop_tcp_server(123)
+      assert_equal nil, EventMachine.send_data(123, "rewr", 4)
+      assert_equal nil, EventMachine.close_connection(332, nil)
+    end
+
+    def test_create
+      EventMachine::initialize_event_machine
+      em = EventMachine::instance_variable_get("@em")
+      assert_equal true, em.is_a?(Java::com.rubyeventmachine.EmReactor)
+    end
+
+    def test_can_make_calls_without_errors_after_release
+      EventMachine.initialize_event_machine
+      EventMachine.release_machine
+
+      assert_equal nil, EventMachine.signal_loopbreak
+      assert_equal nil, EventMachine.stop_tcp_server(123)
+      assert_equal nil, EventMachine.send_data(123, "rewr", 4)
+      assert_equal nil, EventMachine.close_connection(332, nil)
+    end
+
+  end
+end

data/tests/test_attach.rb

@@ -0,0 +1,199 @@
+require_relative 'em_test_helper'
+
+class TestAttach < Test::Unit::TestCase
+  class EchoServer < EM::Connection
+    def receive_data data
+      $received_data << data
+      send_data data
+    end
+  end
+
+  class EchoClient < EM::Connection
+    def initialize socket
+      self.notify_readable = true
+      @socket = socket
+      @socket.write("abc\n")
+    end
+
+    def notify_readable
+      $read = @socket.readline
+      $fd = detach
+    end
+
+    def unbind
+      EM.next_tick do
+        @socket.write("def\n")
+        EM.add_timer(0.1) { EM.stop }
+      end
+    end
+  end
+
+  def setup
+    @port = next_port
+    $read, $r, $w, $fd = nil
+    $received_data = ""
+  end
+
+  def teardown
+    [$r, $w].each do |io|
+      io.close rescue nil
+    end
+    $received_data = nil
+  end
+
+  def test_attach
+    socket = nil
+
+    EM.run {
+      EM.start_server "127.0.0.1", @port, EchoServer
+      socket = TCPSocket.new "127.0.0.1", @port
+      EM.watch socket, EchoClient, socket
+    }
+
+    assert_equal $read, "abc\n"
+    unless jruby? # jruby filenos are not real
+      assert_equal $fd, socket.fileno
+    end
+    assert_equal false, socket.closed?
+    assert_equal socket.readline, "def\n"
+  end
+
+  module PipeWatch
+    def notify_readable
+      $read = $r.readline
+      EM.stop
+    end
+  end
+
+  def test_attach_server
+    omit_if(jruby?)
+    $before = TCPServer.new("127.0.0.1", @port)
+    sig     = nil
+    EM.run {
+      sig = EM.attach_server $before, EchoServer
+
+      handler = Class.new(EM::Connection) do
+        def initialize
+          send_data "hello world"
+          close_connection_after_writing
+          EM.add_timer(0.1) { EM.stop }
+        end
+      end
+      EM.connect("127.0.0.1", @port, handler)
+    }
+
+    assert_equal false, $before.closed?
+    assert_equal "hello world", $received_data
+    assert sig.is_a?(Integer)
+  end
+
+  def test_attach_pipe
+    EM.run{
+      $r, $w = IO.pipe
+      EM.watch $r, PipeWatch do |c|
+        c.notify_readable = true
+      end
+      $w.write("ghi\n")
+    }
+
+    assert_equal $read, "ghi\n"
+  end
+
+  def test_set_readable
+    before, after = nil
+
+    EM.run{
+      $r, $w = IO.pipe
+      c = EM.watch $r, PipeWatch do |con|
+        con.notify_readable = false
+      end
+
+      EM.next_tick{
+        before = c.notify_readable?
+        c.notify_readable = true
+        after = c.notify_readable?
+      }
+
+      $w.write("jkl\n")
+    }
+
+    assert !before
+    assert after
+    assert_equal $read, "jkl\n"
+  end
+
+  def test_read_write_pipe
+    result = nil
+
+    pipe_reader = Module.new do
+      define_method :receive_data do |data|
+        result = data
+        EM.stop
+      end
+    end
+
+    r,w = IO.pipe
+
+    EM.run {
+      EM.attach r, pipe_reader
+      writer = EM.attach(w)
+      writer.send_data 'ghi'
+
+      # XXX: Process will hang in Windows without this line
+      writer.close_connection_after_writing
+    }
+
+    assert_equal "ghi", result
+  ensure
+    [r,w].each {|io| io.close rescue nil }
+  end
+
+  # This test shows that watch_only? is true for EM.watch
+  def test_watch_only
+    r, w = IO.pipe
+    $watch_only = nil
+
+    EM.run do
+      EM.watch r do |c|
+        assert_true(c.watch_only?)
+        c.notify_readable = true
+        def c.receive_data data
+          fail('this method should not be called')
+        end
+        def c.notify_readable
+          $watch_only = watch_only?
+        end
+      end
+      w.write 'hello'
+      EM.next_tick { EM.stop }
+    end
+
+    assert_true($watch_only)
+  end
+
+  # This test shows that watch_only? is false for EM.attach
+  def test_attach_data
+    pend("\nFIXME: Freezes Windows testing as of 2018-07-31") if windows?
+    r, w = IO.pipe
+    $watch_only = nil
+    $read = []
+
+    EM.run do
+      EM.attach r do |c|
+        assert_false(c.watch_only?)
+        def c.receive_data data
+          $watch_only = watch_only?
+          $read << data
+        end
+        def c.notify_readable
+          fail('this method should not be called')
+        end
+      end
+      w.write 'world'
+      EM.next_tick { EM.stop }
+    end
+
+    assert_false($watch_only)
+    assert_equal('world', $read.first)
+  end
+end