Training courses

Kernel and Embedded Linux

Bootlin training courses

Embedded Linux, kernel,
Yocto Project, Buildroot, real-time,
graphics, boot time, debugging...

Bootlin logo

Elixir Cross Referencer

Open Menu /crypto/external/bsd/openssl/dist/test/recipes/30-test_evp_fetch_prov.t 
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
#! /usr/bin/env perl
# Copyright 2015-2021 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_dir srctop_file srctop_dir bldtop_file);
use OpenSSL::Test::Utils;

BEGIN {
setup("test_evp_fetch_prov");
}

use lib srctop_dir('Configurations');
use lib bldtop_dir('.');

my $no_fips = disabled('fips') || ($ENV{NO_FIPS} // 0);

my @types = ( "digest", "cipher" );

my @testdata = (
    { config    => srctop_file("test", "default.cnf"),
      providers => [ 'default' ],
      tests  => [ { providers => [] },
                  { },
                  { args      => [ '-property', 'provider=default' ],
                    message   => 'using property "provider=default"' },
                  { args      => [ '-property', 'provider!=fips' ],
                    message   => 'using property "provider!=fips"' },
                  { args      => [ '-property', 'provider!=default', '-fetchfail' ],
                    message   =>
                        'using property "provider!=default" is expected to fail' },
                  { args      => [ '-property', 'provider=fips', '-fetchfail' ],
                    message   =>
                        'using property "provider=fips" is expected to fail' } ] }
);

unless ($no_fips) {
    push @testdata, (
        { config    => srctop_file("test", "fips.cnf"),
          providers => [ 'fips' ],
          tests     => [
              { args    => [ '-property', '' ] },
              { args    => [ '-property', 'provider=fips' ],
                message => 'using property "provider=fips"' },
              { args    => [ '-property', 'provider!=default' ],
                message => 'using property "provider!=default"' },
              { args      => [ '-property', 'provider=default', '-fetchfail' ],
                message   =>
                    'using property "provider=default" is expected to fail' },
              { args      => [ '-property', 'provider!=fips', '-fetchfail' ],
                message   =>
                    'using property "provider!=fips" is expected to fail' },
              { args    => [ '-property', 'fips=yes' ],
                message => 'using property "fips=yes"' },
              { args    => [ '-property', 'fips!=no' ],
                message => 'using property "fips!=no"' },
              { args    => [ '-property', '-fips' ],
                message => 'using property "-fips"' },
              { args    => [ '-property', 'fips=no', '-fetchfail' ],
                message => 'using property "fips=no is expected to fail"' },
              { args    => [ '-property', 'fips!=yes', '-fetchfail' ],
                message => 'using property "fips!=yes is expected to fail"' } ] },
        { config    => srctop_file("test", "default-and-fips.cnf"),
          providers => [ 'default', 'fips' ],
          tests     => [
              { args    => [ '-property', '' ] },
              { args      => [ '-property', 'provider!=default' ],
                message   => 'using property "provider!=default"' },
              { args      => [ '-property', 'provider=default' ],
                message   => 'using property "provider=default"' },
              { args      => [ '-property', 'provider!=fips' ],
                message   => 'using property "provider!=fips"' },
              { args      => [ '-property', 'provider=fips' ],
                message   => 'using property "provider=fips"' },
              { args    => [ '-property', 'fips=yes' ],
                message => 'using property "fips=yes"' },
              { args    => [ '-property', 'fips!=no' ],
                message => 'using property "fips!=no"' },
              { args    => [ '-property', '-fips' ],
                message => 'using property "-fips"' },
              { args    => [ '-property', 'fips=no' ],
                message => 'using property "fips=no"' },
              { args    => [ '-property', 'fips!=yes' ],
                message => 'using property "fips!=yes"' } ] },
    );
}

my $testcount = 0;
foreach (@testdata) {
    $testcount += scalar @{$_->{tests}};
}

plan tests => 1 + $testcount * scalar(@types);

ok(run(test(["evp_fetch_prov_test", "-defaultctx"])),
   "running evp_fetch_prov_test using the default libctx");

foreach my $alg (@types) {
    foreach my $testcase (@testdata) {
        $ENV{OPENSSL_CONF} = "";
        foreach my $test (@{$testcase->{tests}}) {
            my @testproviders =
                @{ $test->{providers} // $testcase->{providers} };
            my $testprovstr = @testproviders
                ? ' and loaded providers ' . join(' & ',
                                                  map { "'$_'" } @testproviders)
                : '';
            my @testargs = @{ $test->{args} // [] };
            my $testmsg =
                defined $test->{message} ? ' '.$test->{message} : '';

            my $message =
                "running evp_fetch_prov_test with $alg$testprovstr$testmsg";

            ok(run(test(["evp_fetch_prov_test", "-type", "$alg",
                         "-config", "$testcase->{config}",
                         @testargs, @testproviders])),
               $message);
        }
    }
}