test-tap.at: Tweak filename generation.

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

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"