tests: replace test runner shell script with ucode implementation

The ucode interpreter and libraries are mature enough to execute their
own testcases now, so replace the existing shell script with an equivalent
ucode implementation.

Signed-off-by: Jo-Philipp Wich <jo@mein.io>

1 files changed, 0 insertions, 240 deletions

diff --git a/tests/custom/run_tests.sh b/tests/custom/run_tests.sh
deleted file mode 100755
index 96ac783..0000000
--- a/tests/custom/run_tests.sh
+++ /dev/null
@@ -1,240 +0,0 @@
-#!/usr/bin/env bash
-
-if greadlink -f . &>/dev/null; then
-	readlink=greadlink
-else
-	readlink=readlink
-fi
-
-testdir=$(dirname "$0")
-topdir=$($readlink -f "$testdir/../..")
-
-line='........................................'
-ucode_bin=${UCODE_BIN:-"$topdir/ucode"}
-ucode_lib=${UCODE_LIB:-"$topdir"}
-
-extract_sections() {
-	local file=$1
-	local dir=$2
-	local count=0
-	local tag line outfile
-
-	while IFS= read -r line; do
-		case "$line" in
-			"-- Args --")
-				tag="args"
-				count=$((count + 1))
-				outfile=$(printf "%s/%03d.args" "$dir" $count)
-				printf "" > "$outfile"
-			;;
-			"-- Vars --")
-				tag="vars"
-				count=$((count + 1))
-				outfile=$(printf "%s/%03d.vars" "$dir" $count)
-				printf "" > "$outfile"
-			;;
-			"-- Testcase --")
-				tag="test"
-				count=$((count + 1))
-				outfile=$(printf "%s/%03d.in" "$dir" $count)
-				printf "" > "$outfile"
-			;;
-			"-- Expect stdout --"|"-- Expect stderr --"|"-- Expect exitcode --")
-				tag="${line#-- Expect }"
-				tag="${tag% --}"
-				count=$((count + 1))
-				outfile=$(printf "%s/%03d.%s" "$dir" $count "$tag")
-				printf "" > "$outfile"
-			;;
-			"-- File "*" --")
-				tag="file"
-				outfile="${line#-- File }"
-				outfile="$(echo "${outfile% --}" | xargs)"
-				outfile="$dir/files$($readlink -m "/${outfile:-file}")"
-				mkdir -p "$(dirname "$outfile")"
-				printf "" > "$outfile"
-			;;
-			"-- End (no-eol) --")
-				truncate -s -1 "$outfile"
-				tag=""
-				outfile=""
-			;;
-			"-- End --")
-				tag=""
-				outfile=""
-			;;
-			*)
-				if [ -n "$tag" ]; then
-					printf "%s\\n" "$line" >> "$outfile"
-				fi
-			;;
-		esac
-	done < "$file"
-
-	return $(ls -l "$dir/"*.in 2>/dev/null | wc -l)
-}
-
-run_testcase() {
-	local num=$1
-	local dir=$2
-	local in=$3
-	local out=$4
-	local err=$5
-	local code=$6
-	local args=$7
-	local vars=$8
-	local fail=0
-
-	(
-		cd "$dir"
-
-		IFS=$'\n'
-
-		local var
-		for var in $vars; do
-			case "$var" in
-				*=*) export "$var" ;;
-			esac
-		done
-
-		IFS=$' \t\n'
-
-		$ucode_bin -T"," -L "$ucode_lib/*.so" -D TESTFILES_PATH="$($readlink -f "$dir/files")" $args - <"$in" >"$dir/res.out" 2>"$dir/res.err"
-	)
-
-	printf "%d\n" $? > "$dir/res.code"
-	touch "$dir/empty"
-
-	sed -i -e "s#$dir#.#g" "$dir/res.out" "$dir/res.err"
-
-	if ! cmp -s "$dir/res.err" "${err:-$dir/empty}"; then
-		[ $fail = 0 ] && printf "!\n"
-		printf "Testcase #%d: Expected stderr did not match:\n" $num
-		diff -au --color=always --label="Expected stderr" --label="Resulting stderr" "${err:-$dir/empty}" "$dir/res.err"
-		printf -- "---\n"
-		fail=1
-	fi
-
-	if ! cmp -s "$dir/res.out" "${out:-$dir/empty}"; then
-		[ $fail = 0 ] && printf "!\n"
-		printf "Testcase #%d: Expected stdout did not match:\n" $num
-		diff -au --color=always --label="Expected stdout" --label="Resulting stdout" "${out:-$dir/empty}" "$dir/res.out"
-		printf -- "---\n"
-		fail=1
-	fi
-
-	if [ -n "$code" ] && ! cmp -s "$dir/res.code" "$code"; then
-		[ $fail = 0 ] && printf "!\n"
-		printf "Testcase #%d: Expected exit code did not match:\n" $num
-		diff -au --color=always --label="Expected code" --label="Resulting code" "$code" "$dir/res.code"
-		printf -- "---\n"
-		fail=1
-	fi
-
-	return $fail
-}
-
-run_test() {
-	local file=$1
-	local name=${file##*/}
-	local res ecode eout eerr ein eargs tests
-	local testcase_first=0 failed=0 count=0
-
-	printf "%s %s " "$name" "${line:${#name}}"
-
-	mkdir "/tmp/test.$$"
-
-	extract_sections "$file" "/tmp/test.$$"
-	tests=$?
-
-	[ -f "/tmp/test.$$/001.in" ] && testcase_first=1
-
-	for res in "/tmp/test.$$/"[0-9]*; do
-		case "$res" in
-			*.in)
-				count=$((count + 1))
-
-				if [ $testcase_first = 1 ]; then
-					# Flush previous test
-					if [ -n "$ein" ]; then
-						run_testcase $count "/tmp/test.$$" "$ein" "$eout" "$eerr" "$ecode" "$eargs" "$evars" || failed=$((failed + 1))
-						eout=""
-						eerr=""
-						ecode=""
-						eargs=""
-						evars=""
-					fi
-
-					ein=$res
-				else
-					run_testcase $count "/tmp/test.$$" "$res" "$eout" "$eerr" "$ecode" "$eargs" "$evars" || failed=$((failed + 1))
-
-					eout=""
-					eerr=""
-					ecode=""
-					eargs=""
-					evars=""
-				fi
-
-			;;
-			*.stdout) eout=$res ;;
-			*.stderr) eerr=$res ;;
-			*.exitcode) ecode=$res ;;
-			*.args) eargs=$(cat "$res") ;;
-			*.vars) evars=$(cat "$res") ;;
-		esac
-	done
-
-	# Flush last test
-	if [ $testcase_first = 1 ] && [ -n "$eout$eerr$ecode" ]; then
-		run_testcase $count "/tmp/test.$$" "$ein" "$eout" "$eerr" "$ecode" "$eargs" "$evars" || failed=$((failed + 1))
-	fi
-
-	rm -r "/tmp/test.$$"
-
-	if [ $failed = 0 ]; then
-		printf "OK\n"
-	else
-		printf "%s %s FAILED (%d/%d)\n" "$name" "${line:${#name}}" $failed $tests
-	fi
-
-	return $failed
-}
-
-
-n_tests=0
-n_fails=0
-
-select_tests="$@"
-
-use_test() {
-	local input="$($readlink -f "$1")"
-	local test
-
-	[ -f "$input" ] || return 1
-	[ -n "$select_tests" ] || return 0
-
-	for test in "$select_tests"; do
-		test="$($readlink -f "$test")"
-
-		[ "$test" != "$input" ] || return 0
-	done
-
-	return 1
-}
-
-for catdir in "$testdir/"[0-9][0-9]_*; do
-	[ -d "$catdir" ] || continue
-
-	printf "\n##\n## Running %s tests\n##\n\n" "${catdir##*/[0-9][0-9]_}"
-
-	for testfile in "$catdir/"[0-9][0-9]_*; do
-		use_test "$testfile" || continue
-
-		n_tests=$((n_tests + 1))
-		run_test "$testfile" || n_fails=$((n_fails + 1))
-	done
-done
-
-printf "\nRan %d tests, %d okay, %d failures\n" $n_tests $((n_tests - n_fails)) $n_fails
-exit $n_fails