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: http://git.draconx.ca/gitweb/dxcommon.git/commitdiff_plain/cf78d2aad652d3dd53a76e6651a08194a52afb6e?hp=5255b0884bd50f2e96d2cbd5951cb4ef98eece5d

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"