11 comm --nocheck-order --output-delimiter=::: -3 $@ |
12 perl -pe'END{exit !!$.} s/^:::/>/ || s/^/</'
18 -G) regenerate=1 && shift;;
19 -*) echo "Usage: $0 [-G] [<files>...]"; exit 64;;
23 for candidate in ${@:-t*.in}
25 test_count=$((test_count+1))
26 file="${candidate%.in}"
27 test -r "$file.in" || continue
29 name="$(echo ${file#*-} | tr _ \ )"
31 case "$name" in *\ -*) cmd="$cmd -${name#* -}";; esac
33 if test -n "$regenerate"
37 echo "ok $test_count # skip $file.out"
42 if test -e $file.sh; then $cmd 2>&1 | ./$file.sh; fi &&
43 if test -e $file.out; then $cmd 2>&1 | diffcmd "$file.out" -; fi
48 fail_count=$((fail_count+1))
51 echo "ok $test_count - $name"
55 exit $((fail_count>0))