mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-29 13:38:26 +00:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
Ondřej Surý 2018-12-03 13:14:32 +01:00
parent 27ee629e6b
commit e227815af5
18 changed files with 56 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/tests/system/addzone/tests.sh
View File

@ -695,7 +695,7 @@ echo_i "check that named restarts with multiple added zones ($n)"
ret=0 ret=0
$RNDCCMD 10.53.0.3 addzone "test4.baz" '{ type master; file "e.db"; };' > /dev/null 2>&1 || ret=1 $RNDCCMD 10.53.0.3 addzone "test4.baz" '{ type master; file "e.db"; };' > /dev/null 2>&1 || ret=1
$RNDCCMD 10.53.0.3 addzone "test5.baz" '{ type master; file "e.db"; };' > /dev/null 2>&1 || ret=1 $RNDCCMD 10.53.0.3 addzone "test5.baz" '{ type master; file "e.db"; };' > /dev/null 2>&1 || ret=1
$PERL $SYSTEMTESTTOP/stop.pl . ns3 $PERL $SYSTEMTESTTOP/stop.pl addzone ns3
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} addzone ns3 || ret=1 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} addzone ns3 || ret=1
$DIG $DIGOPTS @10.53.0.3 version.bind txt ch > dig.out.test$n || ret=1 $DIG $DIGOPTS @10.53.0.3 version.bind txt ch > dig.out.test$n || ret=1
grep "status: NOERROR" dig.out.test$n > /dev/null || ret=1 grep "status: NOERROR" dig.out.test$n > /dev/null || ret=1

2
bin/tests/system/forward/tests.sh
View File

@ -88,7 +88,7 @@ echo_i "checking for negative caching of forwarder response"
ret=0 ret=0
$DIG $DIGOPTS nonexist. txt @10.53.0.5 > dig.out.f2 || ret=1 $DIG $DIGOPTS nonexist. txt @10.53.0.5 > dig.out.f2 || ret=1
grep "status: NXDOMAIN" dig.out.f2 > /dev/null || ret=1 grep "status: NXDOMAIN" dig.out.f2 > /dev/null || ret=1
$PERL ../stop.pl . ns4 || ret=1 $PERL ../stop.pl forward ns4 || ret=1
$DIG $DIGOPTS nonexist. txt @10.53.0.5 > dig.out.f2 || ret=1 $DIG $DIGOPTS nonexist. txt @10.53.0.5 > dig.out.f2 || ret=1
grep "status: NXDOMAIN" dig.out.f2 > /dev/null || ret=1 grep "status: NXDOMAIN" dig.out.f2 > /dev/null || ret=1
$PERL ../start.pl --restart --noclean --port ${PORT} forward ns4 || ret=1 $PERL ../start.pl --restart --noclean --port ${PORT} forward ns4 || ret=1

8
bin/tests/system/inline/tests.sh
View File

@ -455,7 +455,7 @@ status=`expr $status + $ret`
n=`expr $n + 1` n=`expr $n + 1`
echo_i "stop bump in the wire signer server ($n)" echo_i "stop bump in the wire signer server ($n)"
ret=0 ret=0
$PERL ../stop.pl . ns3 || ret=1 $PERL ../stop.pl inline ns3 || ret=1
if [ $ret != 0 ]; then echo_i "failed"; fi if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
@ -869,7 +869,7 @@ status=`expr $status + $ret`
n=`expr $n + 1` n=`expr $n + 1`
echo_i "stop bump in the wire signer server ($n)" echo_i "stop bump in the wire signer server ($n)"
ret=0 ret=0
$PERL ../stop.pl . ns3 || ret=1 $PERL ../stop.pl inline ns3 || ret=1
if [ $ret != 0 ]; then echo_i "failed"; fi if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
@ -1323,7 +1323,7 @@ done
if [ $ans != 0 ]; then ret=1; fi if [ $ans != 0 ]; then ret=1; fi
# Halt rather than stopping the server to prevent the master file from being # Halt rather than stopping the server to prevent the master file from being
# flushed upon shutdown since we specifically want to avoid it. # flushed upon shutdown since we specifically want to avoid it.
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --halt --port ${CONTROLPORT} . ns3 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --halt --port ${CONTROLPORT} inline ns3
ensure_sigs_only_in_journal delayedkeys ns3/delayedkeys.db.signed ensure_sigs_only_in_journal delayedkeys ns3/delayedkeys.db.signed
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} inline ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} inline ns3
# At this point, the raw zone journal will not have a source serial set. Upon # At this point, the raw zone journal will not have a source serial set. Upon
@ -1332,7 +1332,7 @@ $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} inline ns3
# return delayedkeys/SOA as the next node to resign, so we restart the server # return delayedkeys/SOA as the next node to resign, so we restart the server
# once again; with the raw zone journal now having a source serial set, # once again; with the raw zone journal now having a source serial set,
# receive_secure_serial() should refrain from introducing any zone changes. # receive_secure_serial() should refrain from introducing any zone changes.
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --halt --port ${CONTROLPORT} . ns3 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --halt --port ${CONTROLPORT} inline ns3
ensure_sigs_only_in_journal delayedkeys ns3/delayedkeys.db.signed ensure_sigs_only_in_journal delayedkeys ns3/delayedkeys.db.signed
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} inline ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} inline ns3
# We can now test whether the secure zone journal was correctly processed: # We can now test whether the secure zone journal was correctly processed:

2
bin/tests/system/legacy/tests.sh
View File

@ -196,7 +196,7 @@ grep "status: NOERROR" dig.out.test$n > /dev/null && ret=1
if [ $ret != 0 ]; then echo_i "failed"; fi if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
$PERL $SYSTEMTESTTOP/stop.pl . ns1 $PERL $SYSTEMTESTTOP/stop.pl legacy ns1
copy_setports ns1/named2.conf.in ns1/named.conf copy_setports ns1/named2.conf.in ns1/named.conf

4
bin/tests/system/logfileconfig/tests.sh
View File

@ -159,7 +159,7 @@ fi
# files while controlling the stop/start of the server. # files while controlling the stop/start of the server.
# Have to stop the stock server because it uses "-g" # Have to stop the stock server because it uses "-g"
# #
$PERL ../../stop.pl .. ns1 $PERL ../../stop.pl logfileconfig ns1
$myNAMED > /dev/null 2>&1 $myNAMED > /dev/null 2>&1
@ -269,7 +269,7 @@ n=`expr $n + 1`
echo_i "testing default logfile using named -L file ($n)" echo_i "testing default logfile using named -L file ($n)"
# Now stop the server again and test the -L option # Now stop the server again and test the -L option
rm -f $DLFILE rm -f $DLFILE
$PERL ../../stop.pl .. ns1 $PERL ../../stop.pl logfileconfig ns1
if ! test -f $PIDFILE; then if ! test -f $PIDFILE; then
copy_setports $PLAINCONF named.conf copy_setports $PLAINCONF named.conf
$myNAMED -L $DLFILE > /dev/null 2>&1 $myNAMED -L $DLFILE > /dev/null 2>&1

8
bin/tests/system/mirror/tests.sh
View File

@ -165,7 +165,7 @@ status=`expr $status + $ret`
n=`expr $n + 1` n=`expr $n + 1`
echo_i "checking that loading a correctly signed mirror zone from disk succeeds ($n)" echo_i "checking that loading a correctly signed mirror zone from disk succeeds ($n)"
ret=0 ret=0
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns3 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mirror ns3
cat ns2/verify-load.db.good.signed > ns3/verify-load.db.mirror cat ns2/verify-load.db.good.signed > ns3/verify-load.db.mirror
nextpart ns3/named.run > /dev/null nextpart ns3/named.run > /dev/null
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mirror ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mirror ns3
@ -178,7 +178,7 @@ status=`expr $status + $ret`
n=`expr $n + 1` n=`expr $n + 1`
echo_i "checking that loading a journal for an incorrectly signed mirror zone fails ($n)" echo_i "checking that loading a journal for an incorrectly signed mirror zone fails ($n)"
ret=0 ret=0
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns3 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mirror ns3
cp ns3/verify-journal.db.mirror ns3/verify-ixfr.db.mirror cp ns3/verify-journal.db.mirror ns3/verify-ixfr.db.mirror
cp ns3/verify-journal.db.bad.mirror.jnl ns3/verify-ixfr.db.mirror.jnl cp ns3/verify-journal.db.bad.mirror.jnl ns3/verify-ixfr.db.mirror.jnl
nextpart ns3/named.run > /dev/null nextpart ns3/named.run > /dev/null
@ -193,7 +193,7 @@ status=`expr $status + $ret`
n=`expr $n + 1` n=`expr $n + 1`
echo_i "checking that loading a journal for a correctly signed mirror zone succeeds ($n)" echo_i "checking that loading a journal for a correctly signed mirror zone succeeds ($n)"
ret=0 ret=0
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns3 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mirror ns3
cp ns3/verify-journal.db.mirror ns3/verify-ixfr.db.mirror cp ns3/verify-journal.db.mirror ns3/verify-ixfr.db.mirror
cp ns3/verify-journal.db.good.mirror.jnl ns3/verify-ixfr.db.mirror.jnl cp ns3/verify-journal.db.good.mirror.jnl ns3/verify-ixfr.db.mirror.jnl
nextpart ns3/named.run > /dev/null nextpart ns3/named.run > /dev/null
@ -329,7 +329,7 @@ mv ns2/named.conf.modified ns2/named.conf
$RNDCCMD 10.53.0.2 reconfig > /dev/null 2>&1 $RNDCCMD 10.53.0.2 reconfig > /dev/null 2>&1
# Stop ns3, update the timestamp of the zone file to one far in the past, then # Stop ns3, update the timestamp of the zone file to one far in the past, then
# restart ns3. # restart ns3.
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns3 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mirror ns3
touch -t 200001010000 ns3/initially-unavailable.db.mirror touch -t 200001010000 ns3/initially-unavailable.db.mirror
nextpart ns3/named.run > /dev/null nextpart ns3/named.run > /dev/null
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mirror ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mirror ns3

14
bin/tests/system/mkeys/tests.sh
View File

@ -299,7 +299,7 @@ if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
echo_i "reinitialize trust anchors, add second key to bind.keys" echo_i "reinitialize trust anchors, add second key to bind.keys"
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns2 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns2
rm -f ns2/managed-keys.bind* rm -f ns2/managed-keys.bind*
keyfile_to_managed_keys ns1/$original ns1/$standby1 > ns2/managed.conf keyfile_to_managed_keys ns1/$original ns1/$standby1 > ns2/managed.conf
nextpart ns2/named.run > /dev/null nextpart ns2/named.run > /dev/null
@ -315,7 +315,7 @@ if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
echo_i "reinitialize trust anchors, revert to one key in bind.keys" echo_i "reinitialize trust anchors, revert to one key in bind.keys"
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns2 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns2
rm -f ns2/managed-keys.bind* rm -f ns2/managed-keys.bind*
mv ns2/managed1.conf ns2/managed.conf mv ns2/managed1.conf ns2/managed.conf
nextpart ns2/named.run > /dev/null nextpart ns2/named.run > /dev/null
@ -473,7 +473,7 @@ rm -f ns1/root.db.signed.jnl
mkeys_reconfig_on 1 mkeys_reconfig_on 1
echo_i "reinitialize trust anchors" echo_i "reinitialize trust anchors"
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns2 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns2
rm -f ns2/managed-keys.bind* rm -f ns2/managed-keys.bind*
nextpart ns2/named.run > /dev/null nextpart ns2/named.run > /dev/null
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mkeys ns2 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mkeys ns2
@ -572,7 +572,7 @@ ret=0
mkeys_refresh_on 2 mkeys_refresh_on 2
mkeys_status_on 2 > rndc.out.$n 2>&1 mkeys_status_on 2 > rndc.out.$n 2>&1
t1=`grep 'next refresh:' rndc.out.$n` t1=`grep 'next refresh:' rndc.out.$n`
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns1 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns1
rm -f ns1/root.db.signed.jnl rm -f ns1/root.db.signed.jnl
cp ns1/root.db ns1/root.db.signed cp ns1/root.db ns1/root.db.signed
nextpart ns1/named.run > /dev/null nextpart ns1/named.run > /dev/null
@ -606,7 +606,7 @@ ret=0
mkeys_refresh_on 2 mkeys_refresh_on 2
mkeys_status_on 2 > rndc.out.$n 2>&1 mkeys_status_on 2 > rndc.out.$n 2>&1
t1=`grep 'next refresh:' rndc.out.$n` t1=`grep 'next refresh:' rndc.out.$n`
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns1 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns1
rm -f ns1/root.db.signed.jnl rm -f ns1/root.db.signed.jnl
cat ns1/K*.key >> ns1/root.db.signed cat ns1/K*.key >> ns1/root.db.signed
nextpart ns1/named.run > /dev/null nextpart ns1/named.run > /dev/null
@ -708,7 +708,7 @@ ret=0
# ensure key refresh retry will be scheduled to one actual hour after the first # ensure key refresh retry will be scheduled to one actual hour after the first
# key refresh failure instead of just a few seconds, in order to prevent races # key refresh failure instead of just a few seconds, in order to prevent races
# between the next scheduled key refresh time and startup time of restarted ns5. # between the next scheduled key refresh time and startup time of restarted ns5.
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns5 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns5
nextpart ns5/named.run > /dev/null nextpart ns5/named.run > /dev/null
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mkeys ns5 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} mkeys ns5
wait_for_log "Returned from key fetch in keyfetch_done()" ns5/named.run wait_for_log "Returned from key fetch in keyfetch_done()" ns5/named.run
@ -722,7 +722,7 @@ status=`expr $status + $ret`
n=`expr $n + 1` n=`expr $n + 1`
echo_i "check key refreshes are resumed after root servers become available ($n)" echo_i "check key refreshes are resumed after root servers become available ($n)"
ret=0 ret=0
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns5 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} mkeys ns5
# Prevent previous check from affecting this one # Prevent previous check from affecting this one
rm -f ns5/managed-keys.bind* rm -f ns5/managed-keys.bind*
# named2.args adds "-T mkeytimers=2/20/40" to named1.args as we need to wait for # named2.args adds "-T mkeytimers=2/20/40" to named1.args as we need to wait for

2
bin/tests/system/notify/tests.sh
View File

@ -115,7 +115,7 @@ digcomp dig.out.ns2.test$n dig.out.ns3.test$n || ret=1
status=`expr $ret + $status` status=`expr $ret + $status`
echo_i "stopping master and restarting with example4 then waiting up to 45 seconds" echo_i "stopping master and restarting with example4 then waiting up to 45 seconds"
$PERL $SYSTEMTESTTOP/stop.pl . ns2 $PERL $SYSTEMTESTTOP/stop.pl notify ns2
rm -f ns2/example.db rm -f ns2/example.db
cp -f ns2/example4.db ns2/example.db cp -f ns2/example4.db ns2/example.db

2
bin/tests/system/nsupdate/tests.sh
View File

@ -506,7 +506,7 @@ server 10.53.0.1 ${PORT}
update add updated4.example.nil. 600 A 10.10.10.3 update add updated4.example.nil. 600 A 10.10.10.3
send send
END END
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns1 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} nsupdate ns1
# Removing the journal file and restarting the server means # Removing the journal file and restarting the server means
# that the data served by the new server process are exactly # that the data served by the new server process are exactly
# those dumped to the master file by "rndc stop". # those dumped to the master file by "rndc stop".

2
bin/tests/system/nzd2nzf/tests.sh
View File

@ -39,7 +39,7 @@ if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
echo_i "stopping ns1" echo_i "stopping ns1"
$PERL $SYSTEMTESTTOP/stop.pl . ns1 $PERL $SYSTEMTESTTOP/stop.pl nzd2nzf ns1
n=`expr $n + 1` n=`expr $n + 1`
echo_i "dumping _default.nzd to _default.nzf ($n)" echo_i "dumping _default.nzd to _default.nzf ($n)"

4
bin/tests/system/rpz/tests.sh
View File

@ -430,7 +430,7 @@ for mode in native dnsrps; do
continue continue
fi fi
echo_i "attempting to configure servers with DNSRPS..." echo_i "attempting to configure servers with DNSRPS..."
$PERL $SYSTEMTESTTOP/stop.pl . $PERL $SYSTEMTESTTOP/stop.pl rpz
$SHELL ./setup.sh -N -D $DEBUG $SHELL ./setup.sh -N -D $DEBUG
for server in ns*; do for server in ns*; do
resetstats $server resetstats $server
@ -741,7 +741,7 @@ EOF
# restart the main test RPZ server to see if that creates a core file # restart the main test RPZ server to see if that creates a core file
if test -z "$HAVE_CORE"; then if test -z "$HAVE_CORE"; then
$PERL $SYSTEMTESTTOP/stop.pl . ns3 $PERL $SYSTEMTESTTOP/stop.pl rpz ns3
restart 3 restart 3
HAVE_CORE=`find ns* -name '*core*' -print` HAVE_CORE=`find ns* -name '*core*' -print`
test -z "$HAVE_CORE" || setret "found $HAVE_CORE; memory leak?" test -z "$HAVE_CORE" || setret "found $HAVE_CORE; memory leak?"

4
bin/tests/system/rpzrecurse/tests.sh
View File

@ -46,7 +46,7 @@ run_server() {
TESTNAME=$1 TESTNAME=$1
echo_i "stopping resolver" echo_i "stopping resolver"
$PERL $SYSTEMTESTTOP/stop.pl . ns2 $PERL $SYSTEMTESTTOP/stop.pl rpzrecurse ns2
sleep 1 sleep 1
@ -122,7 +122,7 @@ for mode in native dnsrps; do
continue continue
fi fi
echo_i "attempting to configure servers with DNSRPS..." echo_i "attempting to configure servers with DNSRPS..."
$PERL $SYSTEMTESTTOP/stop.pl . $PERL $SYSTEMTESTTOP/stop.pl rpzrecurse
$SHELL ./setup.sh -N -D $DEBUG $SHELL ./setup.sh -N -D $DEBUG
sed -n 's/^## //p' dnsrps.conf | cat_i sed -n 's/^## //p' dnsrps.conf | cat_i
if grep '^#fail' dnsrps.conf >/dev/null; then if grep '^#fail' dnsrps.conf >/dev/null; then

2
bin/tests/system/sfcache/tests.sh
View File

@ -51,7 +51,7 @@ if [ $ret != 0 ]; then echo_i "failed"; fi
status=`expr $status + $ret` status=`expr $status + $ret`
echo_i "disabling server to force non-dnssec SERVFAIL" echo_i "disabling server to force non-dnssec SERVFAIL"
$PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} . ns2 $PERL $SYSTEMTESTTOP/stop.pl --use-rndc --port ${CONTROLPORT} sfcache ns2
awk '/SERVFAIL/ { next; out=1 } /Zone/ { out=0 } { if (out) print }' ns5/named_dump.db awk '/SERVFAIL/ { next; out=1 } /Zone/ { out=0 } { if (out) print }' ns5/named_dump.db
echo_i "checking SERVFAIL is cached ($n)" echo_i "checking SERVFAIL is cached ($n)"
ret=0 ret=0

30
bin/tests/system/start.pl
View File

@ -130,7 +130,7 @@ foreach my $name(@ans) {
# Subroutines # Subroutines
sub read_ns_port { sub read_ns_port {
my $server = shift; my ( $server ) = @_;
my $port = $queryport; my $port = $queryport;
my $options = ""; my $options = "";
@ -152,7 +152,7 @@ sub read_ns_port {
} }
sub check_ns_port { sub check_ns_port {
my $server = shift; my ( $server ) = @_;
my $options = ""; my $options = "";
my $port = read_ns_port($server); my $port = read_ns_port($server);
@ -176,7 +176,7 @@ sub check_ns_port {
print "I:$test:server sockets not available\n"; print "I:$test:server sockets not available\n";
print "I:$test:failed\n"; print "I:$test:failed\n";
system("$PERL $topdir/stop.pl $testdir"); # Is this the correct behavior? system("$PERL $topdir/stop.pl $test"); # Is this the correct behavior?
exit 1; exit 1;
} }
@ -187,9 +187,7 @@ sub check_ns_port {
} }
sub start_server { sub start_server {
my $server = shift; my ( $server, $command, $pid_file ) = @_;
my $command = shift;
my $pid_file = shift;
chdir "$testdir/$server" or die "unable to chdir \"$testdir/$server\" ($OS_ERROR)\n"; chdir "$testdir/$server" or die "unable to chdir \"$testdir/$server\" ($OS_ERROR)\n";
@ -206,7 +204,7 @@ sub start_server {
print "I:$test:Couldn't start server $command (pid=$child)\n"; print "I:$test:Couldn't start server $command (pid=$child)\n";
print "I:$test:failed\n"; print "I:$test:failed\n";
system "kill -9 $child" if ("$child" ne ""); system "kill -9 $child" if ("$child" ne "");
system "$PERL $topdir/stop.pl $testdir"; system "$PERL $topdir/stop.pl $test";
exit 1; exit 1;
} }
sleep 0.1; sleep 0.1;
@ -217,8 +215,7 @@ sub start_server {
} }
sub construct_ns_command { sub construct_ns_command {
my $server = shift; my ( $server, $options ) = @_;
my $options = shift;
my $command; my $command;
@ -290,8 +287,7 @@ sub construct_ns_command {
} }
sub start_ns_server { sub start_ns_server {
my $server = shift; my ( $server, $options ) = @_;
my $options = shift;
my $cleanup_files; my $cleanup_files;
my $command; my $command;
@ -311,8 +307,7 @@ sub start_ns_server {
} }
sub construct_ans_command { sub construct_ans_command {
my $server = shift; my ( $server, $options ) = @_;
my $options = shift;
my $command; my $command;
my $n; my $n;
@ -348,8 +343,7 @@ sub construct_ans_command {
} }
sub start_ans_server { sub start_ans_server {
my $server = shift; # masks the global variable my ( $server, $options ) = @_;
my $options = shift; # masks the global variable
my $cleanup_files; my $cleanup_files;
my $command; my $command;
@ -367,7 +361,7 @@ sub start_ans_server {
} }
sub verify_ns_server { sub verify_ns_server {
my $server = shift; my ( $server ) = @_;
my $tries = 0; my $tries = 0;
@ -390,7 +384,7 @@ sub verify_ns_server {
print "I:$test:server $server seems to have not started\n"; print "I:$test:server $server seems to have not started\n";
print "I:$test:failed\n"; print "I:$test:failed\n";
system("$PERL $topdir/stop.pl $testdir"); system("$PERL $topdir/stop.pl $test");
exit 1; exit 1;
} }
@ -425,7 +419,7 @@ sub verify_ns_server {
print "I:$test:no response from $server\n"; print "I:$test:no response from $server\n";
print "I:$test:failed\n"; print "I:$test:failed\n";
system("$PERL $topdir/stop.pl $testdir"); system("$PERL $topdir/stop.pl $test");
exit 1; exit 1;
} }

7
bin/tests/system/stop.sh Normal file → Executable file
View File

@ -9,6 +9,9 @@
# See the COPYRIGHT file distributed with this work for additional # See the COPYRIGHT file distributed with this work for additional
# information regarding copyright ownership. # information regarding copyright ownership.
. ./conf.sh SYSTEMTESTTOP="$(realpath "$(dirname "$0")")"
$PERL ./stop.pl "$@" # shellcheck source=conf.sh
. "$SYSTEMTESTTOP/conf.sh"
export SYSTEMTESTTOP
$PERL "$SYSTEMTESTTOP/stop.pl" "$@"

2
bin/tests/system/stub/tests.sh
View File

@ -53,7 +53,7 @@ digcomp knowngood.dig.out.rec dig.out.ns3 || ret=1
[ $pass = 1 ] && { [ $pass = 1 ] && {
echo_i "stopping stub server" echo_i "stopping stub server"
$PERL $SYSTEMTESTTOP/stop.pl . ns3 $PERL $SYSTEMTESTTOP/stop.pl stub ns3
echo_i "re-starting stub server" echo_i "re-starting stub server"
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} stub ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} stub ns3

4
bin/tests/system/unknown/tests.sh
View File

@ -136,7 +136,7 @@ $DIFF -s large.out dig.out > /dev/null || { ret=1 ; echo_i "$DIFF failed"; }
status=`expr $status + $ret` status=`expr $status + $ret`
echo_i "stop and restart slave" echo_i "stop and restart slave"
$PERL $SYSTEMTESTTOP/stop.pl . ns2 $PERL $SYSTEMTESTTOP/stop.pl unknown ns2
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} unknown ns2 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} unknown ns2
echo_i "checking large unknown record loading on slave" echo_i "checking large unknown record loading on slave"
@ -154,7 +154,7 @@ $DIFF large.out dig.out > /dev/null || { ret=1 ; echo_i "$DIFF failed"; }
status=`expr $status + $ret` status=`expr $status + $ret`
echo_i "stop and restart inline slave" echo_i "stop and restart inline slave"
$PERL $SYSTEMTESTTOP/stop.pl . ns3 $PERL $SYSTEMTESTTOP/stop.pl unknown ns3
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} unknown ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} unknown ns3
echo_i "checking large unknown record loading on inline slave" echo_i "checking large unknown record loading on inline slave"

2
bin/tests/system/xfer/tests.sh
View File

@ -429,7 +429,7 @@ echo_i "test mapped zone with out of zone data ($n)"
tmp=0 tmp=0
$DIG -p ${PORT} txt mapped @10.53.0.3 > dig.out.1.$n $DIG -p ${PORT} txt mapped @10.53.0.3 > dig.out.1.$n
grep "status: NOERROR," dig.out.1.$n > /dev/null || tmp=1 grep "status: NOERROR," dig.out.1.$n > /dev/null || tmp=1
$PERL $SYSTEMTESTTOP/stop.pl . ns3 $PERL $SYSTEMTESTTOP/stop.pl xfer ns3
$PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} xfer ns3 $PERL $SYSTEMTESTTOP/start.pl --noclean --restart --port ${PORT} xfer ns3
$DIG -p ${PORT} txt mapped @10.53.0.3 > dig.out.2.$n $DIG -p ${PORT} txt mapped @10.53.0.3 > dig.out.2.$n
grep "status: NOERROR," dig.out.2.$n > /dev/null || tmp=1 grep "status: NOERROR," dig.out.2.$n > /dev/null || tmp=1