Index: gdb/testsuite/gdb.base/break.exp |
diff --git a/gdb/testsuite/gdb.base/break.exp b/gdb/testsuite/gdb.base/break.exp |
index b28b85d837793edae3ad4d0ca62d9f9cf976068b..14e93451d2db6a7f69f0e07c66068cd23b365824 100644 |
--- a/gdb/testsuite/gdb.base/break.exp |
+++ b/gdb/testsuite/gdb.base/break.exp |
@@ -115,17 +115,9 @@ gdb_test "break multi_line_while_conditional" \ |
"Breakpoint.*at.* file .*$srcfile, line $bp_location4\\." \ |
"breakpoint at start of multi line while conditional" |
-set bp_location5 [gdb_get_line_number "set breakpoint 5 here"] |
set bp_location6 [gdb_get_line_number "set breakpoint 6 here"] |
-# |
-# check to see what breakpoints are set |
-# |
-if [target_info exists gdb_stub] { |
- set main_line $bp_location5 |
-} else { |
- set main_line $bp_location6 |
-} |
+set main_line $bp_location6 |
if {$hp_aCC_compiler} { |
set proto "\\(int\\)" |
@@ -362,9 +354,6 @@ gdb_test "disable \$1foo" \ |
# handle arguments. |
# Huh? There doesn't *appear* to be anything that passes arguments |
# below. |
-if [istarget "mips-idt-*"] then { |
- return |
-} |
# |
# run until the breakpoint at main is hit. For non-stubs-using targets. |
@@ -382,6 +371,13 @@ gdb_expect { |
} |
} |
+# Test the 'list' commands sets current file for the 'break LINENO' command. |
+set bp_marker1 [gdb_get_line_number "set breakpoint 16 here" ${srcfile1}] |
+gdb_test "list marker1" ".*" |
+gdb_test "break $bp_marker1" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file .*${srcfile1}, line ${bp_marker1}\\." \ |
+ "break lineno" |
+gdb_test_no_output {delete $bpnum} |
+ |
# |
# run until the breakpoint at a line number |
# |
@@ -582,14 +578,7 @@ gdb_test_multiple "break $bp_location1" \ |
} |
} |
-send_gdb "commands $expect_out(1,string)\n" |
-send_gdb "silent\n" |
-send_gdb "end\n" |
-gdb_expect { |
- -re ".*$gdb_prompt $"\ |
- {pass "set silent break bp_location1"} |
- timeout {fail "(timeout) set silent break bp_location1"} |
-} |
+gdb_test "commands $expect_out(1,string)\nsilent\nend" ">end" "set silent break bp_location1" |
gdb_test "info break $expect_out(1,string)" \ |
"\[0-9\]*\[ \t\]*breakpoint.*:$bp_location1\r\n\[ \t\]*silent.*" \ |
@@ -618,7 +607,7 @@ gdb_test "break $bp_location12 thread foo" \ |
# trailing garbage. |
# |
gdb_test "break $bp_location12 foo" \ |
- "Junk at end of arguments.*" \ |
+ "malformed linespec error: unexpected string, \"foo\".*" \ |
"breakpoint with trailing garbage disallowed" |
# Verify that GDB responds gracefully to a "clear" command that has |