author | Bill Rushmore <bill.rushmore@oracle.com> |
Fri, 06 Feb 2015 12:13:46 -0800 | |
changeset 3743 | da52fd64c863 |
permissions | -rw-r--r-- |
3743
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
1 |
# A change in OpenSSL changes the hash that is expected. This updates the hash. |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
2 |
# This will not be sent up stream since it is already fixed in later versions. |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
3 |
diff -ur orig_Net-SSLeay-1.52/t/local/33_x509_create_cert.t Net-SSLeay-1.52/t/local/33_x509_create_cert.t |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
4 |
--- orig_Net-SSLeay-1.52/t/local/33_x509_create_cert.t 2015-02-05 10:23:55.296178177 -0800 |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
5 |
+++ Net-SSLeay-1.52/t/local/33_x509_create_cert.t 2015-02-05 10:27:24.727716789 -0800 |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
6 |
@@ -104,7 +104,7 @@ |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
7 |
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"); |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
8 |
|
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
9 |
is(Net::SSLeay::X509_NAME_print_ex($name), "O=Company Name,C=UK,CN=Common name text X509", "X509_NAME_print_ex"); |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
10 |
- is(unpack("H*",Net::SSLeay::X509_NAME_digest($name, $sha1_digest)), "044d7ea7fddced7b9b63799600b9989a63b36819", "X509_NAME_digest"); |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
11 |
+ is(unpack("H*",Net::SSLeay::X509_NAME_digest($name, $sha1_digest)), "ce83889f1beab8e70aa142e07e94b0ebbd9d59e0", "X509_NAME_digest"); |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
12 |
|
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
13 |
ok(my $ext_idx = Net::SSLeay::X509_get_ext_by_NID($x509, &Net::SSLeay::NID_ext_key_usage), "X509_get_ext_by_NID"); |
da52fd64c863
20456728 XML-PARSER should have some master test results to compare against
Bill Rushmore <bill.rushmore@oracle.com>
parents:
diff
changeset
|
14 |
ok(my $ext = Net::SSLeay::X509_get_ext($x509, $ext_idx), "X509_get_ext"); |