Have some more test recipes clean up after themselves
authorRichard Levitte <levitte@openssl.org>
Fri, 3 Jun 2016 22:50:17 +0000 (00:50 +0200)
committerRichard Levitte <levitte@openssl.org>
Sat, 4 Jun 2016 07:43:26 +0000 (09:43 +0200)
Reviewed-by: Rich Salz <rsalz@openssl.org>
test/recipes/10-test_bn.t
test/recipes/80-test_ca.t
test/recipes/80-test_ssl_old.t

index e35498d..13f278e 100644 (file)
@@ -64,7 +64,9 @@ my $init = ok(run(test(["bntest"], stdout => $testresults)), 'initialize');
             last unless $l;
         }
      };
-}
+ }
+
+unlink $testresults;
 
 sub check_operations {
     my $failcount = 0;
index cd42687..f4c01d5 100644 (file)
@@ -45,7 +45,7 @@ plan tests => 4;
 
 
 rmtree("demoCA", { safe => 0 });
-unlink "newcert.pem", "newreq.pem";
+unlink "newcert.pem", "newreq.pem", "newkey.pem";
 
 
 sub yes {
index 74d4360..59d48a0 100644 (file)
@@ -11,7 +11,7 @@ use strict;
 use warnings;
 
 use POSIX;
-use File::Spec;
+use File::Basename;
 use File::Copy;
 use OpenSSL::Test qw/:DEFAULT with bldtop_file srctop_file cmdstr/;
 use OpenSSL::Test::Utils;
@@ -798,3 +798,41 @@ sub testssl {
         }
     };
 }
+
+unlink $CAkey;
+unlink $CAcert;
+unlink $CAserial;
+unlink $CAreq;
+unlink $CAreq2;
+
+unlink $Ukey;
+unlink $Ureq;
+unlink $Ucert;
+unlink basename($Ucert, '.ss').'.srl';
+
+unlink $Dkey;
+unlink $Dreq;
+unlink $Dcert;
+
+unlink $Ekey;
+unlink $Ereq;
+unlink $Ecert;
+
+unlink $P1key;
+unlink $P1req;
+unlink $P1cert;
+unlink basename($P1cert, '.ss').'.srl';
+unlink $P1intermediate;
+unlink "intP1.ss";
+
+unlink $P2key;
+unlink $P2req;
+unlink $P2cert;
+unlink $P2intermediate;
+unlink "intP2.ss";
+
+unlink "ecp.ss";
+unlink "err.ss";
+
+unlink $server_sess;
+unlink $client_sess;