1#! /usr/bin/env perl 2# Copyright 2016-2019 The OpenSSL Project Authors. All Rights Reserved. 3# 4# Licensed under the OpenSSL license (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::Utils; 11use OpenSSL::Test qw/:DEFAULT srctop_file srctop_dir/; 12use File::Temp qw(tempfile); 13 14setup("test_sslapi"); 15 16plan skip_all => "No TLS/SSL protocols are supported by this OpenSSL build" 17 if alldisabled(grep { $_ ne "ssl3" } available_protocols("tls")); 18 19plan tests => 1; 20 21(undef, my $tmpfilename) = tempfile(); 22 23ok(run(test(["sslapitest", srctop_dir("test", "certs"), 24 srctop_file("test", "recipes", "90-test_sslapi_data", 25 "passwd.txt"), $tmpfilename])), 26 "running sslapitest"); 27 28unlink $tmpfilename; 29