Raise an error on syscall failure in tls_retry_write_records
[openssl.git] / test / recipes / 90-test_fipsload.t
1 #! /usr/bin/env perl
2 # Copyright 2020-2021 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 use OpenSSL::Test qw/:DEFAULT srctop_dir bldtop_dir bldtop_file/;
10 use OpenSSL::Test::Utils;
11
12 BEGIN {
13     setup('test_shlibload');
14 }
15 use lib srctop_dir('Configurations');
16 use lib bldtop_dir('.');
17 use platform;
18
19 plan skip_all => 'Test is disabled with disabled fips' if disabled('fips');
20 plan skip_all => 'Test only supported in a shared build' if disabled('shared');
21 plan skip_all => 'Test is disabled on AIX' if config('target') =~ m|^aix|;
22 plan skip_all => 'Test is disabled on NonStop ia64' if config('target') =~ m|^nonstop-nse|;
23 plan skip_all => 'Test only supported in a dso build' if disabled('dso');
24 plan skip_all => 'Test is disabled in an address sanitizer build' unless disabled('asan');
25
26 plan tests => 1;
27
28 my $fips = bldtop_file('providers', platform->dso('fips'));
29
30 ok(run(test(['moduleloadtest', $fips, 'OSSL_provider_init'])),
31    "trying to load $fips in its own");