added t/err.sh for testing errors

t/err.sh

@@ -0,0 +1,77 @@
+#!/bin/sh
+
+for i in $@; do :; done
+script="$i"
+
+run_partfile() {
+	l_cmd="";
+	l_nargs=$#
+
+	while [ $# -gt 3 ]
+	do
+		l_cmd="$l_cmd $1"
+		shift
+	done
+
+	l_script="$1"
+	shift ## skip the original script.
+	l_partno="$1"
+	shift ## partno
+
+	l_partfile="$1"
+	l_cmd="$l_cmd $l_partfile"
+
+	l_expected_errinfo=$(grep -n -o -E "##ERROR: .+" "$l_partfile" 2>/dev/null)
+	[ -z "$l_expected_errinfo" ] && {
+		echo "ERROR: INVALID TESTER - $l_script($l_partno) contains no ERROR information"
+		return 1
+	}
+
+	l_expected_errline=$(echo $l_expected_errinfo | cut -d: -f1)
+	l_xlen=$(echo $l_expected_errline | wc -c)
+	l_xlen=$(expr $l_xlen + 10)
+	l_expected_errmsg=$(echo $l_expected_errinfo | cut -c${l_xlen}-)
+	l_output=`$l_cmd 2>&1`
+	## the regular expression is not escaped properly. the error information must not
+	## include specifial regex characters to avoid problems.
+	echo "$l_output" | grep -E "ERROR: .+ LINE ${l_expected_errline} .+ FILE ${l_partfile} - ${l_expected_errmsg}" >/dev/null 2>&1 || {
+		echo "ERROR: error not raised at line $l_expected_errline - $l_script($l_partno) - $l_output"
+		return 1
+	}
+
+	echo "OK"
+	return 0
+}
+
+
+ever_failed=0
+partfile=`mktemp`
+partno=0
+partlines=0
+> "$partfile"
+
+## dash behaves differently for read -r.
+## while \n is read in literally by bash or other shells, dash converts it to a new-line
+while IFS= read -r line
+do
+	if [ "$line" = "---" ]
+	then
+		[ $partlines -gt 0 ] && {
+			run_partfile "$@" "$partno" "$partfile" || ever_failed=1
+		}
+		partno=`expr $partno + 1`
+		partlines=0
+		> "$partfile"
+	else
+		echo "$line" >> "$partfile"
+		partlines=`expr $partlines + 1`
+	fi
+done < "$script"
+
+[ $partlines -gt 0 ] && {
+	run_partfile "$@" "$partno" "$partfile" || ever_failed=1
+}
+
+rm -f "$partfile"
+exit $ever_failed
+