| OLD | NEW |
| 1 # Copyright 1988, 1990-1992, 1994-1997, 1999-2000, 2007-2012 Free | 1 # Copyright 1988, 1990-1992, 1994-1997, 1999-2000, 2007-2012 Free |
| 2 # Software Foundation, Inc. | 2 # 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 # This file was written by Rob Savoye. (rob@cygnus.com) | 17 # This file was written by Rob Savoye. (rob@cygnus.com) |
| 18 | 18 |
| 19 # Can't do this test without stdio support. | 19 # Can't do this test without stdio support. |
| 20 if [gdb_skip_stdio_test "a2run.exp"] { | 20 if [gdb_skip_stdio_test "a2run.exp"] { |
| 21 return | 21 return |
| 22 } | 22 } |
| 23 | 23 |
| 24 if $tracelevel then { | |
| 25 strace $tracelevel | |
| 26 } | |
| 27 | |
| 28 # | 24 # |
| 29 # test running programs | 25 # test running programs |
| 30 # | 26 # |
| 31 | 27 |
| 32 set testfile a2-run | 28 set testfile a2-run |
| 33 if { [prepare_for_testing ${testfile}.exp $testfile run.c] } { | 29 if { [prepare_for_testing ${testfile}.exp $testfile run.c] } { |
| 34 return -1 | 30 return -1 |
| 35 } | 31 } |
| 36 | 32 |
| 37 # Run with no arguments. | 33 # Run with no arguments. |
| (...skipping 66 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 104 pass "run \"$testfile\" with arg" | 100 pass "run \"$testfile\" with arg" |
| 105 } | 101 } |
| 106 timeout { | 102 timeout { |
| 107 fail "(timeout) run \"$testfile\" with arg" | 103 fail "(timeout) run \"$testfile\" with arg" |
| 108 } | 104 } |
| 109 } | 105 } |
| 110 set timeout 10 | 106 set timeout 10 |
| 111 verbose "Timeout is now $timeout seconds" 2 | 107 verbose "Timeout is now $timeout seconds" 2 |
| 112 gdb_expect -re "$gdb_prompt $" {} | 108 gdb_expect -re "$gdb_prompt $" {} |
| 113 } else { | 109 } else { |
| 114 » setup_xfail "mips-idt-*" "arm-*-coff" | 110 » setup_xfail "arm-*-coff" |
| 115 gdb_run_cmd 5 | 111 gdb_run_cmd 5 |
| 116 gdb_expect { | 112 gdb_expect { |
| 117 -re ".*120.*$gdb_prompt $"\ | 113 -re ".*120.*$gdb_prompt $"\ |
| 118 { pass "run \"$testfile\" with arg" } | 114 { pass "run \"$testfile\" with arg" } |
| 119 -re ".*$gdb_prompt $" { fail "run \"$testfile\" with arg" } | 115 -re ".*$gdb_prompt $" { fail "run \"$testfile\" with arg" } |
| 120 timeout { fail "(timeout) run \"$testfile\" with arg" } | 116 timeout { fail "(timeout) run \"$testfile\" with arg" } |
| 121 } | 117 } |
| 122 } | 118 } |
| 123 | 119 |
| 124 # Run again with same arguments. | 120 # Run again with same arguments. |
| 125 setup_xfail "mips-idt-*" | |
| 126 gdb_run_cmd | 121 gdb_run_cmd |
| 127 | 122 |
| 128 if [istarget "*-*-vxworks*"] then { | 123 if [istarget "*-*-vxworks*"] then { |
| 129 set timeout 120 | 124 set timeout 120 |
| 130 verbose "Timeout is now $timeout seconds" 2 | 125 verbose "Timeout is now $timeout seconds" 2 |
| 131 gdb_expect { | 126 gdb_expect { |
| 132 "$inferior_exited_re normally" { | 127 "$inferior_exited_re normally" { |
| 133 unresolved "run \"$testfile\" again with same args" | 128 unresolved "run \"$testfile\" again with same args" |
| 134 } | 129 } |
| 135 "120" { pass "run \"$testfile\" again with same args" } | 130 "120" { pass "run \"$testfile\" again with same args" } |
| (...skipping 46 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 182 -re ".*$gdb_prompt $" { | 177 -re ".*$gdb_prompt $" { |
| 183 fail "run after setting args to nil" | 178 fail "run after setting args to nil" |
| 184 } | 179 } |
| 185 timeout { | 180 timeout { |
| 186 fail "(timeout) run after setting args to nil" | 181 fail "(timeout) run after setting args to nil" |
| 187 } | 182 } |
| 188 } | 183 } |
| 189 } | 184 } |
| 190 | 185 |
| 191 # Use "set args" command to specify an argument and run again. | 186 # Use "set args" command to specify an argument and run again. |
| 192 setup_xfail "mips-idt-*" | |
| 193 if [istarget "*-*-vxworks*"] then { | 187 if [istarget "*-*-vxworks*"] then { |
| 194 gdb_test_no_output "set args vxmain \"6\"" | 188 gdb_test_no_output "set args vxmain \"6\"" |
| 195 } else { | 189 } else { |
| 196 gdb_test_no_output "set args 6" | 190 gdb_test_no_output "set args 6" |
| 197 } | 191 } |
| 198 | 192 |
| 199 gdb_run_cmd | 193 gdb_run_cmd |
| 200 | 194 |
| 201 if [istarget "*-*-vxworks*"] then { | 195 if [istarget "*-*-vxworks*"] then { |
| 202 set timeout 120 | 196 set timeout 120 |
| (...skipping 32 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 235 if ![is_remote target] then { | 229 if ![is_remote target] then { |
| 236 gdb_test "run `echo 8`" \ | 230 gdb_test "run `echo 8`" \ |
| 237 "Starting program.*40320.*" \ | 231 "Starting program.*40320.*" \ |
| 238 "run \"$testfile\" with shell" | 232 "run \"$testfile\" with shell" |
| 239 } | 233 } |
| 240 | 234 |
| 241 # Reset the default arguments for VxWorks | 235 # Reset the default arguments for VxWorks |
| 242 if [istarget "*-*-vxworks*"] then { | 236 if [istarget "*-*-vxworks*"] then { |
| 243 gdb_test_no_output "set args main" | 237 gdb_test_no_output "set args main" |
| 244 } | 238 } |
| OLD | NEW |