Commit 7622baf8 authored by Richard Levitte's avatar Richard Levitte
Browse files

Test the storeutl expectation options 



Reviewed-by: default avatarMatt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/2688)
parent ce9586b9

test/recipes/90-test_store.t

+16 −2
Original line number Diff line number Diff line 
#! /usr/bin/env perl

# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.

# Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.

#

# Licensed under the OpenSSL license (the "License").  You may not use

# this file except in compliance with the License.  You can obtain a copy
@@ -69,12 +69,12 @@ my @noexist_file_files = 
    ( "file:blahdiblah.pem",

      "file:test/blahdibleh.der" );





my $n = (3 * scalar @noexist_files)

    + (6 * scalar @src_files)

    + (4 * scalar @generated_files)

    + (scalar keys %generated_file_files)

    + (scalar @noexist_file_files)

    + 3

    + 4;



plan tests => $n;
@@ -152,6 +152,20 @@ indir "store_$$" => sub { 
                ok(run(app(["openssl", "storeutl", to_abs_file_uri($dir, 1)])));

            }

        }



        ok(run(app(['openssl', 'storeutl', '-certs',

                    srctop_file('test', 'testx509.pem')])),

           "Checking that -certs returns 1 object on a certificate file");

        ok(run(app(['openssl', 'storeutl', '-certs',

                     srctop_file('test', 'testcrl.pem')])),

           "Checking that -certs returns 0 objects on a CRL file");



        ok(run(app(['openssl', 'storeutl', '-crls',

                     srctop_file('test', 'testx509.pem')])),

           "Checking that -crls returns 0 objects on a certificate file");

        ok(run(app(['openssl', 'storeutl', '-crls',

                    srctop_file('test', 'testcrl.pem')])),

           "Checking that -crls returns 1 object on a CRL file");

    }

}, create => 1, cleanup => 1;