diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/inferior-clone.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/inferior-clone.exp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/inferior-clone.exp b/gdb/testsuite/gdb.base/inferior-clone.exp index 8e03783..806ec0a 100644 --- a/gdb/testsuite/gdb.base/inferior-clone.exp +++ b/gdb/testsuite/gdb.base/inferior-clone.exp @@ -30,6 +30,8 @@ with_test_prefix "setup inferior 1" { gdb_test_no_output "set environment FOO foo" gdb_test_no_output "set environment BAR bar" gdb_test_no_output "set inferior-tty some_tty" + gdb_test {print $_gdb_setting_str("inferior-tty")} \ + " = \"some_tty\"" } # Check that properties of inferior 1 have been copied @@ -45,6 +47,8 @@ with_test_prefix "inferior 2" { gdb_test "show environment ENVVAR" "ENVVAR = var" gdb_test "show inferior-tty" \ "Terminal for future runs of program being debugged is \"some_tty\"\." + gdb_test {print $_gdb_setting_str("inferior-tty")} \ + " = \"some_tty\"" } # Change this second inferior, to check that the next clone-inferior @@ -54,6 +58,9 @@ with_test_prefix "update inferior 2" { gdb_test_no_output "set args foo" gdb_test_no_output "set cwd /somewhere/else" gdb_test_no_output "set environment FOO oof" + gdb_test_no_output "set inferior-tty another_tty" + gdb_test {print $_gdb_setting_str("inferior-tty")} \ + " = \"another_tty\"" } with_test_prefix "inferior 1" { @@ -67,6 +74,8 @@ with_test_prefix "inferior 1" { gdb_test "show environment ENVVAR" "ENVVAR = var" gdb_test "show inferior-tty" \ "Terminal for future runs of program being debugged is \"some_tty\"\." + gdb_test {print $_gdb_setting_str("inferior-tty")} \ + " = \"some_tty\"" } # Tweak inferior 1 a bit more. |