[gdb/testsuite] Fix gdb.server/file-transfer.exp for remote host
authorTom de Vries <tdevries@suse.de>
Tue, 28 Mar 2023 15:48:35 +0000 (17:48 +0200)
committerTom de Vries <tdevries@suse.de>
Tue, 28 Mar 2023 15:48:35 +0000 (17:48 +0200)
Fix test-case gdb.server/file-transfer.exp for remote host using
gdb_remote_download and host_standard_output_file.

Tested on x86_64-linux.

gdb/testsuite/gdb.server/file-transfer.exp

index 05da514413c32887e6164a9667a7646e6ba6b3eb..5e273350f900baf58a5ca06587e52c96060e0198 100644 (file)
@@ -33,6 +33,8 @@ gdb_test "disconnect" ".*"
 gdbserver_run ""
 
 proc test_file_transfer { filename description } {
+    set host_filename [gdb_remote_download host $filename]
+
     set up_server up-server
     set down_server down-server
 
@@ -40,11 +42,9 @@ proc test_file_transfer { filename description } {
        set down_server [standard_output_file $down_server]
     }
 
-    if {![is_remote host]} {
-       set up_server [standard_output_file $up_server]
-    }
+    set up_server [host_standard_output_file $up_server]
 
-    gdb_test "remote put \"$filename\" $down_server" \
+    gdb_test "remote put \"$host_filename\" $down_server" \
        "Successfully sent .*" "put $description"
     gdb_test "remote get $down_server $up_server" \
        "Successfully fetched .*" "get $description"
@@ -52,7 +52,7 @@ proc test_file_transfer { filename description } {
     if { ![is_remote target] } {
        # If we can check the target copy of the file, do that too.
        # This should catch symmetric errors in upload and download.
-       set result [remote_exec host "cmp -s $filename $down_server"]
+       set result [remote_exec build "cmp -s $filename $down_server"]
        if { [lindex $result 0] == 0 } {
            pass "compare intermediate $description"
        } else {
@@ -60,7 +60,7 @@ proc test_file_transfer { filename description } {
        }
     }
 
-    set result [remote_exec host "cmp -s $filename $up_server"]
+    set result [remote_exec host "cmp -s $host_filename $up_server"]
     if { [lindex $result 0] == 0 } {
        pass "compare $description"
     } else {