Add some test coverage for PEM_read_bio_PrivateKey
authorBernd Edlinger <bernd.edlinger@hotmail.de>
Sat, 29 Jul 2017 10:23:00 +0000 (12:23 +0200)
committerBernd Edlinger <bernd.edlinger@hotmail.de>
Sat, 29 Jul 2017 12:55:30 +0000 (14:55 +0200)
Reviewed-by: Rich Salz <rsalz@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/4047)

test/recipes/90-test_store.t

index 699a67ee81a6045537fc05d0ac78de8699399538..12ad951881f2bc7791ecf478cb00b8b88eadc318 100644 (file)
@@ -74,7 +74,7 @@ my $n = (3 * scalar @noexist_files)
     + (4 * scalar @generated_files)
     + (scalar keys %generated_file_files)
     + (scalar @noexist_file_files)
-    + 3;
+    + 4;
 
 plan tests => $n;
 
@@ -83,6 +83,10 @@ indir "store_$$" => sub {
     {
         skip "failed initialisation", $n unless init();
 
+        # test PEM_read_bio_PrivateKey
+        ok(run(app(["openssl", "rsa", "-in", "rsa-key-pkcs8-pbes2-sha256.pem",
+                    "-passin", "pass:password"])));
+
         foreach (@noexist_files) {
             my $file = srctop_file($_);
             ok(!run(app(["openssl", "storeutl", $file])));