]> git.draconx.ca Git - rrace.git/blobdiff - testsuite.at
Avoid linking against libXt/libXm string tables.
[rrace.git] / testsuite.at
index 7e8855ec3fa599d7a36dbf0f29bedeb09d2ae97f..09efc3a6862c05b1a653698aab5b4e5f5cebb17e 100644 (file)
@@ -1,4 +1,4 @@
-AT_COPYRIGHT([Copyright © 2022 Nick Bowler])
+AT_COPYRIGHT([Copyright © 2022-2023 Nick Bowler])
 #
 # This program is free software: you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -16,4 +16,24 @@ AT_COPYRIGHT([Copyright © 2022 Nick Bowler])
 AT_INIT
 AT_COLOR_TESTS
 
+m4_divert_push([PREPARE_TESTS])dnl
+test_run_tap () {
+  "$builddir/t/$1" > "$1.tap"
+  status=$?
+  cat "$1.tap"
+  :; { echo 'print <<EOF'; cat "$1.tap"; echo 'EOF'; } >"$1.pl"
+  prove "$1.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([tests/game.at])
+m4_include([tests/gui.at])