1 # This testcase is part of GDB
, the GNU debugger.
2 # Copyright
2007, 2008 Free Software Foundation
, Inc.
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.
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.
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
/>.
17 # Test gdbserver
monitor commands.
19 load_lib gdbserver
-support.exp
22 set srcfile $
{testfile
}.c
23 set binfile $
{objdir
}/$
{subdir
}/$
{testfile
}
25 if { [skip_gdbserver_tests
] } {
29 if { [gdb_compile
"${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
30 untested file
-transfer.exp
37 gdb_reinitialize_dir $srcdir
/$subdir
41 proc test_file_transfer
{ filename description
} {
42 gdb_test
"remote put \"$filename\" down-server" \
43 "Successfully sent .*" "put $description"
44 gdb_test
"remote get down-server up-server" \
45 "Successfully fetched .*" "get $description"
47 if { ![is_remote target
] } {
48 #
If we can check the target copy of the file
, do that too.
49 # This should catch symmetric errors in upload and download.
50 set result
[remote_exec host
"cmp -s $filename down-server"]
51 if { [lindex $result
0] == 0 } {
52 pass
"compare intermediate $description"
54 fail
"compare intermediate $description"
58 set result
[remote_exec host
"cmp -s $filename up-server"]
59 if { [lindex $result
0] == 0 } {
60 pass
"compare $description"
62 fail
"compare $description"
65 gdb_test
"remote delete down-server" \
66 "Successfully deleted .*" "deleted $description"
68 if { ![is_remote target
] } {
69 if { ! [remote_file target
exists down
-server
] } {
70 pass
"verified deleted $description"
72 fail
"verified deleted $description"
76 catch
{ file
delete up
-server
}
79 test_file_transfer
"$binfile" "binary file"
80 test_file_transfer
"$srcdir/$subdir/transfer.txt" "text file"