tests: run the RTSP test server on a dynamic port number

To avoid port collisions.

Closes #5272
This commit is contained in:
Daniel Stenberg 2020-04-20 14:53:50 +02:00
parent 018dd775c8
commit bae87dc0d9
No known key found for this signature in database
GPG key ID: 5CC908FDB71E12C2
3 changed files with 77 additions and 21 deletions

View file

@ -44,6 +44,7 @@ my $ipvnum = 4; # default IP version of rtsp server
my $idnum = 1; # default rtsp server instance number
my $proto = 'rtsp'; # protocol the rtsp server speaks
my $pidfile; # rtsp server pid file
my $portfile;
my $logfile; # rtsp server log file
my $srcdir;
@ -58,6 +59,12 @@ while(@ARGV) {
shift @ARGV;
}
}
elsif($ARGV[0] eq '--portfile') {
if($ARGV[1]) {
$portfile = $ARGV[1];
shift @ARGV;
}
}
elsif($ARGV[0] eq '--logfile') {
if($ARGV[1]) {
$logfile = $ARGV[1];
@ -107,7 +114,9 @@ if(!$logfile) {
$logfile = server_logfilename($logdir, $proto, $ipvnum, $idnum);
}
$flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
$flags .= "--pidfile \"$pidfile\" ".
"--portfile \"$portfile\" ".
"--logfile \"$logfile\" ";
$flags .= "--ipv$ipvnum --port $port --srcdir \"$srcdir\"";
exec("server/rtspd".exe_ext('SRV')." $flags");