|
|
0ed7bc |
--- trunk/t/local/33_x509_create_cert.t 2014/06/07 06:03:48 414
|
|
|
0ed7bc |
+++ trunk/t/local/33_x509_create_cert.t 2015/06/25 23:03:34 448
|
|
|
0ed7bc |
@@ -2,7 +2,7 @@
|
|
|
0ed7bc |
|
|
|
0ed7bc |
use strict;
|
|
|
0ed7bc |
use warnings;
|
|
|
0ed7bc |
-use Test::More tests => 123;
|
|
|
0ed7bc |
+use Test::More tests => 121;
|
|
|
0ed7bc |
use Net::SSLeay qw/MBSTRING_ASC MBSTRING_UTF8 EVP_PK_RSA EVP_PKT_SIGN EVP_PKT_ENC/;
|
|
|
0ed7bc |
use File::Spec;
|
|
|
0ed7bc |
use utf8;
|
|
|
0ed7bc |
@@ -99,10 +99,13 @@
|
|
|
0ed7bc |
}
|
|
|
0ed7bc |
ok(my $alg1 = Net::SSLeay::EVP_get_cipherbyname("DES-EDE3-CBC"), "EVP_get_cipherbyname");
|
|
|
0ed7bc |
like(my $key_pem3 = Net::SSLeay::PEM_get_string_PrivateKey($pk,"password",$alg1), qr/-----BEGIN (ENCRYPTED|RSA) PRIVATE KEY-----/, "PEM_get_string_PrivateKey+passwd+enc_alg");
|
|
|
0ed7bc |
-
|
|
|
0ed7bc |
- ok(my $alg2 = Net::SSLeay::EVP_get_cipherbyname("DES-EDE3-OFB"), "EVP_get_cipherbyname");
|
|
|
0ed7bc |
- like(my $key_pem4 = Net::SSLeay::PEM_get_string_PrivateKey($pk,"password",$alg2), qr/-----BEGIN (ENCRYPTED|RSA) PRIVATE KEY-----/, "PEM_get_string_PrivateKey+passwd+enc_alg");
|
|
|
0ed7bc |
-
|
|
|
0ed7bc |
+
|
|
|
0ed7bc |
+# DES-EDE3-OFB has no ASN1 support, detected by changes to do_pk8pkey as of openssl 1.0.1n
|
|
|
0ed7bc |
+# https://git.openssl.org/?p=openssl.git;a=commit;h=4d9dc0c269be87b92da188df1fbd8bfee4700eb3
|
|
|
0ed7bc |
+# this test now fails
|
|
|
0ed7bc |
+# ok(my $alg2 = Net::SSLeay::EVP_get_cipherbyname("DES-EDE3-OFB"), "EVP_get_cipherbyname");
|
|
|
0ed7bc |
+# like(my $key_pem4 = Net::SSLeay::PEM_get_string_PrivateKey($pk,"password",$alg2), qr/-----BEGIN (ENCRYPTED|RSA) PRIVATE KEY-----/, "PEM_get_string_PrivateKey+passwd+enc_alg");
|
|
|
0ed7bc |
+
|
|
|
0ed7bc |
is(Net::SSLeay::X509_NAME_print_ex($name), "O=Company Name,C=UK,CN=Common name text X509", "X509_NAME_print_ex");
|
|
|
0ed7bc |
|
|
|
0ed7bc |
# 2014-06-06: Sigh, some versions of openssl have this patch, which afffects the results of this test:
|