cd "${0%/*}" || exit 1
test_count=0
+fail_count=0
COLUMNS=40
-diffcmd='diff --unchanged-line-format= --old-line-format=<%L --new-line-format=>%L'
+regenerate=
+diffcmd () {
+ comm --nocheck-order --output-delimiter=::: -3 $@ |
+ perl -pe'END{exit !!$.} s/^:::/>/ || s/^/</'
+}
+
+for option in "$@"
+do
+ case "$option" in
+ -G) regenerate=1 && shift;;
+ -*) echo "Usage: $0 [-G] [<files>...]"; exit 64;;
+ esac
+done
for candidate in ${@:-t*.in}
do
cmd="barcat $file.in"
case "$name" in *\ -*) cmd="$cmd -${name#* -}";; esac
- $cmd 2>&1 | $diffcmd "$file.out" - || printf 'not '
+ if test -n "$regenerate"
+ then
+ if test -e $file.sh
+ then
+ echo "ok $test_count # skip $file.out"
+ continue
+ fi
+ $cmd >$file.out 2>&1
+ else
+ if test -e $file.sh; then $cmd 2>&1 | ./$file.sh; fi &&
+ if test -e $file.out; then $cmd 2>&1 | diffcmd "$file.out" -; fi
+ fi
+
+ if test 0 != $?
+ then
+ fail_count=$((fail_count+1))
+ printf 'not '
+ fi
echo "ok $test_count - $name"
done
echo "1..$test_count"
+exit $((fail_count>0))