aboutsummaryrefslogtreecommitdiff
path: root/test/runtests.sh
diff options
context:
space:
mode:
Diffstat (limited to 'test/runtests.sh')
-rwxr-xr-xtest/runtests.sh92
1 files changed, 92 insertions, 0 deletions
diff --git a/test/runtests.sh b/test/runtests.sh
new file mode 100755
index 00000000..5e21d2ab
--- /dev/null
+++ b/test/runtests.sh
@@ -0,0 +1,92 @@
+#!/bin/sh
+
+top_srcdir=${top_srcdir:-..}
+. ${top_srcdir}/test/setup_env.sh
+
+libeinfo_srcdir="${srcdir}/../libeinfo"
+libeinfo_builddir="${builddir}/../libeinfo"
+librc_srcdir="${srcdir}/../librc"
+librc_builddir="${builddir}/../librc"
+rc_srcdir="${srcdir}/../rc"
+rc_builddir="${builddir}/../rc"
+
+checkit() {
+ local base=$1; shift
+ echo "$@" | tr ' ' '\n' > ${base}.out
+ diff -u ${base}.list ${base}.out
+ eend $?
+ : $(( ret += $? ))
+}
+
+ret=0
+
+fail_on_out() {
+ if [ -n "${out}" ]; then
+ eerror "Last command failed; failing"
+ exit 1
+ fi
+}
+
+ebegin "Checking trailing whitespace in code"
+# XXX: Should we check man pages too ?
+out=$(cd ${top_srcdir}; find */ \
+ '(' -name '*.[ch]' -o -name '*.in' -o -name '*.sh' ')' \
+ -exec grep -n -E '[[:space:]]+$' {} +)
+[ -z "${out}" ]
+eend $? "Trailing whitespace needs to be deleted:"$'\n'"${out}"
+fail_on_out
+
+ebegin "Checking trailing newlines in code"
+out=$(cd ${top_srcdir};
+ for f in `find */ -name '*.[ch]'` ; do
+ sed -n -e :a -e '/^\n*$/{$q1;N;ba' -e '}' $f || echo $f
+ done)
+[ -z "${out}" ]
+eend $? "Trailing newlines need to be deleted:"$'\n'"${out}"
+fail_on_out
+
+ebegin "Checking for obsolete functions"
+out=$(cd ${top_srcdir}; find src -name '*.[ch]' \
+ ! -name queue.h \
+ -exec grep -n -E '\<(malloc|memory|sys/(errno|fcntl|signal|stropts|termios|unistd))\.h\>' {} +)
+[ -z "${out}" ]
+eend $? "Avoid these obsolete functions:"$'\n'"${out}"
+fail_on_out
+
+ebegin "Checking for x* func usage"
+out=$(cd ${top_srcdir}; find src -name '*.[ch]' \
+ ! -name queue.h \
+ -exec grep -n -E '\<(malloc|strdup)[[:space:]]*\(' {} + \
+ | grep -v \
+ -e src/includes/helpers.h \
+ -e src/libeinfo/libeinfo.c)
+[ -z "${out}" ]
+eend $? "These need to be using the x* variant:"$'\n'"${out}"
+fail_on_out
+
+ebegin "Checking spacing style"
+out=$(cd ${top_srcdir}; find src -name '*.[ch]' \
+ ! -name queue.h \
+ -exec grep -n -E \
+ -e '\<(for|if|switch|while)\(' \
+ -e '\<(for|if|switch|while) \( ' \
+ -e ' ;' \
+ -e '[[:space:]]$' \
+ -e '\){' \
+ -e '(^|[^:])//' \
+ {} +)
+[ -z "${out}" ]
+eend $? "These lines violate style rules:"$'\n'"${out}"
+fail_on_out
+
+einfo "Running unit tests"
+eindent
+for u in units/*; do
+ [ -x "${u}" -a -f "${u}" ] || continue
+ ebegin "$(basename "${u}")"
+ ./"${u}"
+ eend $?
+ : $(( ret += $? ))
+done
+
+exit ${ret}