blob: 05b00e6b4eb13fe8b718413b395e1acbf36915c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#! /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");
|
