1#! /usr/bin/env perl 2# Copyright 2022-2023 The OpenSSL Project Authors. All Rights Reserved. 3# 4# Licensed under the Apache License 2.0 (the "License"). You may not use 5# this file except in compliance with the License. You can obtain a copy 6# in the file LICENSE in the source distribution or at 7# https://www.openssl.org/source/license.html 8 9use strict; 10use warnings; 11 12use OpenSSL::Test qw/:DEFAULT/; 13use OpenSSL::Test::Utils; 14 15setup("test_genpkey"); 16 17my @algs = (); 18push @algs, qw(RSA) unless disabled("rsa"); 19push @algs, qw(DSA) unless disabled("dsa"); 20push @algs, qw(DH DHX) unless disabled("dh"); 21push @algs, qw(EC) unless disabled("ec"); 22push @algs, qw(X25519 X448) unless disabled("ecx"); 23push @algs, qw(SM2) unless disabled("sm2"); 24 25plan tests => scalar(@algs); 26 27foreach (@algs) { 28 my $alg = $_; 29 30 ok(run(app([ 'openssl', 'genpkey', '-algorithm', $alg, '-help'])), 31 "show genpkey pkeyopt values for $alg"); 32} 33
