wj_eventmachine 1.3.0.dev.1

data/tests/client.crt

@@ -0,0 +1,31 @@
+-----BEGIN CERTIFICATE-----
+MIIFRDCCAywCAQEwDQYJKoZIhvcNAQEFBQAwaDELMAkGA1UEBhMCRU0xFTATBgNV
+BAgTDEV2ZW50TWFjaGluZTEVMBMGA1UEChMMRXZlbnRNYWNoaW5lMRQwEgYDVQQL
+EwtEZXZlbG9wbWVudDEVMBMGA1UEAxMMRXZlbnRNYWNoaW5lMB4XDTA5MDMyOTAy
+MzE0NloXDTEwMDMyOTAyMzE0NlowaDELMAkGA1UEBhMCRU0xFTATBgNVBAgTDEV2
+ZW50TWFjaGluZTEVMBMGA1UEChMMRXZlbnRNYWNoaW5lMRQwEgYDVQQLEwtEZXZl
+bG9wbWVudDEVMBMGA1UEAxMMRXZlbnRNYWNoaW5lMIICIjANBgkqhkiG9w0BAQEF
+AAOCAg8AMIICCgKCAgEAv1FSOIX1z7CQtVBFlrB0A3/V29T+22STKKmiRWYkKL5b
++hkrp9IZ5J4phZHgUVM2VDPOO2Oc2PU6dlGGZISg+UPERunTogxQKezCV0vcE9cK
+OwzxCFDRvv5rK8aKMscfBLbNKocAXywuRRQmdxPiVRzbyPrl+qCr/EDLXAX3D77l
+S8n2AwDg19VyI+IgFUE+Dy5e1eLoY6nV+Mq+vNXdn3ttF3t+ngac5pj5Q9h+pD5p
+67baDHSnf/7cy2fa/LKrLolVHQR9G2K6cEfeM99NtcsMbkoPs4iI3FA05OVTQHXg
+C8C8cRxrb9APl95I/ep65OIaCJgcdYxJ3QD3qOtQo6/NQsGnjbyiUxaEpjfqyT1N
+uzWD81Q8uXGNS8yD6dDynt/lseBjyp2nfC3uQ5fY18VdIcu0MJ9pezBUKrNuhlsy
+XXEZ2DXj4sY8QOvIcBqSB/zmS1nGEK55xrtkaiaNrY8fe8wRVpcPLxy+P225NFw+
+B69FJRA0Lj6Jt9BM4hV/3MSIEWwTVhuw4E02ywDYTzz1wq3ITf0tsbIPn0hXQMxD
+ohhAoKioM6u+yHtqsxD0eYaAWmHTVn5oDvOSGpvCpBfWHyA7FP5UQak0fKABEAgK
+iQYEnb294AXwXymJttfGTIV/Ne4tLN5dIpNma8UO8rlThlcr6xnTQDbR3gkTDRsC
+AwEAATANBgkqhkiG9w0BAQUFAAOCAgEAj7J8fy1LUWoVWnrXDAC9jwJ1nI/YjoSU
+6ywke3o04+nZC5S+dPnuVy+HAwsU940CoNvP6RStI/bH6JL+NIqEFmwM3M8xIEWV
+MYVPkfvQUxxGvDnaY7vv93u+6Q77HV3qlhAQBHChyuXyO7TG3+WzsiT9AnBNtAP0
+4jClt5kCAQXLO/p0SFEZQ8Ru9SM8d1i73Z0VDVzs8jYWlBhiherSgbw1xK4wBOpJ
+43XmjZsBSrDpiAXd07Ak3UL2GjfT7eStgebL3UIe39ThE/s/+l43bh0M6WbOBvyQ
+i/rZ50kd1GvN0xnZhtv07hIJWO85FGWi7Oet8AzdUZJ17v1Md/f2vdhPVTFN9q+w
+mQ6LxjackqCvaJaQfBEbqsn2Tklxk4tZuDioiQbOElT2e6vljQVJWIfNx38Ny2LM
+aiXQPQu+4CI7meAh5gXM5nyJGbZvRPsxj89CqYzyHCYs5HBP3AsviBvn26ziOF+c
+544VmHd9HkIv8UTC29hh+R64RlgMQQQdaXFaUrFPTs/do0k8n/c2bPc0iTdfi5Q2
+gq6Vi8q6Ay5wGgTtRRbn/mWKuCFjEh94z6pF9Xr06NX0PuEOdf+Ls9vI5vz6G0w6
+0Li7devEN7EKBY+7Mcjg918yq9i5tEiMkUgT68788t3fTC+4iUQ5fDtdrHsaOlIR
+8bs/XQVNE/s=
+-----END CERTIFICATE-----

data/tests/client.key

@@ -0,0 +1,51 @@
+-----BEGIN RSA PRIVATE KEY-----
+MIIJKAIBAAKCAgEAv1FSOIX1z7CQtVBFlrB0A3/V29T+22STKKmiRWYkKL5b+hkr
+p9IZ5J4phZHgUVM2VDPOO2Oc2PU6dlGGZISg+UPERunTogxQKezCV0vcE9cKOwzx
+CFDRvv5rK8aKMscfBLbNKocAXywuRRQmdxPiVRzbyPrl+qCr/EDLXAX3D77lS8n2
+AwDg19VyI+IgFUE+Dy5e1eLoY6nV+Mq+vNXdn3ttF3t+ngac5pj5Q9h+pD5p67ba
+DHSnf/7cy2fa/LKrLolVHQR9G2K6cEfeM99NtcsMbkoPs4iI3FA05OVTQHXgC8C8
+cRxrb9APl95I/ep65OIaCJgcdYxJ3QD3qOtQo6/NQsGnjbyiUxaEpjfqyT1NuzWD
+81Q8uXGNS8yD6dDynt/lseBjyp2nfC3uQ5fY18VdIcu0MJ9pezBUKrNuhlsyXXEZ
+2DXj4sY8QOvIcBqSB/zmS1nGEK55xrtkaiaNrY8fe8wRVpcPLxy+P225NFw+B69F
+JRA0Lj6Jt9BM4hV/3MSIEWwTVhuw4E02ywDYTzz1wq3ITf0tsbIPn0hXQMxDohhA
+oKioM6u+yHtqsxD0eYaAWmHTVn5oDvOSGpvCpBfWHyA7FP5UQak0fKABEAgKiQYE
+nb294AXwXymJttfGTIV/Ne4tLN5dIpNma8UO8rlThlcr6xnTQDbR3gkTDRsCAwEA
+AQKCAgB495RDRQB9x6hX3F+DviI8rDGug+h5FAiwJ0IBG2o1kNdbNVsTC5dvpEmg
+uPHaugCaEP+PMZbU34mNklKlb+7QbPbH18UGqz5so9TlmYOXz9oaKD6nAWL9nqRo
+02pCXQDR3DuxbhbgFnFTIECJ/jqXkl2toGaVp83W+6kZkHP8srkMyLASihWgosc+
+xRWAGvaAZtNz7br+eT5fxuH/SEKPOl1qAZ23kXrXm1XQfizk8MnMTptkUMYv+hfl
+TM98BASUsiTs6g+opy43HFn09naOQcqkWZO/8s6Gbvhi2lVfZqi5Ba6g3lVYJ3gU
+kGoako4N9qB7WqJz+LYjVR9C4TbkkJ9OD6ArwGAx5IIzC3XKSxCyY/pUn4YumPhY
+fjvY/km54TBtx/isS1TAgjSgDUxbzrfbkh7afOXSOniy9bWJMgNqHF61dqxWxmUg
+F5Tch9zH3qFFVkXpYzDU/R8ZV+CRouCvhn0eZYDh8IqIAwjH0VjkxjPyQtrdrMd3
+gDKMVKoY31EOMLZzv8a0prjpr15A+uw30tT336qb3fofks4pZKUJw8ru9jJVir2p
++RML6iUHCmIeceF7/N1meooSMLPJe0xgKeMb9M4Wtd/et2UNVtP8nCDG622rf2a0
+F/EudXuFgc3FB8nXRw9TCkw9xKQff38edG5xPFUEgqObbVl5YQKCAQEA5DDKGOmp
+EO5Zuf/kZfG6/AMMYwAuv1HrYTV2w/HnI3tyQ34Xkeqo+I/OqmRk68Ztxw4Kx1So
+SRavkotrlWhhDpl2+Yn1BjkHktSoOdf9gJ9z9llkLmbOkBjmupig1NUB7fq/4y2k
+MdqJXDy3uVKHJ97gxdIheMTyHiKuMJPnuT5lZtlT210Ig82P7sLQb/sgCfKVFTr0
+Z3haQ5/tBNKjq+igT4nMBWupOTD1q2GeZLIZACnmnUIhvu+3/bm0l+wiCB0DqF0T
+Wy9tlL3fqQSCqzevL7/k5Lg6tJTaP/XYePB73TsOtAXgIaoltXgRBsBUeE1eaODx
+kMT6E1PPtn7EqQKCAQEA1qImmTWGqhKICrwje40awPufFtZ/qXKVCN/V+zYsrJV1
+EnZpUDM+zfitlQCugnrQVHSpgfekI6mmVkmogO3fkNjUFTq+neg7IHOUHnqotx+3
+NMqIsyFInGstu9mfPd26fzZjUtx5wKF38LDTIJJAEJ83U3UpPBfpwKmiOGDXOa54
+2i4em/bb/hrQR6JySruZYLi0fXnGI5ZOfpkHgC/KOFkKNKAg2oh4B9qo7ACyiSNk
+yojb2mmn6g1OLPxi7wGUSrkS1HQq4an6RZ+eUO0HXVWag0QStdQ91M9IrIHgSBBG
+0e86Ar6jtD579gqsbz4ySpI/FqEI9obTC+E1/b0aIwKCAQAGz334qGCnZLXA22ZR
+tJlEFEM2YTcD9snzqMjWqE2hvXl3kjfZ3wsUABbG9yAb+VwlaMHhmSE8rTSoRwj6
++JaM/P+UCw4JFYKoWzh6IXwrbpbjb1+SEvdvTY71WsDSGVlpZOZ9PUt9QWyAGD/T
+hCcMhZZn0RG2rQoc5CQWxxNPcBFOtIXQMkKizGvTUHUwImqeYWMZsxzASdNH2WoV
+jsPbyaGfPhmcv83ZKyDp8IvtrXMZkiaT4vlm3Xi8VeKR9jY9z7/gMob1XcEDg3c9
+cCkGOy87WZrXSLhX02mAJzJCycqom66gqNw7pPxjIiY/8VWUEZsTvkL3cymTkhjM
+9ZOhAoIBAGUaNqJe01NTrV+ZJgGyAxM6s8LXQYV5IvjuL2bJKxwUvvP2cT9FFGWD
+qYiRrKJr5ayS07IUC+58oIzu33/0DSa27JgfduD9HrT3nKMK1mSEfRFSAjiXChQc
+bIubRGapBoub/AdxMazqoovvT1R9b84kobQfcVAMV6DYh0CVZWyXYfgsV2DSVOiK
+iufjfoDzg5lLCEI+1XW3/LunrB/W4yPN1X/amf8234ublYyt+2ucD4NUGnP05xLa
+N6P7M0MwdEEKkvMe0YBBSFH5kWK/dIOjqkgBDes20fVnuuz/tL1dZW7IiIP4dzaV
+ZGEOwBEatCfqYetv6b/u3IUxDfS7Wg8CggEBALoOwkn5LGdQg+bpdZAKJspGnJWL
+Kyr9Al2tvgc69rxfpZqS5eDLkYYCzWPpspSt0Axm1O7xOUDQDt42luaLNGJzHZ2Q
+Hn0ZNMhyHpe8d8mIQngRjD+nuLI/uFUglPzabDOCOln2aycjg1mA6ecXP1XMEVbu
+0RB/0IE36XTMfZ+u9+TRjkBLpmUaX1FdIQQWfwUou/LfaXotoQlhSGAcprLrncuJ
+T44UATYEgO/q9pMM33bdE3eBYZHoT9mSvqoLCN4s0LuwOYItIxLKUj0GulL0VQOI
+SZi+0A1c8cVDXgApkBrWPDQIR9JS4de0gW4hnDoUvHtUc2TYPRnz6N9MtFY=
+-----END RSA PRIVATE KEY-----

data/tests/dhparam.pem

@@ -0,0 +1,13 @@
+-----BEGIN DH PARAMETERS-----
+MIICCAKCAgEAikiatXa5aAteOtd6hOO33npjCvJByD3dwuM8rWzz0DFZdUH9nFJi
+b0VvTVweVECb6XZBsrDNLqGQykCrm43swSk5D9XQCGJLxFERD6yk3b90xaeCm3/a
+b0Ek5ZVvV73Cc/YbVmpBiOHoTFpUFJLZ7pLMQUSn8y3qUlNcY9/88HuwFi1s1lRM
+ovihSRyZMYAuYWOD4yuOuIcroKVjD6gWFrsW9XrALWny6vUXQrhk8Q3rj+wM6ZtE
+5afcB0b6ZJtphrDfk3dFjOVG/zVT37VWgrY8GABrpo2ey0W0WIQJ7rDKLaPaI4kc
+voOgC2K8Z3kSARZK+jULnwmBeYECz4EH/FF6FEp3GOKtkL4mqEkvh1n5EAesDOGl
+iiX+RZXcUrZliSeifSXBTMJWWFVC0fkGIMb9PTZfZHyAC54lpuxzVki0HIyQG9Fs
+41zBJ5e8eEoXXlfUYtduUC35YGy2IxSzYLAJE76rctAZSWghha9xLOCDFoLjMr8h
+FosKeHKJcBQ0bc8ymOpRIfrYLWhc0Pz2zkpJ/4eYw9t7NYg7S+jP19IE0gUnuM9v
+SpoYMtS28tP9nEdokdwuBKD0D3bJEBBefDlHgfXoMgvy9Hivc9PBGGNTNpyFPpwF
+sWVAkfhoNMJMC5V7LZsze+lftiDtzVoLSPDa9bO4BK7b/MgwCxfOhGsCAQI=
+-----END DH PARAMETERS-----

data/tests/em_ssl_handlers.rb

@@ -0,0 +1,153 @@
+# 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_value      = nil
+      @@cipher_bits     = nil
+      @@cipher_name     = nil
+      @@cipher_protocol = nil
+      @@client_unbind = @@tls ? @@tls.delete(:client_unbind) : nil
+    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_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