test-tap.at: Fix regression passing program arguments.

[dxcommon.git] / snippet / test-tap.at

diff --git a/snippet/test-tap.at b/snippet/test-tap.at
index cccea491342efd67d4649901aaa545d5ea14ecc4..ee4b54138268b1d0b228018c609d2bb2aad79b3b 100644 (file)
--- a/snippet/test-tap.at
+++ b/snippet/test-tap.at
@@ -1,4 +1,4 @@
-# Copyright © 2015, 2022-2023 Nick Bowler
+# Copyright © 2015, 2022-2024 Nick Bowler
 #
 # Helper macros for executing the TAP-like applications in an autotest
 # test suite.
@@ -19,13 +19,13 @@ m4_defun([_TEST_TAP_PREPARE], [m4_divert_push([PREPARE_TESTS])dnl
 test_run_tap () {
   program=$[1]; shift
 
-  "$builddir/t/$program" "$@" >"$program.tap"
+  "$builddir/t/$program" "$[@]" >"$program.tap"
   status=$?
   cat "$program.tap"
   # Older versions of prove do not support the -e option so the
   # "test" must be a perl script.
   :; { echo 'print <<EOF'; cat "$program.tap"; echo 'EOF'; } >"$program.pl"
-  prove "$program.pl" 2>&1
+  { prove "$program.pl"; } 2>&1
   return $status
 }
 m4_divert_pop([PREPARE_TESTS])])