Re: [PATCH] testsuite: do not report the absolute path in pktests

[Jose E. Marchesi]

Hi Mohammad.

Thanks for the patch.
OK for master.

> 2022-11-29  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
>
>       * testsuite/lib/poke-pk.exp (tap_execute): Only keep the filename
>       and parent directory name for test files to be consistent with
>       the rest.
> ---
>  ChangeLog                 |  6 ++++++
>  testsuite/lib/poke-pk.exp | 11 ++++++++---
>  2 files changed, 14 insertions(+), 3 deletions(-)
>
> diff --git a/ChangeLog b/ChangeLog
> index 59f1eb6e..2fb1909a 100644
> --- a/ChangeLog
> +++ b/ChangeLog
> @@ -1,3 +1,9 @@
> +2022-11-29  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
> +
> +     * testsuite/lib/poke-pk.exp (tap_execute): Only keep the filename
> +     and parent directory name for test files to be consistent with
> +     the rest.
> +
>  2022-11-27  Arsen Arsenović  <arsen@aarsen.me>
>  
>       * bootstrap: Sync with Gnulib.
> diff --git a/testsuite/lib/poke-pk.exp b/testsuite/lib/poke-pk.exp
> index a1994707..8650f0bb 100644
> --- a/testsuite/lib/poke-pk.exp
> +++ b/testsuite/lib/poke-pk.exp
> @@ -21,13 +21,18 @@ load_lib "poke.exp"
>  #
>  # A TAP consumer that translates TAP to DejaGNU.
>  
> -proc tap_execute {pkfile} {
> +proc tap_execute {pkfile_path} {
>      global POKE
>      set timeoutmsg "Timed out: Never got started, "
>      set timeout 100
>      set file all
>      set timetol 0
>      set executable $POKE
> +    # Keep only the last two elements of the path (directory name and
> +    # file name).
> +    set pkfile_name [file tail "$pkfile_path"]
> +    set pkfile_parent_dir [file tail [file dirname "$pkfile_path"]]
> +    set pkfile [file join "$pkfile_parent_dir" "$pkfile_name"]
>  
>      verbose "The executable is $executable" 2
>      if {![file exists ${executable}]} {
> @@ -35,14 +40,14 @@ proc tap_execute {pkfile} {
>          return "Poke interpreter is missing"
>      }
>      verbose "The pkfile is $pkfile" 2
> -    if {![file exists ${pkfile}]} {
> +    if {![file exists ${pkfile_path}]} {
>          perror "The poke file \"$pkfile\" is missing" 0
>          return "No source file found"
>      }
>  
>      # spawn the executable and look for the TAP output messages from the
>      # test case.
> -    spawn -noecho "${executable}" --no-hserver --color=no -q -L ${pkfile}
> +    spawn -noecho "${executable}" --no-hserver --color=no -q -L 
> ${pkfile_path}
>      set txt "\[^\r\n\]*"
>      set num "\[0-9\]\[0-9\]*"
>      expect {