diff options
| author | Tom de Vries <tdevries@suse.de> | 2023-03-29 08:01:42 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2023-03-29 08:01:42 +0200 |
| commit | 7b193de63a5444ecf7017d58ecaa03b779e291fa (patch) | |
| tree | 3067571c8099942f41cfa0f2aae3db2e8d05a381 | |
| parent | 79260be4755868f64042f25e7a7c8f1612695753 (diff) | |
| download | binutils-gdb-7b193de63a5444ecf7017d58ecaa03b779e291fa.tar.gz | |
[gdb/testsuite] Fix gdb.guile/scm-cmd.exp without readline
Fix test-case gdb.guile/scm-cmd.exp using readline_is_used.
Tested on x86_64-linux.
| -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 a7fb59b0089..25a9780a4d5 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" + } } } } |