-m4_divert_push([PREPARE_TESTS])dnl
-test_run_tap () {
- program=$1; shift
-
- "$builddir/t/$program" "$@" > "$program.tap"
- status=$?
- 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_SIMPLE], [dnl
-AT_SETUP([$1])
-AT_KEYWORDS([$4])dnl
-m4_n([$3])dnl
-TEST_TAP([$2])
-AT_CLEANUP])
-