From: Nick Bowler <nbowler@draconx.ca>
Date: Sat, 6 Jan 2024 20:49:53 +0000 (-0500)
Subject: test-tap.at: Tweak filename generation.
X-Git-Url: https://git.draconx.ca/gitweb/dxcommon.git/commitdiff_plain/cf78d2aad652d3dd53a76e6651a08194a52afb6e

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 cf9554f..9167bc5 100644
--- 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"