ComputerSurge/bind9
3
0
Fork 0
Code Pull Requests 1 Activity

- test insecurity proofs

Browse Source 
- use digcomp.pl's ability to check rcode
- generate less unneeded output
- use separate output files for each test, so that output isn't deleted
This commit is contained in:
Brian Wellington
2000-07-08 00:39:17 +00:00
parent 71954c9571
commit 66b84e8952
1 changed files with 45 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
bin/tests/system/dnssec/tests.sh
View File

@@ -15,7 +15,7 @@
# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE.
# $Id: tests.sh,v 1.17 2000/07/07 18:25:09 bwelling Exp $
# $Id: tests.sh,v 1.18 2000/07/08 00:39:17 bwelling Exp $
#
# Perform tests
@@ -25,68 +25,71 @@ SYSTEMTESTTOP=..
. $SYSTEMTESTTOP/conf.sh
status=0
n=0
rm -f dig.out.*
DIGOPTS="+tcp +noadd +nosea +nostat +noquest +nocomm +nocmd -p 5300"
DIGOPTS="+tcp +noadd +nosea +nostat +noquest +nocmd -p 5300"
# Check the example. domain
$DIG $DIGOPTS a.example. @10.53.0.2 a > dig.out.ns2 || status=1
grep ";" dig.out.ns2
$DIG $DIGOPTS a.example. @10.53.0.2 a > dig.out.ns2.test$n || status=1
$DIG $DIGOPTS a.example. @10.53.0.3 a > dig.out.ns3.test$n || status=1
$PERL ../digcomp.pl dig.out.ns2.test$n dig.out.ns3.test$n || status=1
n=`expr $n + 1`
$DIG $DIGOPTS a.example. @10.53.0.3 a > dig.out.ns3 || status=1
grep ";" dig.out.ns3
$PERL ../digcomp.pl dig.out.ns2 dig.out.ns3 || status=1
rm -f dig.out.*
$DIG $DIGOPTS +noauth a.example. @10.53.0.2 a > dig.out.ns2 || status=1
grep ";" dig.out.ns2
$DIG $DIGOPTS +noauth a.example. @10.53.0.4 a > dig.out.ns4 || status=1
grep ";" dig.out.ns2
$PERL ../digcomp.pl dig.out.ns2 dig.out.ns4 || status=1
$DIG $DIGOPTS +noauth a.example. @10.53.0.2 a > dig.out.ns2.test$n || status=1
$DIG $DIGOPTS +noauth a.example. @10.53.0.4 a > dig.out.ns4.test$n || status=1
$PERL ../digcomp.pl dig.out.ns2.test$n dig.out.ns4.test$n || status=1
n=`expr $n + 1`
# Check the insecure.example domain
rm -f dig.out.*
$DIG $DIGOPTS a.insecure.example. @10.53.0.3 a > dig.out.ns3 || status=1
grep ";" dig.out.ns3
$DIG $DIGOPTS a.insecure.example. @10.53.0.4 a > dig.out.ns4 || status=1
grep ";" dig.out.ns4
$PERL ../digcomp.pl dig.out.ns3 dig.out.ns4 || status=1
$DIG $DIGOPTS a.insecure.example. @10.53.0.3 a > dig.out.ns3.test$n || status=1
$DIG $DIGOPTS a.insecure.example. @10.53.0.4 a > dig.out.ns4.test$n || status=1
$PERL ../digcomp.pl dig.out.ns3.test$n dig.out.ns4.test$n || status=1
n=`expr $n + 1`
# Check the secure.example domain
rm -f dig.out.*
$DIG $DIGOPTS a.secure.example. @10.53.0.3 a > dig.out.ns3 || status=1
grep ";" dig.out.ns3
$DIG $DIGOPTS a.secure.example. @10.53.0.4 a > dig.out.ns4 || status=1
grep ";" dig.out.ns4
$PERL ../digcomp.pl dig.out.ns3 dig.out.ns4 || status=1
$DIG $DIGOPTS a.secure.example. @10.53.0.3 a > dig.out.ns3.test$n || status=1
$DIG $DIGOPTS a.secure.example. @10.53.0.4 a > dig.out.ns4.test$n || status=1
$PERL ../digcomp.pl dig.out.ns3.test$n dig.out.ns4.test$n || status=1
n=`expr $n + 1`
# Check the bogus domain
rm -f dig.out.*
$DIG +tcp +noadd +nosea +nostat +noquest +nocmd -p 5300 \
a.bogus.example. @10.53.0.4 a > dig.out.ns4 || status=1
grep "SERVFAIL" dig.out.ns4 > /dev/null || status=1
a.bogus.example. @10.53.0.4 a > dig.out.ns4.test$n || status=1
grep "SERVFAIL" dig.out.ns4.test$n > /dev/null || status=1
n=`expr $n + 1`
# Try validating a key with a bad trusted key.
# This should fail.
$DIG +tcp +noadd +nosea +nostat +noquest +nocmd -p 5300 \
example. key @10.53.0.5 -p 5300 > dig.out.ns5 || status=1
grep "SERVFAIL" dig.out.ns5 > /dev/null || status=1
example. key @10.53.0.5 -p 5300 > dig.out.ns5.test$n || status=1
grep "SERVFAIL" dig.out.ns5.test$n > /dev/null || status=1
n=`expr $n + 1`
# Check the insecure.secure.example domain (insecurity proof)
$DIG $DIGOPTS a.insecure.secure.example. @10.53.0.2 a > dig.out.ns2.test$n \
|| status=1
$DIG $DIGOPTS a.insecure.secure.example. @10.53.0.4 a > dig.out.ns4.test$n \
|| status=1
$PERL ../digcomp.pl dig.out.ns2.test$n dig.out.ns4.test$n || status=1
n=`expr $n + 1`
# Check a negative response in insecure.secure.example
$DIG $DIGOPTS q.insecure.secure.example. @10.53.0.2 a > dig.out.ns2.test$n \
|| status=1
$DIG $DIGOPTS q.insecure.secure.example. @10.53.0.4 a > dig.out.ns4.test$n \
|| status=1
$PERL ../digcomp.pl dig.out.ns2.test$n dig.out.ns4.test$n || status=1
n=`expr $n + 1`
echo "I:exit status: $status"
exit $status