TEST: Modify test/recipes/80-test_ocsp.t to leave artifacts behind
authorRichard Levitte <levitte@openssl.org>
Fri, 14 Feb 2020 07:37:32 +0000 (08:37 +0100)
committerRichard Levitte <levitte@openssl.org>
Tue, 18 Feb 2020 08:45:53 +0000 (09:45 +0100)
Reviewed-by: Paul Dale <paul.dale@oracle.com>
(Merged from https://github.com/openssl/openssl/pull/11080)

test/recipes/80-test_ocsp.t

index 5ca0698..74ef7e3 100644 (file)
@@ -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;