planned=0
tryrun() {
- note="$@"
program=$1
shift
$program "$@" > test.out 2>&1
- rv=$?
- if [ $rv -ne 0 ]; then
+ tap_return_value=$?
+ if [ $tap_return_value -ne 0 ]; then
printf 'not ';
fi
tn=$((tn + 1))
printf 'ok %d - %s %s\n' $tn $program "$*"
- if [ $rv -ne 0 ]; then
+ if [ $tap_return_value -ne 0 ]; then
cat test.out | diagstdin
+ rm test.out
fi
- return $rv
+ return $tap_return_value
}
require() {
- note="$*"
- program=$1
- shift
- $program "$@" > test.out 2>&1
+ tryrun "$@"
rv=$?
- tn=$((tn + 1))
if [ $rv -ne 0 ]; then
- printf 'not ok %d - %s %s\n' $tn $program "$*"
- cat test.out | diagstdin
- rm test.out
bailout "exit status $rv";
fi
- printf 'ok %d - %s %s\n' $tn $program "$*"
-
}
bailout() {
tn=$((tn + 1))
printf 'ok %d - %s\n' $tn "$*"
shownote
+ return $rv
}
okstreq() {
while [ $tap_skipping -gt 0 ]; do
tn=$((tn + 1))
tap_skipping=$((tap_skipping - 1))
- printf 'ok %d - skip %s\n' $tn "$*"
+ printf 'ok %d - # skip %s\n' $tn "$*"
done
}