translate spec/integration/ssl_ber_spec to minitest

Author: Jerry Cheung

spec/integration/ssl_ber_spec.rb

@@ -1,3 +1,4 @@
 # Add 'lib' to load path.
 require 'test/unit'
 require 'net/ldap'
+require 'flexmock/test_unit'

test/common.rb

@@ -0,0 +1,37 @@
+require 'common'
+require 'timeout'
+
+class TestSSLBER < Test::Unit::TestCase
+  # Transmits str to @to and reads it back from @from.
+  #
+  def transmit(str)
+    Timeout::timeout(1) do
+      @to.write(str)
+      @to.close
+
+      @from.read
+    end
+  end
+
+  def setup
+    @from, @to = IO.pipe
+
+    # The production code operates on sockets, which do need #connect called
+    # on them to work. Pipes are more robust for this test, so we'll skip
+    # the #connect call since it fails.
+    flexmock(OpenSSL::SSL::SSLSocket).
+      new_instances.should_receive(:connect => nil)
+
+    @to   = Net::LDAP::Connection.wrap_with_ssl(@to)
+    @from = Net::LDAP::Connection.wrap_with_ssl(@from)
+  end
+
+  def test_transmit_strings
+    assert_equal "foo", transmit("foo")
+  end
+
+  def test_transmit_ber_encoded_numbers
+    @to.write 1234.to_ber
+    assert_equal 1234, @from.read_ber
+  end
+end