Index: gdb/testsuite/gdb.cp/breakpoint.exp |
diff --git a/gdb/testsuite/gdb.cp/breakpoint.exp b/gdb/testsuite/gdb.cp/breakpoint.exp |
index 1072ff0287187ceea13be1c30c20d54f088b8153..c61552861425d50e6d8722f7b1eec9ce999096b8 100644 |
--- a/gdb/testsuite/gdb.cp/breakpoint.exp |
+++ b/gdb/testsuite/gdb.cp/breakpoint.exp |
@@ -17,40 +17,28 @@ |
# This contains tests for breakpoints in C++. |
-if $tracelevel then { |
- strace $tracelevel |
- } |
- |
if { [skip_cplus_tests] } { continue } |
# |
# test running programs |
# |
-set testfile "breakpoint" |
-set srcfile ${testfile}.cc |
-set binfile ${objdir}/${subdir}/${testfile} |
+standard_testfile .cc |
-if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } { |
- untested breakpoint.exp |
- return -1 |
+if [get_compiler_info "c++"] { |
+ return -1 |
} |
-if [get_compiler_info ${binfile} "c++"] { |
+if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug c++}]} { |
return -1 |
} |
-gdb_exit |
-gdb_start |
-gdb_reinitialize_dir $srcdir/$subdir |
-gdb_load ${binfile} |
- |
proc test_breakpoint {name} { |
# Restart the program every time, so that a single failure doesn't |
# lead to a cascade. |
if ![runto_main] then { |
perror "couldn't run to main when testing ${name}" |
- continue |
+ return -code continue |
} else { |
gdb_breakpoint "${name}" |
gdb_test "continue" "Continuing.\r\n\r\nBreakpoint \[0-9\]*, ${name}.*" "continue to ${name}" |