diff options
Diffstat (limited to 'gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp')
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp | 48 |
1 files changed, 25 insertions, 23 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp b/gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp index 8f5d50f2b72..2602aef8e1f 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-dir-file-name.exp @@ -335,34 +335,36 @@ if ![runto_main] { gdb_test "cd ${srcabsdir}/rdir" "Working directory [string_to_regexp ${srcabsdir}]/rdir\\." "cd .../rdir" -proc test { func compdir filename } { with_test_prefix "$func" { - # Clear the GDB cache. - gdb_test_no_output "set directories" "" +proc test { func compdir filename } { + with_test_prefix "$func" { + # Clear the GDB cache. + gdb_test_no_output "set directories" "" - if {$compdir == ""} { - set absolute "$filename" - } else { - set absolute "$compdir/$filename" - } - if {[string index $absolute 0] != "/"} { - error "not absolute" - } + if {$compdir == ""} { + set absolute "$filename" + } else { + set absolute "$compdir/$filename" + } + if {[string index $absolute 0] != "/"} { + error "not absolute" + } - gdb_breakpoint $func - gdb_continue_to_breakpoint $func "$func \\(\\) at .*" + gdb_breakpoint $func + gdb_continue_to_breakpoint $func "$func \\(\\) at .*" - gdb_test_no_output "set filename-display absolute" - verbose -log "expect: ${absolute}" - gdb_test "frame" " in $func \\(\\) at [string_to_regexp ${absolute}]:999" "absolute" + gdb_test_no_output "set filename-display absolute" + verbose -log "expect: ${absolute}" + gdb_test "frame" " in $func \\(\\) at [string_to_regexp ${absolute}]:999" "absolute" - gdb_test_no_output "set filename-display basename" - verbose -log "expect: [file tail $filename]" - gdb_test "frame" " in $func \\(\\) at [string_to_regexp [file tail $filename]]:999" "basename" + gdb_test_no_output "set filename-display basename" + verbose -log "expect: [file tail $filename]" + gdb_test "frame" " in $func \\(\\) at [string_to_regexp [file tail $filename]]:999" "basename" - gdb_test_no_output "set filename-display relative" - verbose -log "expect: $filename" - gdb_test "frame" " in $func \\(\\) at [string_to_regexp $filename]:999" "relative" -}} + gdb_test_no_output "set filename-display relative" + verbose -log "expect: $filename" + gdb_test "frame" " in $func \\(\\) at [string_to_regexp $filename]:999" "relative" + } +} set bdir "${srcabsdir}" set file "${srctmpfile}" |