mirror of
https://github.com/openssl/openssl.git
synced 2025-02-11 14:22:43 +08:00
f6097c7c5d
A follow-up to #26038 Reviewed-by: Matt Caswell <matt@openssl.org> Reviewed-by: Tomas Mraz <tomas@openssl.org> (Merged from https://github.com/openssl/openssl/pull/26197)
35 lines
1.1 KiB
Perl
35 lines
1.1 KiB
Perl
#! /usr/bin/env perl
|
|
# Copyright 2016-2024 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
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use OpenSSL::Test qw/:DEFAULT bldtop_file srctop_file bldtop_dir with/;
|
|
use OpenSSL::Test::Utils;
|
|
|
|
setup("test_nocache");
|
|
|
|
plan tests => 4;
|
|
|
|
ok(run(app(["openssl", "list", "-mac-algorithms"],
|
|
stdout => "listout.txt")),
|
|
"List mac algorithms - default configuration");
|
|
open DATA, "listout.txt";
|
|
my @match = grep /MAC/, <DATA>;
|
|
close DATA;
|
|
ok(scalar @match > 1 ? 1 : 0, "Several algorithms are listed - default configuration");
|
|
|
|
$ENV{OPENSSL_CONF} = bldtop_file("test", "nocache-and-default.cnf");
|
|
ok(run(app(["openssl", "list", "-mac-algorithms"],
|
|
stdout => "listout.txt")),
|
|
"List mac algorithms");
|
|
open DATA, "listout.txt";
|
|
my @match = grep /MAC/, <DATA>;
|
|
close DATA;
|
|
ok(scalar @match > 1 ? 1 : 0, "Several algorithms are listed - nocache-and-default");
|