tekhex test for commit bf0f85df1254

[Jan Beulich]

On 26.08.2025 14:56, Alan Modra wrote:
> 	* testsuite/binutils-all/tek2.obj: Change to a 3 byte data file
> 	that triggers tekhex error fixed by commit bf0f85df1254.
> 	* testsuite/binutils-all/ar.exp: Adjust to suit.
> 	* testsuite/binutils-all/objcopy.exp (objcopy_tek2bin): New proc.
> 
> diff --git a/binutils/testsuite/binutils-all/ar.exp b/binutils/testsuite/binutils-all/ar.exp
> index d06fe90c8c5..f38dce5f8a9 100644
> --- a/binutils/testsuite/binutils-all/ar.exp
> +++ b/binutils/testsuite/binutils-all/ar.exp
> @@ -1013,8 +1013,8 @@ tek1.obj:
>  *: no symbols
>  
>  tek2.obj:
> -00000001 D _binary_x_end
> -00000001 A _binary_x_size
> +00000003 D _binary_x_end
> +00000003 A _binary_x_size
>  00000000 D _binary_x_start
>  } $got] {
>  	fail $testname
> diff --git a/binutils/testsuite/binutils-all/objcopy.exp b/binutils/testsuite/binutils-all/objcopy.exp
> index ac8978fef2b..90be636e9de 100644
> --- a/binutils/testsuite/binutils-all/objcopy.exp
> +++ b/binutils/testsuite/binutils-all/objcopy.exp
> @@ -1567,3 +1567,33 @@ if { ![is_xcoff_format] } {
>  }
>  
>  run_dump_test "rename-section-01"
> +
> +proc objcopy_tek2bin {} {
> +    global OBJCOPY
> +    global OBJDUMP
> +    global srcdir
> +    global subdir
> +
> +    set tek $srcdir/$subdir/tek2.obj
> +    set out tmpdir/tek2bin
> +    if [isremote host] {

Sadly this yields

Running .../binutils/testsuite/binutils-all/objcopy.exp ...
Version .../binutils/objcopy 2.45.50.20250905
ERROR: (DejaGnu) proc "isremote host" does not exist.
The error code is TCL LOOKUP COMMAND isremote
The info on the error is:
invalid command name "isremote"
    while executing
"::tcl_unknown isremote host"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 ::tcl_unknown $args"

on two systems with TCL 8.6.x. I don't feel in the position to upgrade that.
I'm afraid also I don't know TCL / expect well enough to propose a fix myself.

Jan