test-tap.at: Tweak filename generation.

When generating the output filenames, use only the last component of the
test program's filename, up to but not including the first period.

This should enable things to work if an absolute or relative path to an
executable is specified, and avoids extending filenames unnecessarily.

diff --git a/snippet/test-tap.at b/snippet/test-tap.at
index cf9554fa77546e984445344d4e3a50b6e87adff7..9167bc56605bf5e19dab115a4dcc65613079288b 100644 (file)
--- a/snippet/test-tap.at
+++ b/snippet/test-tap.at
@@ -18,7 +18,9 @@ m4_defun([_TEST_TAP_PREPARE], [m4_divert_push([PREPARE_TESTS])dnl
 # TAP-formatted output.
 test_run_tap () {
   program=$[1]
-
+  AS_CASE([$program],
+    [*/*], [program=`expr "$program" : '[.*/\([^.]*\)]'`],
+    [*.*], [program=`expr "$program" : '[\([^.]*\)]'`])
   "$[@]" >"$program.tap"
   status=$?
   cat "$program.tap"