提交 c9d24373 编写于 作者: R Richard Levitte

Have some more test recipes clean up after themselves

Reviewed-by: NRich Salz <rsalz@openssl.org>
上级 67152812
...@@ -64,7 +64,9 @@ my $init = ok(run(test(["bntest"], stdout => $testresults)), 'initialize'); ...@@ -64,7 +64,9 @@ my $init = ok(run(test(["bntest"], stdout => $testresults)), 'initialize');
last unless $l; last unless $l;
} }
}; };
} }
unlink $testresults;
sub check_operations { sub check_operations {
my $failcount = 0; my $failcount = 0;
......
...@@ -45,7 +45,7 @@ plan tests => 4; ...@@ -45,7 +45,7 @@ plan tests => 4;
rmtree("demoCA", { safe => 0 }); rmtree("demoCA", { safe => 0 });
unlink "newcert.pem", "newreq.pem"; unlink "newcert.pem", "newreq.pem", "newkey.pem";
sub yes { sub yes {
......
...@@ -11,7 +11,7 @@ use strict; ...@@ -11,7 +11,7 @@ use strict;
use warnings; use warnings;
use POSIX; use POSIX;
use File::Spec; use File::Basename;
use File::Copy; use File::Copy;
use OpenSSL::Test qw/:DEFAULT with bldtop_file srctop_file cmdstr/; use OpenSSL::Test qw/:DEFAULT with bldtop_file srctop_file cmdstr/;
use OpenSSL::Test::Utils; use OpenSSL::Test::Utils;
...@@ -798,3 +798,41 @@ sub testssl { ...@@ -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;
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册