OLD | NEW |
1 # Copyright 2002-2004, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 2002-2004, 2007-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # This program is free software; you can redistribute it and/or modify | 3 # This program is free software; you can redistribute it and/or modify |
4 # it under the terms of the GNU General Public License as published by | 4 # it under the terms of the GNU General Public License as published by |
5 # the Free Software Foundation; either version 3 of the License, or | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
12 # | 12 # |
13 # You should have received a copy of the GNU General Public License | 13 # You should have received a copy of the GNU General Public License |
14 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
15 | 15 |
16 # This file was written by Corinna Vinschen <vinschen@redhat.com> | 16 # This file was written by Corinna Vinschen <vinschen@redhat.com> |
17 | 17 |
18 if [target_info exists gdb,nofileio] { | 18 if [target_info exists gdb,nofileio] { |
19 verbose "Skipping fileio.exp because of no fileio capabilities." | 19 verbose "Skipping fileio.exp because of no fileio capabilities." |
20 continue | 20 continue |
21 } | 21 } |
22 | 22 |
23 if $tracelevel then { | |
24 strace $tracelevel | |
25 } | |
26 | |
27 | 23 |
28 set testfile "fileio" | 24 set testfile "fileio" |
29 set srcfile ${testfile}.c | 25 set srcfile ${testfile}.c |
30 set binfile ${objdir}/${subdir}/${testfile} | 26 set binfile ${objdir}/${subdir}/${testfile} |
31 | 27 |
32 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug}] != "" } { | 28 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug}] != "" } { |
33 untested fileio.exp | 29 untested fileio.exp |
34 return -1 | 30 return -1 |
35 } | 31 } |
36 | 32 |
37 # Create and source the file that provides information about the compiler | 33 # Create and source the file that provides information about the compiler |
38 # used to compile the test case. | 34 # used to compile the test case. |
39 | 35 |
40 if [get_compiler_info ${binfile}] { | 36 if [get_compiler_info] { |
41 return -1; | 37 return -1; |
42 } | 38 } |
43 | 39 |
44 remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fi
leio.test} | 40 remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fi
leio.test} |
45 remote_exec build {sh -xc rm\ -rf\ *.fileio.test} | 41 remote_exec build {sh -xc rm\ -rf\ *.fileio.test} |
46 | 42 |
47 set oldtimeout $timeout | 43 set oldtimeout $timeout |
48 set timeout [expr "$timeout + 60"] | 44 set timeout [expr "$timeout + 60"] |
49 | 45 |
50 # Start with a fresh gdb. | 46 # Start with a fresh gdb. |
(...skipping 188 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
239 | 235 |
240 gdb_test continue \ | 236 gdb_test continue \ |
241 "Continuing\\..*time 1:.*OK$stop_msg" \ | 237 "Continuing\\..*time 1:.*OK$stop_msg" \ |
242 "Time(2) call returns the same value as in parameter" | 238 "Time(2) call returns the same value as in parameter" |
243 | 239 |
244 sleep 2 | 240 sleep 2 |
245 gdb_test continue \ | 241 gdb_test continue \ |
246 "Continuing\\..*time 2:.*OK$stop_msg" \ | 242 "Continuing\\..*time 2:.*OK$stop_msg" \ |
247 "Time(2) returns feasible values" | 243 "Time(2) returns feasible values" |
248 | 244 |
249 send_gdb "quit\n" | 245 gdb_exit |
250 send_gdb "y\n" | 246 # Wait till GDB really exits. |
| 247 sleep 1 |
251 | 248 |
252 remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fi
leio.test} | 249 remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fi
leio.test} |
253 remote_exec build {sh -xc rm\ -rf\ *.fileio.test} | 250 remote_exec build {sh -xc rm\ -rf\ *.fileio.test} |
254 | 251 |
255 set timeout $oldtimeout | 252 set timeout $oldtimeout |
256 return 0 | 253 return 0 |
OLD | NEW |