| #! /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"); |