1 1.1 christos #! /usr/bin/env perl 2 1.1 christos # Copyright 2016-2025 The OpenSSL Project Authors. All Rights Reserved. 3 1.1 christos # 4 1.1 christos # Licensed under the Apache License 2.0 (the "License"). You may not use 5 1.1 christos # this file except in compliance with the License. You can obtain a copy 6 1.1 christos # in the file LICENSE in the source distribution or at 7 1.1 christos # https://www.openssl.org/source/license.html 8 1.1 christos 9 1.1 christos use strict; 10 1.1 christos use warnings; 11 1.1 christos 12 1.1 christos use OpenSSL::Test qw/:DEFAULT bldtop_file srctop_file bldtop_dir with/; 13 1.1 christos use OpenSSL::Test::Utils; 14 1.1 christos 15 1.1 christos setup("test_nocache"); 16 1.1 christos 17 1.1 christos plan tests => 4; 18 1.1 christos 19 1.1 christos ok(run(app(["openssl", "list", "-mac-algorithms"], 20 1.1 christos stdout => "listout.txt")), 21 1.1 christos "List mac algorithms - default configuration"); 22 1.1 christos open DATA, "listout.txt"; 23 1.1 christos my @match = grep /MAC/, <DATA>; 24 1.1 christos close DATA; 25 1.1 christos ok(scalar @match > 1 ? 1 : 0, "Several algorithms are listed - default configuration"); 26 1.1 christos 27 1.1 christos $ENV{OPENSSL_CONF} = bldtop_file("test", "nocache-and-default.cnf"); 28 1.1 christos ok(run(app(["openssl", "list", "-mac-algorithms"], 29 1.1 christos stdout => "listout.txt")), 30 1.1 christos "List mac algorithms"); 31 1.1 christos open DATA, "listout.txt"; 32 1.1 christos my @match = grep /MAC/, <DATA>; 33 1.1 christos close DATA; 34 1.1 christos ok(scalar @match > 1 ? 1 : 0, "Several algorithms are listed - nocache-and-default"); 35