github-repos/wget
1
0
Fork 0
mirror of https://github.com/mirror/wget.git synced 2026-09-02 12:57:54 +08:00
Code Issues Packages Projects Releases Wiki Activity

Cleanup on exit in Test-https-*.px

Browse Source 
* tests/Test-https-*.px: Cleanup on exit
This commit is contained in:
Tim Rühsen
2017-05-09 16:58:33 +02:00
parent 4669ba5e0c
commit 2894a37189
5 changed files with 71 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests/Test-https-selfsigned.px
View File

@@ -5,8 +5,10 @@ use warnings;
use Socket;
use WgetFeature qw(https);
use SSLTest;
use File::Remove 'remove';
###############################################################################
my @tempfiles;
# code, msg, headers, content
my %urls = (
@@ -55,6 +57,7 @@ unless (inet_ntoa($addr) =~ "127.0.0.1")
# Prepare self-signed certificates
my $certfile="$cdir/tmpsscert.pem";
my $keyfile="$cdir/tmpsskey.pem";
push (@tempfiles, $certfile, $keyfile);
my $certsubj="/C=US/ST=CA/L=Mystery Spot/O=Dis/CN=$testhostname/emailAddress=tester";
my $sscertcmd="openssl req -x509 -nodes -newkey rsa:4096 -keyout $keyfile ".
" -out $certfile -days 365 -subj \"$certsubj\"";
@@ -117,3 +120,8 @@ my $retryssl = SSLTest->new(cmdline => $cmdline,
sslport => $port);
exit $retryssl->run();
# vim: et ts=4 sw=4
END {
print "remove(@tempfiles);\n";
remove(@tempfiles);
}