X-Git-Url: http://git.draconx.ca/gitweb/rrace.git/blobdiff_plain/a70b0ef8bf7cb26cc779e9b2da480295f5ebf2bd..bb0ef256f417d9847b157c0a204a634d65c98a4b:/testsuite.at

diff --git a/testsuite.at b/testsuite.at
index 09efc3a..c00be48 100644
--- a/testsuite.at
+++ b/testsuite.at
@@ -18,16 +18,18 @@ AT_COLOR_TESTS
 
 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