diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-cmd.exp | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-cmd.exp b/gdb/testsuite/gdb.guile/scm-cmd.exp index a7fb59b..25a9780 100644 --- a/gdb/testsuite/gdb.guile/scm-cmd.exp +++ b/gdb/testsuite/gdb.guile/scm-cmd.exp @@ -149,14 +149,17 @@ gdb_test "complete expr-test bar\." \ "expr-test bar\.bc.*expr-test bar\.ij.*" \ "test completion through complete command" -set test "complete 'expr-test bar.i'" -send_gdb "expr-test bar\.i\t\t" -gdb_test_multiple "" "$test" { - -re "expr-test bar\.ij \\\x07$" { - send_gdb "\n" - gdb_test_multiple "" $test { - -re "invoked on = bar.ij.*$gdb_prompt $" { - pass "$test" + +if { [readline_is_used] } { + set test "complete 'expr-test bar.i'" + send_gdb "expr-test bar\.i\t\t" + gdb_test_multiple "" "$test" { + -re "expr-test bar\.ij \\\x07$" { + send_gdb "\n" + gdb_test_multiple "" $test { + -re "invoked on = bar.ij.*$gdb_prompt $" { + pass "$test" + } } } } |