diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/formatted_ref.exp')
-rw-r--r-- | gdb/testsuite/gdb.ada/formatted_ref.exp | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp index bb5f78c0d72..19a32658d98 100644 --- a/gdb/testsuite/gdb.ada/formatted_ref.exp +++ b/gdb/testsuite/gdb.ada/formatted_ref.exp @@ -70,16 +70,23 @@ proc test_p_x_addr { var addr } { global gdb_prompt foreach attr {access unchecked_access unrestricted_access} { - set test "print/x $var'$attr" - gdb_test_multiple $test $test { - -re "\\$\[0-9\]+ = $addr.*$gdb_prompt $" { - pass $test - } - -re "\\$\[0-9\]+ = 0x\[a-f0-9+\]+.*$gdb_prompt $" { - fail "$test (prints unexpected address)" + foreach space {"" " "} { + set test "print/x $var'$space$attr" + gdb_test_multiple $test $test { + -re "\\$\[0-9\]+ = $addr.*$gdb_prompt $" { + pass $test + } + -re "\\$\[0-9\]+ = 0x\[a-f0-9+\]+.*$gdb_prompt $" { + fail "$test (prints unexpected address)" + } } } } + + gdb_test "complete print/x $var'unres" "print/x $var'unrestricted_access" + gdb_test_no_output "complete print/x $var'abcd" + gdb_test "complete print $var'f" "print $var'first" + return 0 } |