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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#! /usr/bin/env perl
# Copyright 2007-2021 The OpenSSL Project Authors. All Rights Reserved.
# Copyright Nokia 2007-2019
# Copyright Siemens AG 2015-2019
#
# 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
use strict;
use warnings;
use POSIX;
use File::Compare qw/compare_text/;
use OpenSSL::Test qw/:DEFAULT with srctop_file srctop_dir bldtop_dir result_file/;
use OpenSSL::Test::Utils;
BEGIN {
setup("test_cmp_cli");
}
use lib srctop_dir('Configurations');
use lib bldtop_dir('.');
use platform;
plan skip_all => "These tests are not supported in a fuzz build"
if config('options') =~ /-DFUZZING_BUILD_MODE_UNSAFE_FOR_PRODUCTION/;
plan skip_all => "These tests are not supported in a no-cmp build"
if disabled("cmp");
my $app = bldtop_dir("apps/openssl cmp");
my @cmp_basic_tests = (
[ "show help", [ "-help" ], 1 ],
[ "CLI option not starting with '-'", [ "days", "1" ], 0 ],
[ "unknown CLI option", [ "-dayss" ], 0 ],
[ "bad int syntax: non-digit", [ "-days", "a/" ], 0 ],
[ "bad int syntax: float", [ "-days", "3.14" ], 0 ],
[ "bad int syntax: trailing garbage", [ "-days", "314_+" ], 0 ],
[ "bad int: out of range", [ "-days", "2147483648" ], 0 ],
);
my @cmp_server_tests = (
[ "with polling", [ "-poll_count", "1" ], 1 ],
[ "with loader_attic engine", [ "-engine", "loader_attic"],
!disabled('dynamic-engine') &&
!disabled("deprecated-3.0") ]
);
plan tests => @cmp_basic_tests + @cmp_server_tests;
foreach (@cmp_basic_tests) {
my $title = $$_[0];
my $params = $$_[1];
my $expected = $$_[2];
ok($expected == run(cmd([$app, "-config", '""', @$params])),
$title);
}
# these use the mock server directly in the cmp app, without TCP
foreach (@cmp_server_tests) {
my $title = $$_[0];
my $extra_args = $$_[1];
my $expected = $$_[2];
my $secret = "pass:test";
my $rsp_cert = srctop_file('test', 'certs', 'ee-cert-1024.pem');
my $outfile = result_file("test.certout.pem");
ok($expected ==
run(cmd([$app, "-config", '""', @$extra_args,
"-use_mock_srv", "-srv_ref", "mock server",
"-srv_secret", $secret,
"-rsp_cert", $rsp_cert,
"-cmd", "cr",
"-subject", "/CN=any",
"-newkey", srctop_file('test', 'certs', 'ee-key-1024.pem'),
"-secret", $secret,
"-ref", "client under test",
"-certout", $outfile]))
&& compare_text($outfile, $rsp_cert) == 0,
$title);
# not unlinking $outfile
}
|
