set home ""
set test "print home var"
gdb_test_multiple "print home" $test {
- -re "\\\$$decimal = $hex \"\(.+\)\"\r\n$gdb_prompt $" {
- set home $expect_out(1,string)
- pass $test
- }
+ -re "\\\$$decimal = $hex \"\(.+\)\"\r\n$gdb_prompt $" {
+ set home $expect_out(1,string)
+ pass $test
+ }
}
if { $home == "" } {
- untested "could not retrieve home var"
- return
+ untested "could not retrieve home var"
+ return
}
set curdir ""
if { ![runto_main] } {
return -1
}
- }
- gdb_breakpoint [gdb_get_line_number "break-here"]
- gdb_continue_to_breakpoint "break-here" ".* break-here .*"
+ gdb_breakpoint [gdb_get_line_number "break-here"]
+ gdb_continue_to_breakpoint "break-here" ".* break-here .*"
- gdb_test "print dir" "\\\$$decimal = \"$gdb_cwd\", .*" \
- "inferior cwd got reset correctly"
+ gdb_test "print dir" "\\\$$decimal = \"$gdb_cwd\", .*" \
+ "inferior cwd got reset correctly"
+ }
}
test_cd_into_dir