Make calls to the start.pl always use the test name instead of '.'

This commit is contained in:
Ondřej Surý
2018-12-03 12:29:39 +01:00
parent 0fc8bfef13
commit 16b95157e8
18 changed files with 95 additions and 91 deletions

View File

@@ -42,7 +42,7 @@ rawversion () {
read(STDIN, $input, 8);
if (length($input) < 8) { print "not raw\n"; exit 0; };
($style, $version) = unpack("NN", $input);
print ($style == 2 || $style == 3 ? "$version\n" :
print ($style == 2 || $style == 3 ? "$version\n" :
"not raw or map\n");' < $1
}
@@ -50,7 +50,7 @@ sourceserial () {
$PERL -e 'binmode STDIN;
read(STDIN, $input, 20);
if (length($input) < 20) { print "UNSET\n"; exit; };
($format, $version, $dumptime, $flags, $sourceserial) =
($format, $version, $dumptime, $flags, $sourceserial) =
unpack("NNNNN", $input);
if ($format != 2 || $version < 1) { print "UNSET\n"; exit; };
if ($flags & 02) {
@@ -72,7 +72,7 @@ stomp () {
restart () {
sleep 1
(cd ..; $PERL start.pl --noclean --restart --port ${PORT} masterformat ns3)
$PERL "$SYSTEMTESTTOP/start.pl" --noclean --restart --port ${PORT} masterformat ns3
}
DIGOPTS="+tcp +noauth +noadd +nosea +nostat +noquest +nocomm +nocmd -p ${PORT}"