diff options
| author | Andrew Burgess <aburgess@redhat.com> | 2022-11-14 11:31:04 +0000 |
|---|---|---|
| committer | Andrew Burgess <aburgess@redhat.com> | 2022-11-28 21:04:09 +0000 |
| commit | 65a33d75c2667895f067cc5f9079215126cbb2eb (patch) | |
| tree | fdd3f74defa60f3a0cb96123071d49990fd9cfe0 /gdb/testsuite/gdb.base/break.exp | |
| parent | ed7fbdd033a272ff0d7d82c2153d7d0fade80d26 (diff) | |
| download | gdb-65a33d75c2667895f067cc5f9079215126cbb2eb.zip gdb-65a33d75c2667895f067cc5f9079215126cbb2eb.tar.gz gdb-65a33d75c2667895f067cc5f9079215126cbb2eb.tar.bz2 | |
gdb/testsuite: remove use of then keyword from gdb.base/*.exp
The canonical form of 'if' in modern TCL is 'if {} {}'. But there's
still a bunch of places in the testsuite where we make use of the
'then' keyword, and sometimes these get copies into new tests, which
just spreads poor practice.
This commit removes all use of the 'then' keyword from the gdb.base/
test script directory.
There should be no changes in what is tested after this commit.
Diffstat (limited to 'gdb/testsuite/gdb.base/break.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/break.exp | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gdb/testsuite/gdb.base/break.exp b/gdb/testsuite/gdb.base/break.exp index 258c468..7ef588e 100644 --- a/gdb/testsuite/gdb.base/break.exp +++ b/gdb/testsuite/gdb.base/break.exp @@ -161,7 +161,7 @@ proc_with_prefix test_break {} { exp_continue } -re ".*$::gdb_prompt $" { - if { !$see1 && $see2 && !$see3 && $see4 && !$see5 && $see6 } then { + if {!$see1 && $see2 && !$see3 && $see4 && !$see5 && $see6} { pass "info break 2 4 6" } else { fail "info break 2 4 6" @@ -202,7 +202,7 @@ proc_with_prefix test_break {} { exp_continue } -re ".*$::gdb_prompt $" { - if { !$see1 && !$see2 && $see3 && $see4 && $see5 && !$see6 } then { + if {!$see1 && !$see2 && $see3 && $see4 && $see5 && !$see6} { pass "info break 3-5" } else { fail "info break 3-5" @@ -260,7 +260,7 @@ proc_with_prefix test_break {} { exp_continue } -re ".*$::gdb_prompt $" { - if { $see1 && $see2 && $see3 && $see4 && $see5 && $see6 } then { + if {$see1 && $see2 && $see3 && $see4 && $see5 && $see6} { pass "check disable with history values" } else { fail "check disable with history values" @@ -308,7 +308,7 @@ proc_with_prefix test_break {} { exp_continue } -re ".*$::gdb_prompt $" { - if { $see1 && $see2 && $see3 && $see4 && $see5 && $see6 } then { + if {$see1 && $see2 && $see3 && $see4 && $see5 && $see6} { pass "check disable with convenience values" } else { fail "check disable with convenience values" @@ -458,7 +458,7 @@ test_tbreak proc_with_prefix test_no_break_on_catchpoint {} { clean_restart break - if ![runto_main] then { + if {![runto_main]} { return } @@ -482,7 +482,7 @@ test_no_break_on_catchpoint proc_with_prefix test_break_nonexistent_line {} { clean_restart break - if ![runto_main] then { + if {![runto_main]} { return } @@ -497,7 +497,7 @@ test_break_nonexistent_line proc_with_prefix test_break_default {} { clean_restart break - if ![runto_main] then { + if {![runto_main]} { return } @@ -541,7 +541,7 @@ test_break_default proc_with_prefix test_break_silent_and_more {} { clean_restart break - if ![runto_main] then { + if {![runto_main]} { return } @@ -686,7 +686,7 @@ test_break_user_call proc_with_prefix test_finish_arguments {} { clean_restart break - if ![runto_main] then { + if {![runto_main]} { return } |