1*4724848cSchristos#! /usr/bin/env perl 2*4724848cSchristos# Copyright 2016-2019 The OpenSSL Project Authors. All Rights Reserved. 3*4724848cSchristos# 4*4724848cSchristos# Licensed under the OpenSSL license (the "License"). You may not use 5*4724848cSchristos# this file except in compliance with the License. You can obtain a copy 6*4724848cSchristos# in the file LICENSE in the source distribution or at 7*4724848cSchristos# https://www.openssl.org/source/license.html 8*4724848cSchristos 9*4724848cSchristos 10*4724848cSchristosuse OpenSSL::Test::Utils; 11*4724848cSchristosuse OpenSSL::Test qw/:DEFAULT srctop_file srctop_dir/; 12*4724848cSchristosuse File::Temp qw(tempfile); 13*4724848cSchristos 14*4724848cSchristossetup("test_sslapi"); 15*4724848cSchristos 16*4724848cSchristosplan skip_all => "No TLS/SSL protocols are supported by this OpenSSL build" 17*4724848cSchristos if alldisabled(grep { $_ ne "ssl3" } available_protocols("tls")); 18*4724848cSchristos 19*4724848cSchristosplan tests => 1; 20*4724848cSchristos 21*4724848cSchristos(undef, my $tmpfilename) = tempfile(); 22*4724848cSchristos 23*4724848cSchristosok(run(test(["sslapitest", srctop_dir("test", "certs"), 24*4724848cSchristos srctop_file("test", "recipes", "90-test_sslapi_data", 25*4724848cSchristos "passwd.txt"), $tmpfilename])), 26*4724848cSchristos "running sslapitest"); 27*4724848cSchristos 28*4724848cSchristosunlink $tmpfilename; 29