1# This testcase is part of GDB, the GNU debugger. 2# Copyright 2007-2017 Free Software Foundation, Inc. 3 4# This program is free software; you can redistribute it and/or modify 5# it under the terms of the GNU General Public License as published by 6# the Free Software Foundation; either version 3 of the License, or 7# (at your option) any later version. 8# 9# This program is distributed in the hope that it will be useful, 10# but WITHOUT ANY WARRANTY; without even the implied warranty of 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12# GNU General Public License for more details. 13# 14# You should have received a copy of the GNU General Public License 15# along with this program. If not, see <http://www.gnu.org/licenses/>. 16 17# Test gdbserver monitor commands. 18 19load_lib gdbserver-support.exp 20load_lib mi-support.exp 21set MIFLAGS "-i=mi" 22 23if { [skip_gdbserver_tests] } { 24 return 0 25} 26 27standard_testfile basics.c 28 29if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 30 untested "failed to compile" 31 return -1 32} 33 34gdb_exit 35if [mi_gdb_start] { 36 continue 37} 38mi_delete_breakpoints 39mi_gdb_reinitialize_dir $srcdir/$subdir 40mi_gdb_file_cmd ${binfile} 41 42proc mi_gdbserver_run { } { 43 mi_gdb_test "kill" ".*" "" 44 45 set res [gdbserver_spawn ""] 46 set protocol [lindex $res 0] 47 set gdbport [lindex $res 1] 48 49 if { [mi_gdb_target_cmd $protocol $gdbport] != 0 } { 50 return -1 51 } 52 53 return 0 54} 55 56proc test_file_transfer { filename description } { 57 # If we are running everything locally, then we want to be sure to 58 # put the files into the test's standard output location. On the 59 # other hand, if the host or target is remote, then we need to 60 # continue with the "old-style" directory-less approach. 61 if {![is_remote host] && ![is_remote target]} { 62 set up_server [standard_output_file up-server] 63 set down_server [standard_output_file down-server] 64 } else { 65 set up_server up-server 66 set down_server down-server 67 } 68 69 mi_gdb_test "-target-file-put \"$filename\" \"${down_server}\"" \ 70 "\\^done" "put $description" 71 mi_gdb_test "-target-file-get \"${down_server}\" \"${up_server}\"" \ 72 "\\^done" "get $description" 73 74 if { ![is_remote target] } { 75 # If we can check the target copy of the file, do that too. 76 # This should catch symmetric errors in upload and download. 77 set result [remote_exec host "cmp -s $filename ${down_server}"] 78 if { [lindex $result 0] == 0 } { 79 pass "compare intermediate $description" 80 } else { 81 fail "compare intermediate $description" 82 } 83 } 84 85 set result [remote_exec host "cmp -s $filename ${up_server}"] 86 if { [lindex $result 0] == 0 } { 87 pass "compare $description" 88 } else { 89 fail "compare $description" 90 } 91 92 mi_gdb_test "-target-file-delete \"${down_server}\"" \ 93 "\\^done" "deleted $description" 94 95 if { ![is_remote target] } { 96 if { ! [remote_file target exists ${down_server}] } { 97 pass "verified deleted $description" 98 } else { 99 fail "verified deleted $description" 100 } 101 } 102 103 catch { file delete ${up_server} } 104} 105 106mi_gdbserver_run 107 108test_file_transfer "$binfile" "binary file" 109 110mi_gdb_exit 111