diff options
| author | Tom de Vries <tdevries@suse.de> | 2022-10-20 09:02:18 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2022-10-20 09:02:18 +0200 |
| commit | 9c1c98cc632a7f4721e0b19edcb8f6bcd9347942 (patch) | |
| tree | e8cefc935329178c10c305ddd94bffb18aa6ad21 | |
| parent | 53707efa1b9d04a844c445a446c0523e509ac61c (diff) | |
| download | gdb-9c1c98cc632a7f4721e0b19edcb8f6bcd9347942.zip gdb-9c1c98cc632a7f4721e0b19edcb8f6bcd9347942.tar.gz gdb-9c1c98cc632a7f4721e0b19edcb8f6bcd9347942.tar.bz2 | |
[gdb/testsuite] Fix gdb.mi/mi-disassemble.exp with check-read1
With test-case gdb.mi/mi-disassemble.exp and check-read1 I run into:
...
FAIL: gdb.mi/mi-disassemble.exp: disassemble /b main
FAIL: gdb.mi/mi-disassemble.exp: get valueof "*((unsigned char *) 0x400549)"
...
The problem for both FAILs is that the output is parsed using
gdb_test_multiple, which has implicit clauses using $gdb_prompt, which can
match before the explicit clauses using $mi_gdb_prompt.
Fix this by passing -prompt "$mi_gdb_prompt$" to gdb_test_multiple.
Tested on x86-64-linux.
| -rw-r--r-- | gdb/testsuite/gdb.mi/mi-disassemble.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.mi/mi-disassemble.exp b/gdb/testsuite/gdb.mi/mi-disassemble.exp index cac3689..d2b60f1 100644 --- a/gdb/testsuite/gdb.mi/mi-disassemble.exp +++ b/gdb/testsuite/gdb.mi/mi-disassemble.exp @@ -269,7 +269,7 @@ proc test_disassembly_opcode_format {} { # then disassemble using the MI command. set longest_insn_bytes "" set longest_insn_addr "" - gdb_test_multiple "disassemble /b main" "" { + gdb_test_multiple "disassemble /b main" "" -prompt "$::mi_gdb_prompt$" { -re "^disassemble /b main\r\n" { exp_continue } diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index 2b534f5..e537d3b 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -2849,7 +2849,7 @@ proc mi_get_valueof { fmt exp default {test ""} } { } set val ${default} - gdb_test_multiple "print${fmt} ${exp}" "$test" { + gdb_test_multiple "print${fmt} ${exp}" "$test" -prompt "$::mi_gdb_prompt$" { -re "~\"\\$\[0-9\]* = (\[^\r\n\]*)\\\\n\"\r\n\\^done\r\n$mi_gdb_prompt$" { set val $expect_out(1,string) pass "$test" |