X-Git-Url: http://git.draconx.ca/gitweb/rrace.git/blobdiff_plain/ad65227b902d251d04131d6d3947172de4885400..30e0f517cb2e7bc769d79a7016521b99813a9efa:/testsuite.at

diff --git a/testsuite.at b/testsuite.at
index c00be48..0a792ab 100644
--- a/testsuite.at
+++ b/testsuite.at
@@ -16,26 +16,7 @@ AT_COPYRIGHT([Copyright © 2022-2023 Nick Bowler])
 AT_INIT
 AT_COLOR_TESTS
 
-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])
+m4_include([common/snippet/test-tap.at])
 
 m4_include([tests/game.at])
 m4_include([tests/gui.at])