OLD | NEW |
1 # This testcase is part of GDB, the GNU debugger. | 1 # This testcase is part of GDB, the GNU debugger. |
2 # Copyright 2007-2012 Free Software Foundation, Inc. | 2 # Copyright 2007-2012 Free Software Foundation, Inc. |
3 | 3 |
4 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 6 # the Free Software Foundation; either version 3 of the License, or |
7 # (at your option) any later version. | 7 # (at your option) any later version. |
8 # | 8 # |
9 # This program is distributed in the hope that it will be useful, | 9 # This program is distributed in the hope that it will be useful, |
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 # GNU General Public License for more details. | 12 # GNU General Public License for more details. |
13 # | 13 # |
14 # You should have received a copy of the GNU General Public License | 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/>. | 15 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
16 | 16 |
17 # Test gdbserver monitor commands. | 17 # Test gdbserver monitor commands. |
18 | 18 |
19 load_lib gdbserver-support.exp | 19 load_lib gdbserver-support.exp |
20 | 20 |
21 set testfile "server" | 21 standard_testfile server.c |
22 set srcfile ${testfile}.c | |
23 set binfile ${objdir}/${subdir}/file-transfer${EXEEXT} | |
24 | 22 |
25 if { [skip_gdbserver_tests] } { | 23 if { [skip_gdbserver_tests] } { |
26 return 0 | 24 return 0 |
27 } | 25 } |
28 | 26 |
29 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug}] != "" } { | 27 if {[prepare_for_testing $testfile.exp $testfile $srcfile debug]} { |
30 untested file-transfer.exp | |
31 return -1 | 28 return -1 |
32 } | 29 } |
33 | 30 |
34 gdb_exit | 31 # Make sure we're disconnected, in case we're testing with an |
35 gdb_start | 32 # extended-remote board, therefore already connected. |
36 gdb_load $binfile | 33 gdb_test "disconnect" ".*" |
37 gdb_reinitialize_dir $srcdir/$subdir | |
38 | 34 |
39 gdbserver_run "" | 35 gdbserver_run "" |
40 | 36 |
41 proc test_file_transfer { filename description } { | 37 proc test_file_transfer { filename description } { |
42 gdb_test "remote put \"$filename\" down-server" \ | 38 gdb_test "remote put \"$filename\" down-server" \ |
43 "Successfully sent .*" "put $description" | 39 "Successfully sent .*" "put $description" |
44 gdb_test "remote get down-server up-server" \ | 40 gdb_test "remote get down-server up-server" \ |
45 "Successfully fetched .*" "get $description" | 41 "Successfully fetched .*" "get $description" |
46 | 42 |
47 if { ![is_remote target] } { | 43 if { ![is_remote target] } { |
(...skipping 23 matching lines...) Expand all Loading... |
71 } else { | 67 } else { |
72 fail "verified deleted $description" | 68 fail "verified deleted $description" |
73 } | 69 } |
74 } | 70 } |
75 | 71 |
76 catch { file delete up-server } | 72 catch { file delete up-server } |
77 } | 73 } |
78 | 74 |
79 test_file_transfer "$binfile" "binary file" | 75 test_file_transfer "$binfile" "binary file" |
80 test_file_transfer "$srcdir/$subdir/transfer.txt" "text file" | 76 test_file_transfer "$srcdir/$subdir/transfer.txt" "text file" |
OLD | NEW |