Add --fips-key configuration parameter to fipsinstall application.
[openssl.git] / test / recipes / 30-test_evp.t
1 #! /usr/bin/env perl
2 # Copyright 2015-2020 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
9
10 use strict;
11 use warnings;
12
13 use OpenSSL::Test qw(:DEFAULT data_file bldtop_dir srctop_file srctop_dir bldtop_file);
14 use OpenSSL::Test::Utils;
15
16 BEGIN {
17 setup("test_evp");
18 }
19
20 use lib srctop_dir('Configurations');
21 use lib bldtop_dir('.');
22 use platform;
23
24 my $no_fips = disabled('fips') || ($ENV{NO_FIPS} // 0);
25 my $no_legacy = disabled('legacy') || ($ENV{NO_LEGACY} // 0);
26
27 # Default config depends on if the legacy module is built or not
28 my $defaultcnf = $no_legacy ? 'default.cnf' : 'default-and-legacy.cnf';
29
30 my @configs = ( $defaultcnf );
31 # Only add the FIPS config if the FIPS module has been built
32 push @configs, 'fips.cnf' unless $no_fips;
33
34 my @files = qw( evprand.txt evpciph.txt evpdigest.txt evppkey.txt
35     evppkey_ecc.txt );
36 my @defltfiles = qw( evpencod.txt evpkdf.txt evppkey_kdf.txt evpmac.txt
37     evppbe.txt evpcase.txt evpccmcavs.txt );
38 my @ideafiles = qw( evpciph_idea.txt );
39 push @defltfiles, @ideafiles unless disabled("idea");
40
41 my @sivfiles = qw( evpaessiv.txt );
42 push @defltfiles, @sivfiles unless disabled("siv");
43
44 my @castfiles = qw( evpciph_cast5.txt );
45 push @defltfiles, @castfiles unless disabled("cast");
46
47 my @seedfiles = qw( evpciph_seed.txt );
48 push @defltfiles, @seedfiles unless disabled("seed");
49
50 my @sm4files = qw( evpciph_sm4.txt );
51 push @defltfiles, @sm4files unless disabled("sm4");
52
53 my @desfiles = qw( evpciph_des.txt );
54 push @defltfiles, @desfiles unless disabled("des");
55
56 my @rc4files = qw( evpciph_rc4.txt );
57 push @defltfiles, @rc4files unless disabled("rc4");
58
59 my @rc5files = qw( evpciph_rc5.txt );
60 push @defltfiles, @rc5files unless disabled("rc5");
61
62 my @rc2files = qw( evpciph_rc2.txt );
63 push @defltfiles, @rc2files unless disabled("rc2");
64
65 my @chachafiles = qw( evpciph_chacha.txt );
66 push @defltfiles, @chachafiles unless disabled("chacha");
67
68 my @bffiles = qw( evpciph_bf.txt );
69 push @defltfiles, @bffiles unless disabled("bf");
70
71 my @md2files = qw( evpmd_md2.txt );
72 push @defltfiles, @md2files unless disabled("md2");
73
74 my @mdc2files = qw( evpmd_mdc2.txt );
75 push @defltfiles, @mdc2files unless disabled("mdc2");
76
77 plan tests =>
78     ($no_fips ? 0 : 1)          # FIPS install test
79     + (scalar(@configs) * scalar(@files))
80     + scalar(@defltfiles);
81
82 unless ($no_fips) {
83     my $infile = bldtop_file('providers', platform->dso('fips'));
84
85     ok(run(app(['openssl', 'fipsinstall',
86                 '-out', bldtop_file('providers', 'fipsmodule.cnf'),
87                 '-module', $infile,
88                 '-provider_name', 'fips',
89                 '-section_name', 'fips_sect'])),
90        "fipsinstall");
91 }
92
93 foreach (@configs) {
94     $ENV{OPENSSL_CONF} = srctop_file("test", $_);
95
96     foreach my $f ( @files ) {
97         ok(run(test(["evp_test", data_file("$f")])),
98            "running evp_test $f");
99     }
100 }
101
102 #TODO(3.0): As more operations are converted to providers we can move more of
103 #           these tests to the loop above
104
105 $ENV{OPENSSL_CONF} = srctop_file("test", $defaultcnf);
106
107 foreach my $f ( @defltfiles ) {
108     ok(run(test(["evp_test", data_file("$f")])),
109        "running evp_test $f");
110 }