m4_divert_push([PREPARE_TESTS])dnl
test_run_tap () {
- "$builddir/t/$1" > "$1.tap"
+ program=$1; shift
+
+ "$builddir/t/$program" "$@" > "$program.tap"
status=$?
- cat "$1.tap"
- :; { echo 'print <<EOF'; cat "$1.tap"; echo 'EOF'; } >"$1.pl"
- prove "$1.pl" 2>&1
+ cat "$program.tap"
+ :; { echo 'print <<EOF'; cat "$program.tap"; echo 'EOF'; } >"$program.pl"
+ prove "$program.pl" 2>&1
return $status
}
m4_divert_pop([PREPARE_TESTS])
-m4_define([TEST_TAP], [AT_CHECK([test_run_tap "$1"], [0], [ignore])])
+m4_define([TEST_TAP], [AT_CHECK([test_run_tap $1], [0], [ignore])])
m4_define([TEST_TAP_SIMPLE], [dnl
AT_SETUP([$1])
AT_KEYWORDS([$4])dnl