tekhex test for commit bf0f85df1254

[Andreas Schwab]

On Sep 05 2025, Jan Beulich wrote:

> 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"

s/isremote/is_remote/, I would guess.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510  2552 DF73 E780 A9DA AEC1
"And now for something completely different."