aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/httpsserver.pl17
-rwxr-xr-xtests/runtests.pl2
2 files changed, 13 insertions, 6 deletions
diff --git a/tests/httpsserver.pl b/tests/httpsserver.pl
index d255d67e5..19e4061ec 100644
--- a/tests/httpsserver.pl
+++ b/tests/httpsserver.pl
@@ -25,6 +25,12 @@ my $verbose=0; # set to 1 for debugging
my $port = 8433; # just our default, weird enough
my $target_port = 8999; # test http-server port
+
+my $path = `pwd`;
+chomp $path;
+
+my $srcdir=$path;
+
do {
if($ARGV[0] eq "-v") {
$verbose=1;
@@ -36,16 +42,17 @@ do {
$target_port=$ARGV[1];
shift @ARGV;
}
+ elsif($ARGV[0] eq "-d") {
+ $srcdir=$ARGV[1];
+ shift @ARGV;
+ }
elsif($ARGV[0] =~ /^(\d+)$/) {
$port = $1;
}
} while(shift @ARGV);
-my $path = `pwd`;
-chomp $path;
-
my $conffile="$path/stunnel.conf"; # stunnel configuration data
-my $certfile="$path/stunnel.pem"; # stunnel server certificate
+my $certfile="$srcdir/stunnel.pem"; # stunnel server certificate
my $pidfile="$path/.https.pid"; # stunnel process pid file
open(CONF, ">$conffile") || return 1;
@@ -62,7 +69,7 @@ print CONF "
connect = $target_port
";
close CONF;
-system("chmod go-rwx $conffile $path/stunnel.pem"); # secure permissions
+system("chmod go-rwx $conffile $certfile"); # secure permissions
# works only with stunnel versions < 4.00
my $cmd="$stunnel -p $certfile -P $pidfile -d $port -r $target_port 2>/dev/null";
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 46c90350f..1c8f761dc 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -222,7 +222,7 @@ sub runhttpsserver {
}
my $flag=$debugprotocol?"-v ":"";
- my $cmd="$perl $srcdir/httpsserver.pl $flag -r $HOSTPORT $HTTPSPORT &";
+ my $cmd="$perl $srcdir/httpsserver.pl $flag -d $srcdir -r $HOSTPORT $HTTPSPORT &";
system($cmd);
if($verbose) {
print "CMD: $cmd\n";