check_stdout
check_stderr
if [ "$expect" -ne "$result" ]; then
- echo "D:exit status does not match $expect"
+ echo_d "exit status does not match $expect"
fail
fi
unset name err out
else
[ -s err.$n ] || return 0
fi
- echo "D:stderr did not match '$err'"
- sed 's/^/D:/' err.$n
+ echo_d "stderr did not match '$err'"
+ cat err.$n | cat_d
fail
}
check_stdout() {
cmp out.$n "${out:-empty}" >/dev/null && return
- echo "D:stdout did not match '$out'"
+ echo_d "stdout did not match '$out'"
( echo "wanted"
cat "$out"
echo "got"
cat out.$n
- ) | sed 's/^/D:/'
+ ) | cat_d
fail
}
done
}
+echo_d() {
+ echo "$@" | while read __LINE ; do
+ echoinfo "D:$SYSTESTDIR:$__LINE"
+ done
+}
+
+cat_d() {
+ while read __LINE ; do
+ echoinfo "D:$SYSTESTDIR:$__LINE"
+ done
+}
+
+
digcomp() {
output=`$PERL $SYSTEMTESTTOP/digcomp.pl "$@"`
result=$?
SYSTESTDIR=verify
dumpit () {
- echo "D:${debug}: dumping ${1}"
- cat "${1}" | sed 's/^/D:/'
+ echo_d "${debug}: dumping ${1}"
+ cat "${1}" | cat_d
}
setup () {
echo_i "setting up $2 zone: $1"