Commit c9d24373 authored by Richard Levitte's avatar Richard Levitte
Browse files

Have some more test recipes clean up after themselves 



Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent 67152812

test/recipes/10-test_bn.t

+3 −1
Original line number Diff line number Diff line
@@ -66,6 +66,8 @@ my $init = ok(run(test(["bntest"], stdout => $testresults)), 'initialize'); 
     };

 }



unlink $testresults;



sub check_operations {

    my $failcount = 0;

test/recipes/80-test_ca.t

+1 −1
Original line number Diff line number Diff line
@@ -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 {

test/recipes/80-test_ssl_old.t

+39 −1
Original line number Diff line number Diff line
@@ -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;