1#!/bin/sh
2#
3# Copyright (C) 2013  Internet Systems Consortium, Inc. ("ISC")
4#
5# Permission to use, copy, modify, and/or distribute this software for any
6# purpose with or without fee is hereby granted, provided that the above
7# copyright notice and this permission notice appear in all copies.
8#
9# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15# PERFORMANCE OF THIS SOFTWARE.
16
17SYSTEMTESTTOP=..
18. $SYSTEMTESTTOP/conf.sh
19
20status=0
21
22echo "I:test name to long"
23$PERL formerr.pl -a 10.53.0.1 -p 5300 nametoolong > nametoolong.out
24ans=`grep got: nametoolong.out`
25if [ "${ans}" != "got: 000080010000000000000000" ];
26then
27	echo "I:failed"; status=`expr $status + 1`;
28fi
29
30echo "I:two questions"
31$PERL formerr.pl -a 10.53.0.1 -p 5300 twoquestions > twoquestions.out
32ans=`grep got: twoquestions.out`
33if [ "${ans}" != "got: 000080010000000000000000" ];
34then
35	echo "I:failed"; status=`expr $status + 1`;
36fi
37
38# this one arguable could be NOERORR.
39echo "I:no questions"
40$PERL formerr.pl -a 10.53.0.1 -p 5300 noquestions > noquestions.out
41ans=`grep got: noquestions.out`
42if [ "${ans}" != "got: 000080010000000000000000" ];
43then
44	echo "I:failed"; status=`expr $status + 1`;
45fi
46
47echo "I:exit status: $status"
48
49exit $status
50