Commit 0443b117 authored by Bernd Edlinger's avatar Bernd Edlinger
Browse files

Add some test coverage for PEM_read_bio_PrivateKey

parent 02fd47c8
Loading
Loading
Loading
Loading
+5 −1
Original line number Diff line number Diff line
@@ -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])));