# Copyright (C) 2015-2017 Internet Systems Consortium, Inc. ("ISC")
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
status=0
n=0
# using dig insecure mode as not testing dnssec here
DIGOPTS="-i -p 5300"
SENDCMD="$PERL $SYSTEMTESTTOP/send.pl 10.53.0.4 5301"
if [ -x ${DIG} ] ; then
n=`expr $n + 1`
echo "I:checking dig short form works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig split width works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +unknownformat works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig with reverse lookup works ($n)"
ret=0
# doesn't matter if has answer
n=`expr $n + 1`
echo "I:checking dig over TCP works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +multi +norrcomments works for dnskey (when default is rrcomments)($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +multi +norrcomments works for soa (when default is rrcomments)($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +rrcomments works for DNSKEY($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +short +rrcomments works for DNSKEY ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +short +nosplit works($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +short +rrcomments works($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +noheader-only works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +short +rrcomments works($n)"
ret=0
echo "I:checking dig +header-only works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +header-only works (with class and type set) ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +zflag works, and that BIND properly ignores it ($n)"
ret=0
sed -n '/Sending:/,/Got answer:/p' dig.out.test$n | grep "^;; flags: rd ad; MBZ: 0x4;" > /dev/null || ret=1
sed -n '/Got answer:/,/AUTHORITY SECTION:/p' dig.out.test$n | grep "^;; flags: qr rd ra; QUERY: 1" > /dev/null || ret=1
n=`expr $n + 1`
echo "I:checking dig +qr +ednsopt=08 does not cause an INSIST failure ($n)"
ret=0
echo "I:checking dig +ttlunits works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig respects precedence of options with +ttlunits ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig preserves origin on TCP retries ($n)"
ret=0
# Ask ans4 to still accept TCP connections, but not respond to queries
echo "//" | $SENDCMD
n=`expr $n + 1`
echo "I:checking dig -6 -4 ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig @IPv6addr -4 A a.example ($n)"
then
ret=0
else
echo "I:IPv6 unavailable; skipping"
fi
n=`expr $n + 1`
echo "I:checking dig @IPv4addr -6 +mapped A a.example ($n)"
then
ret=0
ret=0
else
echo "I:IPv6 or IPv4-to-IPv6 mapping unavailable; skipping"
fi
n=`expr $n + 1`
echo "I:checking dig +tcp @IPv4addr -6 +nomapped A a.example ($n)"
then
ret=0
ret=0
else
echo "I:IPv6 unavailable; skipping"
fi
n=`expr $n + 1`
echo "I:checking dig +notcp @IPv4addr -6 +nomapped A a.example ($n)"
then
ret=0
ret=0
else
echo "I:IPv6 unavailable; skipping"
fi
n=`expr $n + 1`
echo "I:checking dig +subnet ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +subnet +subnet ($n)"
ret=0
$DIG $DIGOPTS +tcp @10.53.0.2 +subnet=127.0.0.0 +subnet=127.0.0.1 A a.example > dig.out.test$n 2>&1 || ret=1
n=`expr $n + 1`
echo "I:checking dig +subnet with various prefix lengths ($n)"
ret=0
$DIG $DIGOPTS +tcp @10.53.0.2 +subnet=255.255.255.255/$i A a.example > dig.out.$i.test$n 2>&1 || ret=1
case $i in
esac
case $i in
esac
done
n=`expr $n + 1`
echo "I:checking dig +subnet=0/0 ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +subnet=0 ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +subnet=::/0 ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +ednsopt=8:00000000 (family=0, source=0, scope=0) ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +ednsopt=8:00030000 (family=3, source=0, scope=0) ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +subnet with prefix lengths between byte boundaries ($n)"
ret=0
done
n=`expr $n + 1`
echo "I:checking dig +sp works as an abbreviated form of split ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig -c works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +dscp ($n)"
ret=0
#TODO add a check to make sure dig is actually setting the dscp on the query
#we might have to add better logging to named for this
n=`expr $n + 1`
echo "I:checking dig +ednsopt with option number ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking dig +ednsopt with option name ($n)"
ret=0
n=`expr $n + 1`
then
echo "I:checking dig +idnout ($n)"
ret=0
else
echo "I:skipping 'dig +idnout' as IDN support is not enabled ($n)"
fi
n=`expr $n + 1`
echo "I:checking that dig warns about .local queries ($n)"
ret=0
n=`expr $n + 1`
echo "I:check that dig processes +ednsopt=key-tag and FORMERR is returned ($n)"
n=`expr $n + 1`
echo "I:check that dig processes +ednsopt=key-tag:<value-list> ($n)"
n=`expr $n + 1`
echo "I:check that dig processes +ednsopt=key-tag:<malformed-value-list> and FORMERR is returned ($n)"
ret=0
else
echo "$DIG is needed, so skipping these dig tests"
fi
# using delv insecure mode as not testing dnssec here
DELVOPTS="-i -p 5300"
if [ -x ${DELV} ] ; then
n=`expr $n + 1`
echo "I:checking delv short form works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv split width works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +unknownformat works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv -4 -6 ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv with IPv6 on IPv4 does not work ($n)"
then
ret=0
# following should fail because @IPv4 overrides earlier @IPv6 above
# and -6 forces IPv6 so this should fail, with a message
# "Use of IPv4 disabled by -6"
# it should have no results but error output
else
echo "I:IPv6 unavailable; skipping"
fi
n=`expr $n + 1`
echo "I:checking delv with IPv4 on IPv6 does not work ($n)"
then
ret=0
# following should fail because @IPv6 overrides earlier @IPv4 above
# and -4 forces IPv4 so this should fail, with a message
# "Use of IPv6 disabled by -4"
# it should have no results but error output
else
echo "I:IPv6 unavailable; skipping"
fi
n=`expr $n + 1`
echo "I:checking delv with reverse lookup works ($n)"
ret=0
# doesn't matter if has answer
n=`expr $n + 1`
echo "I:checking delv over TCP works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +multi +norrcomments works for dnskey (when default is rrcomments)($n)"
ret=0
$DELV $DELVOPTS +tcp @10.53.0.3 +multi +norrcomments DNSKEY dnskey.example > delv.out.test$n || ret=1
n=`expr $n + 1`
echo "I:checking delv +multi +norrcomments works for soa (when default is rrcomments)($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +rrcomments works for DNSKEY($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +short +rrcomments works for DNSKEY ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +short +rrcomments works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +short +nosplit works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +short +nosplit +norrcomments works ($n)"
ret=0
$DELV $DELVOPTS +tcp @10.53.0.3 +short +nosplit +norrcomments DNSKEY dnskey.example > delv.out.test$n || ret=1
n=`expr $n + 1`
echo "I:checking delv +sp works as an abbriviated form of split ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv +sh works as an abbriviated form of short ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv -c IN works ($n)"
ret=0
n=`expr $n + 1`
echo "I:checking delv -c CH is ignored, and treated like IN ($n)"
ret=0
else
echo "$DELV is needed, so skipping these delv tests"
fi
echo "I:exit status: $status"