wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Have some more test recipes clean up after themselves

Browse source 
Reviewed-by: Rich Salz <rsalz@openssl.org>
This commit is contained in:
Richard Levitte 2016-06-04 00:50:17 +02:00
parent 67152812f4
commit c9d2437385
3 changed files with 43 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/recipes/10-test_bn.t
View 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;

2
test/recipes/80-test_ca.t
View 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 {

40
test/recipes/80-test_ssl_old.t
View 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;