- if {[string match $pattern $contents]} {
- pass "results of save breakpoints for '$arg'"
- } else {
- fail "results of save breakpoints for '$arg'"
- }
+ gdb_assert {[expr [llength $data] == 3]} \
+ "Number of lines of save breakpoints for '$arg'"
+ # Check the first line.
+ gdb_assert {[string match $pattern [lindex $data 0]]} \
+ "1st line of save breakpoints for '$arg'"
+ # Check the second line.
+ gdb_assert {[string match "break main" [lindex $data 1]]} \
+ "2nd line of save breakpoints for '$arg'"
+ # Check the trailing newline.
+ gdb_assert {[string match "" [lindex $data 2]]} \
+ "Trailing newline of save breakpoints for '$arg'"