[thirdparty/openssl.git] / test / recipes / 90-test_store_cases.t

#! /usr/bin/env perl
# Copyright 2023 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License").  You may not use
# this file except in compliance with the License.  You can obtain a copy
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html

# This collects specific use cases, and tests our handling

use File::Spec::Functions;
use File::Copy;
use MIME::Base64;
use OpenSSL::Test qw(:DEFAULT srctop_file srctop_dir bldtop_file bldtop_dir
                     data_file);
use OpenSSL::Test::Utils;

my $test_name = "test_store_cases";
setup($test_name);

plan tests => 2;

my $stderr;

# The case of the garbage PKCS#12 DER file where a passphrase was
# prompted for.  That should not have happened.
$stderr = 'garbage-pkcs12.stderr.txt';
ok(!run(app(['openssl', 'storeutl', '-passin', 'pass:invalidapass',
             data_file('garbage-pkcs12.p12')],
            stderr => $stderr)),
   "checking that storeutl fails when given a garbage pkcs12 file");
open DATA, $stderr;
@match = grep /try_pkcs12:.*?:maybe wrong password$/, <DATA>;
close DATA;
ok(scalar @match > 0 ? 0 : 1,
   "checking that storeutl didn't ask for a passphrase");
Commit	Line	Data
1a27cc36 RL	1	#! /usr/bin/env perl
	2	# Copyright 2023 The OpenSSL Project Authors. All Rights Reserved.
	3	#
	4	# Licensed under the Apache License 2.0 (the "License"). You may not use
	5	# this file except in compliance with the License. You can obtain a copy
	6	# in the file LICENSE in the source distribution or at
	7	# https://www.openssl.org/source/license.html
	8
	9	# This collects specific use cases, and tests our handling
	10
	11	use File::Spec::Functions;
	12	use File::Copy;
	13	use MIME::Base64;
	14	use OpenSSL::Test qw(:DEFAULT srctop_file srctop_dir bldtop_file bldtop_dir
	15	data_file);
	16	use OpenSSL::Test::Utils;
	17
	18	my $test_name = "test_store_cases";
	19	setup($test_name);
	20
	21	plan tests => 2;
	22
	23	my $stderr;
	24
	25	# The case of the garbage PKCS#12 DER file where a passphrase was
	26	# prompted for. That should not have happened.
	27	$stderr = 'garbage-pkcs12.stderr.txt';
	28	ok(!run(app(['openssl', 'storeutl', '-passin', 'pass:invalidapass',
	29	data_file('garbage-pkcs12.p12')],
	30	stderr => $stderr)),
	31	"checking that storeutl fails when given a garbage pkcs12 file");
	32	open DATA, $stderr;
	33	@match = grep /try_pkcs12:.*?:maybe wrong password$/, <DATA>;
	34	close DATA;
	35	ok(scalar @match > 0 ? 0 : 1,
	36	"checking that storeutl didn't ask for a passphrase");