pftg-jruby-openssl 0.5.3

data/test/ref/compile.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+
+name = ARGV[0]
+system("rm -rf #{name}")
+system("gcc -lssl -lcrypto -o #{name} #{name}.c")
+system("chmod +x #{name}")
+system("./#{name}")
+

data/test/ref/pkcs1.c

@@ -0,0 +1,21 @@
+
+#include <openssl/pkcs7.h>
+
+void print_pkcs7(PKCS7* p7) {
+    printf(" | asn1     : %s\n", p7->asn1);
+    printf(" | len      : %d\n", p7->length);
+    printf(" | state    : %d\n", p7->state);
+    printf(" | detached : %d\n", p7->detached);
+    printf(" | type     : %d\n", OBJ_nid2obj(p7->type));
+}
+
+int main(int argc, char** argv) {
+    PKCS7* p7;
+    p7 = PKCS7_new();
+
+    printf("--before:\n");
+    print_pkcs7(p7);
+
+    PKCS7_free(p7);
+    return 0;
+}

data/test/test_cipher.rb

@@ -0,0 +1,90 @@
+if defined?(JRUBY_VERSION)
+  require "java"
+  base = File.dirname(__FILE__)
+  $CLASSPATH << File.join(base, '..', 'pkg', 'classes')
+  $CLASSPATH << File.join(base, '..', 'lib', 'bcprov-jdk14-139.jar')
+end
+
+begin
+  require "openssl"
+rescue LoadError
+end
+
+require "test/unit"
+
+class TestCipher < Test::Unit::TestCase
+  def test_encrypt_takes_parameter
+    enc = OpenSSL::Cipher::Cipher.new('DES-EDE3-CBC')
+    enc.encrypt("123")
+    data = enc.update("password")
+    data << enc.final
+  end
+
+  IV_TEMPLATE  = "aaaabbbbccccddddeeeeffffgggghhhhiiiijjjjj"
+  KEY_TEMPLATE = "aaaabbbbccccddddeeeeffffgggghhhhiiiijjjjj"
+
+  # JRUBY-1692
+  def test_repeated_des
+    do_repeated_test(
+                     "des-ede3-cbc",
+                     "foobarbazboofarf",
+                     ":\022Q\211ex\370\332\374\274\214\356\301\260V\025",
+                     "B\242\3531\003\362\3759\363s\203\374\240\030|\230"
+                     )
+  end
+
+  # JRUBY-1692
+  def test_repeated_aes
+    do_repeated_test(
+                     "aes-128-cbc",
+                     "foobarbazboofarf",
+                     "\342\260Y\344\306\227\004^\272|/\323<\016,\226",
+                     "jqO\305/\211\216\b\373\300\274\bw\213]\310"
+                     )
+  end
+
+  def test_rc2
+    do_repeated_test(
+                     "RC2",
+                     "foobarbazboofarf",
+                     "\x18imZ\x9Ed\x15\xF3\xD6\xE6M\xCDf\xAA\xD3\xFE",
+		     "\xEF\xF7\x16\x06\x93)-##\xB2~\xAD,\xAD\x82\xF5"
+		    )
+  end
+
+  private
+  def do_repeated_test(algo, string, enc1, enc2)
+    do_repeated_encrypt_test(algo, string, enc1, enc2)
+    do_repeated_decrypt_test(algo, string, enc1, enc2)
+  end
+  
+  def do_repeated_encrypt_test(algo, string, result1, result2)
+    cipher = OpenSSL::Cipher::Cipher.new(algo)
+    cipher.encrypt
+
+    cipher.padding = 0
+    cipher.iv      = IV_TEMPLATE[0, cipher.iv_len]
+    cipher.key     = KEY_TEMPLATE[0, cipher.key_len]
+
+    assert_equal result1, cipher.update(string)
+    cipher.final
+
+    assert_equal result2, cipher.update(string)
+    cipher.final
+  end
+
+  def do_repeated_decrypt_test(algo, result, string1, string2)
+    cipher = OpenSSL::Cipher::Cipher.new(algo)
+    cipher.decrypt
+
+    cipher.padding = 0
+    cipher.iv      = IV_TEMPLATE[0, cipher.iv_len]
+    cipher.key     = KEY_TEMPLATE[0, cipher.key_len]
+
+    assert_equal result, cipher.update(string1)
+    cipher.final
+
+    assert_equal result, cipher.update(string2)
+    cipher.final
+  end
+end

data/test/test_integration.rb

@@ -0,0 +1,100 @@
+if defined?(JRUBY_VERSION)
+  require "java"
+  base = File.join(File.dirname(__FILE__), '..')
+  $CLASSPATH << File.join(base, 'pkg', 'classes')
+  $CLASSPATH << File.join(base, 'lib', 'bcprov-jdk14-139.jar')
+end
+
+begin
+  require "openssl"
+rescue LoadError
+end
+require "test/unit"
+require 'net/https'
+
+class TestIntegration < Test::Unit::TestCase
+  # JRUBY-2471
+  def _test_drb
+    config = {
+      :SSLVerifyMode => OpenSSL::SSL::VERIFY_PEER,
+      :SSLCACertificateFile => File.join(File.dirname(__FILE__), "fixture", "cacert.pem"),
+      :SSLPrivateKey => OpenSSL::PKey::RSA.new(File.read(File.join(File.dirname(__FILE__), "fixture", "localhost_keypair.pem"))),
+      :SSLCertificate => OpenSSL::X509::Certificate.new(File.read(File.join(File.dirname(__FILE__), "fixture", "cert_localhost.pem"))),
+    }
+    p config
+    DRb.start_service(nil, nil, config)
+  end
+
+  # JRUBY-2913
+  # Warning - this test actually uses the internet connection.
+  # If there is no connection, it will fail.
+  def test_ca_path_name
+    uri = URI.parse('https://www.paypal.com')
+
+    http = Net::HTTP.new(uri.host, uri.port)
+    http.verify_mode = OpenSSL::SSL::VERIFY_PEER
+    http.ca_path = "./"
+    http.use_ssl = true
+
+    response = http.start do |s|
+      assert s.get(uri.request_uri).length > 0
+    end
+  end
+  
+  # JRUBY-2178 and JRUBY-1307
+  # Warning - this test actually uses the internet connection.
+  # If there is no connection, it will fail.
+  # This test generally throws an exception
+  # about illegal_parameter when
+  # it can't use the cipher string correctly
+  def test_cipher_strings
+    socket = TCPSocket.new('rubyforge.org', 443)
+    ctx = OpenSSL::SSL::SSLContext.new
+    ctx.cert_store = OpenSSL::X509::Store.new
+    ctx.verify_mode = 0
+    ctx.cert = nil
+    ctx.key = nil
+    ctx.client_ca = nil
+    ctx.ciphers = "ALL:!ADH:!LOW:!EXP:!MD5:@STRENGTH"
+
+    ssl_socket = OpenSSL::SSL::SSLSocket.new(socket, ctx)
+    ssl_socket.connect
+    ssl_socket.close
+  end
+
+  # JRUBY-1194
+  def test_des_encryption
+    iv  = "IVIVIVIV"
+    key = "KEYKEYKE"
+    alg = "des"
+    str = "string abc foo bar baxz"
+        
+    cipher = OpenSSL::Cipher::Cipher.new(alg)
+    cipher.encrypt(key, iv)
+    cipher.padding = 32
+    cipher.key = key
+    cipher.iv = iv
+    
+    encrypted = cipher.update(str)
+    encrypted << cipher.final
+ 
+    assert_equal "\253\305\306\372;\374\235\302\357/\006\360\355XO\232\312S\356* #\227\217", encrypted
+  end
+  
+  def _test_perf_of_nil
+# require 'net/https'
+# require 'benchmark'
+
+# def request(data)
+#   connection = Net::HTTP.new("www.google.com", 443)
+#   connection.use_ssl = true
+#   connection.verify_mode = OpenSSL::SSL::VERIFY_NONE
+#   connection.start do |connection|
+#     connection.request_post("/tbproxy/spell?lang=en", data, { 'User-Agent' => "Test", 'Accept' => 'text/xml' })
+#   end
+# end
+
+# puts "is not: #{Benchmark.measure { request("") }.to_s.chomp}"
+# puts "is nil: #{Benchmark.measure { request(nil) }.to_s.chomp}"
+  end
+end

data/test/test_java.rb

@@ -0,0 +1,98 @@
+$:.unshift File.join(File.dirname(__FILE__), '..', 'mocha', 'lib')
+
+require "test/unit"
+require 'mocha'
+
+if defined?(JRUBY_VERSION)
+  require "java"
+  $CLASSPATH << 'pkg/classes'
+  $CLASSPATH << 'lib/bcprov-jdk14-139.jar'
+  
+  module PKCS7Test
+    module ASN1
+      OctetString = org.bouncycastle.asn1.DEROctetString
+    end
+    
+    PKCS7 = org.jruby.ext.openssl.impl.PKCS7 unless defined?(PKCS7)
+    Attribute = org.jruby.ext.openssl.impl.Attribute unless defined?(Attribute)
+    Digest = org.jruby.ext.openssl.impl.Digest unless defined?(Digest)
+    EncContent = org.jruby.ext.openssl.impl.EncContent unless defined?(EncContent)
+    Encrypt = org.jruby.ext.openssl.impl.Encrypt unless defined?(Encrypt)
+    Envelope = org.jruby.ext.openssl.impl.Envelope unless defined?(Envelope)
+    IssuerAndSerial = org.jruby.ext.openssl.impl.IssuerAndSerial unless defined?(IssuerAndSerial)
+    RecipInfo = org.jruby.ext.openssl.impl.RecipInfo unless defined?(RecipInfo)
+    SignEnvelope = org.jruby.ext.openssl.impl.SignEnvelope unless defined?(SignEnvelope)
+    Signed = org.jruby.ext.openssl.impl.Signed unless defined?(Signed)
+    SMIME = org.jruby.ext.openssl.impl.SMIME unless defined?(SMIME)
+    Mime = org.jruby.ext.openssl.impl.Mime unless defined?(Mime)
+    MimeHeader = org.jruby.ext.openssl.impl.MimeHeader unless defined?(MimeHeader)
+    MimeParam = org.jruby.ext.openssl.impl.MimeParam unless defined?(MimeParam)
+    BIO = org.jruby.ext.openssl.impl.BIO unless defined?(BIO)
+    PKCS7Exception = org.jruby.ext.openssl.impl.PKCS7Exception unless defined?(PKCS7Exception)
+    ASN1Registry = org.jruby.ext.openssl.impl.ASN1Registry unless defined?(ASN1Registry)
+    AlgorithmIdentifier = org.bouncycastle.asn1.x509.AlgorithmIdentifier unless defined?(AlgorithmIdentifier)
+    SignerInfoWithPkey = org.jruby.ext.openssl.impl.SignerInfoWithPkey unless defined?(SignerInfoWithPkey)
+    IssuerAndSerialNumber = org.bouncycastle.asn1.pkcs.IssuerAndSerialNumber unless defined?(IssuerAndSerialNumber)
+    ASN1InputStream = org.bouncycastle.asn1.ASN1InputStream unless defined?(ASN1InputStream)
+    X509AuxCertificate = org.jruby.ext.openssl.x509store.X509AuxCertificate unless defined?(X509AuxCertificate)
+    
+    ArrayList = java.util.ArrayList unless defined?(ArrayList)
+    CertificateFactory = java.security.cert.CertificateFactory unless defined?(CertificateFactory)
+    BCP = org.bouncycastle.jce.provider.BouncyCastleProvider unless defined?(BCP)
+    ByteArrayInputStream = java.io.ByteArrayInputStream unless defined?(ByteArrayInputStream)
+    BigInteger = java.math.BigInteger unless defined?(BigInteger)
+    Cipher = javax.crypto.Cipher unless defined?(Cipher)
+
+    DERInteger = org.bouncycastle.asn1.DERInteger
+    DERSet = org.bouncycastle.asn1.DERSet
+    DEROctetString = org.bouncycastle.asn1.DEROctetString 
+    X509Name = org.bouncycastle.asn1.x509.X509Name
+    
+    
+    MimeEnvelopedString = File::read(File.join(File.dirname(__FILE__), 'pkcs7_mime_enveloped.message'))
+    MimeSignedString = File::read(File.join(File.dirname(__FILE__), 'pkcs7_mime_signed.message'))
+    MultipartSignedString = File::read(File.join(File.dirname(__FILE__), 'pkcs7_multipart_signed.message'))
+
+    X509CertString = <<CERT
+-----BEGIN CERTIFICATE-----
+MIICijCCAXKgAwIBAgIBAjANBgkqhkiG9w0BAQUFADA9MRMwEQYKCZImiZPyLGQB
+GRYDb3JnMRkwFwYKCZImiZPyLGQBGRYJcnVieS1sYW5nMQswCQYDVQQDDAJDQTAe
+Fw0wODA3MDgxOTE1NDZaFw0wODA3MDgxOTQ1NDZaMEQxEzARBgoJkiaJk/IsZAEZ
+FgNvcmcxGTAXBgoJkiaJk/IsZAEZFglydWJ5LWxhbmcxEjAQBgNVBAMMCWxvY2Fs
+aG9zdDCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAy8LEsNRApz7U/j5DoB4X
+BgO9Z8Atv5y/OVQRp0ag8Tqo1YewsWijxEWB7JOATwpBN267U4T1nPZIxxEEO7n/
+WNa2ws9JWsjah8ssEBFSxZqdXKSLf0N4Hi7/GQ/aYoaMCiQ8jA4jegK2FJmXM71u
+Pe+jFN/peeBOpRfyXxRFOYcCAwEAAaMSMBAwDgYDVR0PAQH/BAQDAgWgMA0GCSqG
+SIb3DQEBBQUAA4IBAQCU879BALJIM9avHiuZ3WTjDy0UYP3ZG5wtuSqBSnD1k8pr
+hXfRaga7mDj6EQaGUovImb+KrRi6mZc+zsx4rTxwBNJT9U8yiW2eYxmgcT9/qKrD
+/1nz+e8NeUCCDY5UTUHGszZw5zLEDgDX2n3E/CDIZsoRSyq5vXq1jpfih/tSWanj
+Y9uP/o8Dc7ZcRJOAX7NPu1bbZcbxEbZ8sMe5wZ5HNiAR6gnOrjz2Yyazb//PSskE
+4flt/2h4pzGA0/ZHcnDjcoLdiLtInsqPOlVDLgqd/XqRYWtj84N4gw1iS9cHyrIZ
+dqbS54IKvzElD+R0QVS2z6TIGJSpuSBnZ4yfuNuq
+-----END CERTIFICATE-----
+CERT
+
+    X509CRLString = <<CRL
+----BEGIN X509 CRL-----
+MIIBlTB/AgEBMA0GCSqGSIb3DQEBBQUAMD0xEzARBgoJkiaJk/IsZAEZFgNvcmcx
+GTAXBgoJkiaJk/IsZAEZFglydWJ5LWxhbmcxCzAJBgNVBAMMAkNBFw0wODA3MTgx
+NzQxMjhaFw0wODA3MTgxODA4MDhaoA4wDDAKBgNVHRQEAwIBATANBgkqhkiG9w0B
+AQUFAAOCAQEASJaj1keN+tMmsF3QmjH2RhbW/9rZAl4gjv+uQQqrcS2ByfkXLU1d
+l/8rCHeT/XMoeU6xhQNHPP3uZBwfuuETcp65BMBcZFOUhUR0U5AaGhvSDS/+6EsP
+zFdQgAagmThFdN5ei9guTLqWwN0ZyqiaHyevFJuk+L9qbKavaSeKqfJbU7Sj/Z3J
+WLKoixvyj3N6W7evygH80lTvjZugmxJ1/AjICVSYr1hpHHd6EWq0b0YFrGFmg27R
+WmsAXd0QV5UChfAJ2+Cz5U1bPszvIJGrzfAIoLxHv5rI5rseQzqZdPaFSe4Oehln
+9qEYmsK3PS6bYoQol0cgj97Ep4olS8CulA==
+-----END X509 CRL-----
+CRL
+    
+    X509Cert = X509AuxCertificate.new(CertificateFactory.getInstance("X.509",BCP.new).generateCertificate(ByteArrayInputStream.new(X509CertString.to_java_bytes)))
+    X509CRL = CertificateFactory.getInstance("X.509",BCP.new).generateCRL(ByteArrayInputStream.new(X509CRLString.to_java_bytes))
+  end
+  
+  require File.join(File.dirname(__FILE__), 'test_java_attribute')
+  require File.join(File.dirname(__FILE__), 'test_java_bio')
+  require File.join(File.dirname(__FILE__), 'test_java_mime')
+  require File.join(File.dirname(__FILE__), 'test_java_pkcs7')
+  require File.join(File.dirname(__FILE__), 'test_java_smime')
+end

data/test/test_java_attribute.rb

@@ -0,0 +1,25 @@
+module PKCS7Test
+  class TestJavaAttribute < Test::Unit::TestCase
+    def test_attributes
+      val = ASN1::OctetString.new("foo".to_java_bytes)
+      val2 = ASN1::OctetString.new("bar".to_java_bytes)
+      attr = Attribute.create(123, 444, val)
+      assert_raises NoMethodError do 
+        attr.type = 12
+      end
+      assert_raises NoMethodError do 
+        attr.value = val2
+      end
+
+      assert_equal 123, attr.type
+      assert_equal val, attr.set.get(0)
+
+      attr2 = Attribute.create(123, 444, val)
+      
+      assert_equal attr, attr2
+      
+      assert_not_equal Attribute.create(124, 444, val), attr
+      assert_not_equal Attribute.create(123, 444, val2), attr
+    end
+  end
+end

data/test/test_java_bio.rb

@@ -0,0 +1,42 @@
+module PKCS7Test
+  class TestJavaBIO < Test::Unit::TestCase
+    def test_string_bio_simple
+      bio = BIO::from_string("abc")
+      arr = Java::byte[20].new
+      read = bio.gets(arr, 10)
+      assert_equal 3, read
+      assert_equal "abc".to_java_bytes.to_a, arr.to_a[0...read]
+    end
+
+    def test_string_bio_simple_with_newline
+      bio = BIO::from_string("abc\n")
+      arr = Java::byte[20].new
+      read = bio.gets(arr, 10)
+      assert_equal 4, read
+      assert_equal "abc\n".to_java_bytes.to_a, arr.to_a[0...read]
+    end
+
+    def test_string_bio_simple_with_newline_and_more_data
+      bio = BIO::from_string("abc\nfoo\n\nbar")
+      arr = Java::byte[20].new
+      read = bio.gets(arr, 10)
+      assert_equal 4, read
+      assert_equal "abc\n".to_java_bytes.to_a, arr.to_a[0...read]
+
+      read = bio.gets(arr, 10)
+      assert_equal 4, read
+      assert_equal "foo\n".to_java_bytes.to_a, arr.to_a[0...read]
+    
+      read = bio.gets(arr, 10)
+      assert_equal 1, read
+      assert_equal "\n".to_java_bytes.to_a, arr.to_a[0...read]
+
+      read = bio.gets(arr, 10)
+      assert_equal 3, read
+      assert_equal "bar".to_java_bytes.to_a, arr.to_a[0...read]
+
+      read = bio.gets(arr, 10)
+      assert_equal 0, read
+    end
+  end
+end

data/test/test_java_mime.rb

@@ -0,0 +1,173 @@
+module PKCS7Test
+  class TestJavaMime < Test::Unit::TestCase
+    def test_find_header_returns_null_on_nonexisting_header
+      headers = []
+      assert_nil Mime::DEFAULT.find_header(headers, "foo")
+
+      headers = [MimeHeader.new("blarg", "bluff")]
+      assert_nil Mime::DEFAULT.find_header(headers, "foo")
+    end
+
+    def test_find_header_returns_the_header_with_the_same_name
+      hdr = MimeHeader.new("one", "two")
+      assert_equal hdr, Mime::DEFAULT.find_header([hdr], "one")
+    end
+
+    def test_find_param_returns_null_on_nonexisting_param
+      assert_nil Mime::DEFAULT.find_param(MimeHeader.new("one", "two", []), "foo")
+      assert_nil Mime::DEFAULT.find_param(MimeHeader.new("one", "two", [MimeParam.new("hi", "ho")]), "foo")
+    end
+
+    def test_find_param_returns_the_param_with_the_same_name
+      par = MimeParam.new("hox", "box")
+      hdr = MimeHeader.new("one", "two", [par])
+      assert_equal par, Mime::DEFAULT.find_param(hdr, "hox")
+    end
+    
+    def test_simple_parse_headers
+      bio = BIO::from_string("Foo: bar")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_simple_parse_headers2
+      bio = BIO::from_string("Foo:bar")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_simple_parse_headers3
+      bio = BIO::from_string("Foo: bar")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_simple_parse_headers4
+      bio = BIO::from_string("Foo: bar\n")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_simple_parse_headers5
+      bio = BIO::from_string("     Foo        :                    bar    \n")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+
+    def test_simple_parse_headers6
+      bio = BIO::from_string("Foo: bar;\n")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_simple_parse_headers7
+      bio = BIO::from_string("Foo: bar;\nFlurg: blarg")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 2, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal MimeHeader.new("Flurg", "blarg"), result[1]
+      assert_equal "foo", result[0].name
+      assert_equal "flurg", result[1].name
+    end
+
+    def test_simple_parse_headers_quotes
+      bio = BIO::from_string("Foo: \"bar\"")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "bar"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_simple_parse_headers_comment
+      bio = BIO::from_string("Foo: (this is the right thing)ba(and this is the wrong one)r")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      assert_equal MimeHeader.new("Foo", "(this is the right thing)ba(and this is the wrong one)r"), result[0]
+      assert_equal "foo", result[0].name
+    end
+
+    def test_parse_headers_with_param
+      bio = BIO::from_string("Content-Type: Multipart/Related; boundary=MIME_boundary; type=text/xml")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      header = result[0]
+      assert_equal "content-type", header.name
+      assert_equal "multipart/related", header.value
+      assert_equal [MimeParam.new("boundary","MIME_boundary"), 
+                    MimeParam.new("type","text/xml")], header.params.to_a
+    end
+
+    def test_parse_headers_with_param_newline
+      bio = BIO::from_string("Content-Type: Multipart/Related\n boundary=MIME_boundary; type=text/xml")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      header = result[0]
+      assert_equal "content-type", header.name
+      assert_equal "multipart/related", header.value
+      assert_equal [MimeParam.new("boundary","MIME_boundary"), 
+                    MimeParam.new("type","text/xml")], header.params.to_a
+    end
+
+    def test_parse_headers_with_param_newline_and_semicolon
+      bio = BIO::from_string("Content-Type: Multipart/Related;\n boundary=MIME_boundary;\n Type=text/xml")
+      result = Mime::DEFAULT.parse_headers(bio)
+      assert_equal 1, result.size
+      header = result[0]
+      assert_equal "content-type", header.name
+      assert_equal "multipart/related", header.value
+      assert_equal [MimeParam.new("boundary","MIME_boundary"), 
+                    MimeParam.new("type","text/xml")], header.params.to_a
+    end
+
+    def test_advanced_mime_message
+      bio = BIO::from_string(MultipartSignedString)
+      result = Mime::DEFAULT.parse_headers(bio)
+      
+      assert_equal "mime-version", result[0].name
+      assert_equal "1.0", result[0].value
+      
+      assert_equal "to", result[1].name
+      assert_equal "user2@examples.com", result[1].value
+
+      assert_equal "from", result[2].name
+      assert_equal "alicedss@examples.com", result[2].value
+
+      assert_equal "subject", result[3].name
+      assert_equal "example 4.8", result[3].value
+
+      assert_equal "message-id", result[4].name
+      assert_equal "<020906002550300.249@examples.com>", result[4].value
+
+      assert_equal "date", result[5].name
+      assert_equal "fri, 06 sep 2002 00:25:21 -0300", result[5].value
+      
+      assert_equal "content-type", result[6].name
+      assert_equal "multipart/signed", result[6].value
+      
+      assert_equal "micalg", result[6].params[0].param_name
+      assert_equal "SHA1", result[6].params[0].param_value
+
+      assert_equal "boundary", result[6].params[1].param_name
+      assert_equal "----=_NextBoundry____Fri,_06_Sep_2002_00:25:21", result[6].params[1].param_value
+
+      assert_equal "protocol", result[6].params[2].param_name
+      assert_equal "application/pkcs7-signature", result[6].params[2].param_value
+      
+      assert_equal 3, result[6].params.length
+      assert_equal 7, result.length
+    end
+  end
+end