diff options
Diffstat (limited to 'gdb/testsuite/gdb.mi')
-rw-r--r-- | gdb/testsuite/gdb.mi/mi-file-transfer.exp | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.mi/mi-file-transfer.exp b/gdb/testsuite/gdb.mi/mi-file-transfer.exp new file mode 100644 index 0000000..3c06564 --- /dev/null +++ b/gdb/testsuite/gdb.mi/mi-file-transfer.exp @@ -0,0 +1,99 @@ +# This testcase is part of GDB, the GNU debugger. +# Copyright 2007 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +# Test gdbserver monitor commands. + +load_lib gdbserver-support.exp +load_lib mi-support.exp +set MIFLAGS "-i=mi" + +if { [skip_gdbserver_tests] } { + return 0 +} + +set testfile "basics" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { + untested mi-file-transfer.exp + return -1 +} + +gdb_exit +if [mi_gdb_start] { + continue +} +mi_delete_breakpoints +mi_gdb_reinitialize_dir $srcdir/$subdir +mi_gdb_file_cmd ${binfile} + +proc mi_gdbserver_run { } { + mi_gdb_test "kill" ".*" "" + + set res [gdbserver_spawn ""] + set protocol [lindex $res 0] + set gdbport [lindex $res 1] + + if { [mi_gdb_target_cmd $protocol $gdbport] != 0 } { + return -1 + } + + return 0 +} + +proc test_file_transfer { filename description } { + mi_gdb_test "-target-file-put \"$filename\" \"down-server\"" \ + "\\^done" "put $description" + mi_gdb_test "-target-file-get \"down-server\" \"up-server\"" \ + "\\^done" "get $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"] + if { [lindex $result 0] == 0 } { + pass "compare intermediate $description" + } else { + fail "compare intermediate $description" + } + } + + set result [remote_exec host "cmp -s $filename up-server"] + if { [lindex $result 0] == 0 } { + pass "compare $description" + } else { + fail "compare $description" + } + + mi_gdb_test "-target-file-delete \"down-server\"" \ + "\\^done" "deleted $description" + + if { ![is_remote target] } { + if { ! [remote_file target exists down-server] } { + pass "verified deleted $description" + } else { + fail "verified deleted $description" + } + } + + catch { file delete up-server } +} + +mi_gdbserver_run + +test_file_transfer "$binfile" "binary file" + +mi_gdb_exit |