1#! /usr/bin/env perl 2# Copyright 2015-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 10use OpenSSL::Test::Simple; 11use OpenSSL::Test qw/:DEFAULT srctop_file srctop_dir bldtop_dir bldtop_file data_dir/; 12use OpenSSL::Test::Utils; 13use Cwd qw(abs_path); 14 15BEGIN { 16setup("test_threads"); 17} 18 19use lib srctop_dir('Configurations'); 20use lib bldtop_dir('.'); 21 22my $no_fips = disabled('fips') || ($ENV{NO_FIPS} // 0); 23my $config_path = abs_path(srctop_file("test", $no_fips ? "default.cnf" 24 : "default-and-fips.cnf")); 25 26plan tests => 2; 27 28if ($no_fips) { 29 ok(run(test(["threadstest", "-config", $config_path, data_dir()])), 30 "running test_threads"); 31} else { 32 ok(run(test(["threadstest", "-fips", "-config", $config_path, data_dir()])), 33 "running test_threads with FIPS"); 34} 35 36# Merge the configuration files into one filtering the contents so the failure 37# condition is reproducable. A working FIPS configuration without the install 38# status is required. 39 40open CFGBASE, '<', $config_path; 41open CFGINC, '<', bldtop_file('/test/fipsmodule.cnf'); 42open CFGOUT, '>', 'thread.cnf'; 43 44while (<CFGBASE>) { 45 print CFGOUT unless m/^[.]include/; 46} 47close CFGBASE; 48print CFGOUT "\n\n"; 49while (<CFGINC>) { 50 print CFGOUT unless m/^install-status/; 51} 52close CFGINC; 53close CFGOUT; 54 55$ENV{OPENSSL_CONF} = 'thread.cnf'; 56ok(run(test(["threadstest_fips"])), "running test_threads_fips"); 57