Add static HOSTSALIAS file

* tests/certs/wgethosts: New file
* tests/Test-https-*.px: Remove creation of wgethosts file
This commit is contained in:
Tim Rühsen 2017-05-04 16:42:49 +02:00
parent 2a96249469
commit 5c4cc011fe
8 changed files with 10 additions and 37 deletions

View File

@ -31,11 +31,7 @@ my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
# Create certindex
open CERTID, ">", "$cdir/certs/certindex" or

View File

@ -30,11 +30,7 @@ my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
# Create certindex
open CERTID, ">", "$cdir/certs/certindex" or
@ -78,7 +74,7 @@ unless(-e $servercrt && -e $serverkey && $servercheck == 1)
exit 77; # skip
}
# Prepare client certifcate
# Prepare client certificate
my $clientcert = "$cdir/certs/client.crt";
my $clientkey = "$cdir/certs/client.key";
my $clientcsr = "$cdir/certs/client.csr";

View File

@ -29,11 +29,7 @@ unless ($ossl =~ m/OpenSSL 1/)
my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
my $port = 54443;
my $cmdline = $WgetTest::WGETPATH . " --secure-protocol=PFS".

View File

@ -30,13 +30,9 @@ my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
# Prepare self-signed certifcates
# Prepare self-signed certificates
my $certfile="tmpsscert.pem";
my $keyfile="tmpsskey.pem";
my $certsubj="/C=US/ST=CA/L=Mystery Spot/O=Dis/CN=$testhostname/emailAddress=tester";

View File

@ -29,11 +29,7 @@ unless ($ossl =~ m/OpenSSL 1/)
my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
my $port = 58443;
my $cmdline = $WgetTest::WGETPATH . " --secure-protocol=TLSv1".

View File

@ -29,11 +29,7 @@ unless ($ossl =~ m/OpenSSL 1/)
my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
my $port = 59443;
my $cmdline = $WgetTest::WGETPATH . " --secure-protocol=TLSv1_1".

View File

@ -30,11 +30,7 @@ my $cdir = $ENV{'PWD'};
# HOSTALIASES env variable allows us to create hosts file alias.
my $testhostname = "WgetTestingServer";
my $testhostfile = "$cdir/wgethosts";
open(my $fh, '>', $testhostfile);
print $fh "$testhostname 127.0.0.1\n";
close $fh;
$ENV{'HOSTALIASES'} = "$cdir/wgethosts";
$ENV{'HOSTALIASES'} = "$cdir/certs/wgethosts";
# Create certindex
open CERTID, ">", "$cdir/certs/certindex" or

1
tests/certs/wgethosts Normal file
View File

@ -0,0 +1 @@
WgetTestingServer localhost