2 # Copyright 2015-2022 The OpenSSL Project Authors. All Rights Reserved.
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
10 use OpenSSL::Test::Simple;
11 use OpenSSL::Test qw/:DEFAULT srctop_file srctop_dir bldtop_dir bldtop_file data_dir/;
12 use OpenSSL::Test::Utils;
16 setup("test_threads");
19 use lib srctop_dir('Configurations');
20 use lib bldtop_dir('.');
22 my $no_fips = disabled('fips') || ($ENV{NO_FIPS} // 0);
23 my $config_path = abs_path(srctop_file("test", $no_fips ? "default.cnf"
24 : "default-and-fips.cnf"));
29 ok(run(test(["threadstest", "-config", $config_path, data_dir()])),
30 "running test_threads");
32 ok(run(test(["threadstest", "-fips", "-config", $config_path, data_dir()])),
33 "running test_threads with FIPS");
36 ok(run(test(["threadpool_test"])), "running threadpool_test");
38 # Merge the configuration files into one filtering the contents so the failure
39 # condition is reproducible. A working FIPS configuration without the install
42 open CFGBASE, '<', $config_path;
43 open CFGINC, '<', bldtop_file('/test/fipsmodule.cnf');
44 open CFGOUT, '>', 'thread.cnf';
47 print CFGOUT unless m/^[.]include/;
52 print CFGOUT unless m/^install-status/;
57 $ENV{OPENSSL_CONF} = 'thread.cnf';
58 ok(run(test(["threadstest_fips"])), "running threadstest_fips");