提交 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');
last unless $l;
}
};
}
}
unlink $testresults;
sub check_operations {
my $failcount = 0;
......
......@@ -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 {
......
......@@ -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;
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册