From acf3360cadd959819307192d66269ab648d48a98 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Fri, 14 Feb 2020 08:37:32 +0100 Subject: [PATCH] TEST: Modify test/recipes/80-test_ocsp.t to leave artifacts behind Reviewed-by: Paul Dale (Merged from https://github.com/openssl/openssl/pull/11080) --- test/recipes/80-test_ocsp.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/test/recipes/80-test_ocsp.t b/test/recipes/80-test_ocsp.t index 5ca069801b..74ef7e3662 100644 --- a/test/recipes/80-test_ocsp.t +++ b/test/recipes/80-test_ocsp.t @@ -12,6 +12,7 @@ use warnings; use POSIX; use File::Spec::Functions qw/devnull catfile/; +use File::Basename; use File::Copy; use OpenSSL::Test qw/:DEFAULT with pipe srctop_dir data_file/; use OpenSSL::Test::Utils; @@ -34,18 +35,18 @@ sub test_ocsp { $untrusted = $CAfile; } my $expected_exit = shift; + my $outputfile = basename($inputfile, '.ors') . '.dat'; run(app(["openssl", "base64", "-d", "-in", catfile($ocspdir,$inputfile), - "-out", "ocsp-resp-fff.dat"])); + "-out", $outputfile])); with({ exit_checker => sub { return shift == $expected_exit; } }, - sub { ok(run(app(["openssl", "ocsp", "-respin", "ocsp-resp-fff.dat", + sub { ok(run(app(["openssl", "ocsp", "-respin", $outputfile, "-partial_chain", @check_time, "-CAfile", catfile($ocspdir, $CAfile), "-verify_other", catfile($ocspdir, $untrusted), "-no-CApath"])), $title); }); - unlink "ocsp-resp-fff.dat"; } plan tests => 11; -- GitLab