1*e7be843bSPierre Pronchery#! /usr/bin/env perl 2*e7be843bSPierre Pronchery# Copyright 2024 The OpenSSL Project Authors. All Rights Reserved. 3*e7be843bSPierre Pronchery# 4*e7be843bSPierre Pronchery# Licensed under the Apache License 2.0 (the "License"). You may not use 5*e7be843bSPierre Pronchery# this file except in compliance with the License. You can obtain a copy 6*e7be843bSPierre Pronchery# in the file LICENSE in the source distribution or at 7*e7be843bSPierre Pronchery# https://www.openssl.org/source/license.html 8*e7be843bSPierre Pronchery 9*e7be843bSPierre Proncheryuse strict; 10*e7be843bSPierre Proncheryuse warnings; 11*e7be843bSPierre Pronchery 12*e7be843bSPierre Proncheryuse OpenSSL::Test qw(:DEFAULT data_file); 13*e7be843bSPierre Pronchery 14*e7be843bSPierre Proncherysetup('test_bio_pw_callback'); 15*e7be843bSPierre Pronchery 16*e7be843bSPierre Proncheryplan tests => 1; 17*e7be843bSPierre Pronchery 18*e7be843bSPierre Proncherymy $private_key_path = data_file("private_key.pem"); 19*e7be843bSPierre Proncheryok(run(test(["bio_pw_callback_test", "-keyfile", $private_key_path])), 20*e7be843bSPierre Pronchery "Running bio_pw_callback_test"); 21