[binutils-gdb] GDB/testsuite: Add coverage for `print -elements' command

[Maciej W. Rozycki]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=309e147fbd26a433ec3a1e2cd346633bb615de29

commit 309e147fbd26a433ec3a1e2cd346633bb615de29
Author: Maciej W. Rozycki <macro@embecosm.com>
Date:   Thu Jul 7 12:00:18 2022 +0100

    GDB/testsuite: Add coverage for `print -elements' command
    
    We currently have no coverage for the `print -elements ...' command (or
    `p -elements ...' in the shortened form), so add a couple of test cases
    mimicking ones using corresponding `set print elements ...' values.

Diff:
---
 gdb/testsuite/gdb.base/printcmds.exp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp
index 0a99f3d6f27..60b9de47e52 100644
--- a/gdb/testsuite/gdb.base/printcmds.exp
+++ b/gdb/testsuite/gdb.base/printcmds.exp
@@ -536,6 +536,15 @@ proc test_print_strings {} {
     gdb_test "p teststring" \
 	" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 20"
 
+    gdb_test "p -elements 1 -- teststring" \
+	" = (.unsigned char .. )?\"t\"\\.\\.\\."
+    gdb_test "p -elements 5 -- teststring" \
+	" = (.unsigned char .. )?\"tests\"\\.\\.\\."
+    gdb_test "p -elements 19 -- teststring" \
+	" = (.unsigned char .. )?\"teststring contents\""
+    gdb_test "p -elements 20 -- teststring" \
+	" = (.unsigned char .. )?\"teststring contents\""
+
     gdb_test "print teststring2" \
 	" = \\(charptr\\) \"more contents\""