| 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 |