[binutils-gdb] gdb/testsuite: add binary testcases to py-format-string.exp

[binutils-gdb] gdb/testsuite: add binary testcases to py-format-string.exp

[Enze Li]

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

commit 9d748d023d2df565e04974b5bb45618c24b30c15
Author: Enze Li <lienze2010@hotmail.com>
Date:   Sat Apr 16 15:36:29 2022 +0800

    gdb/testsuite: add binary testcases to py-format-string.exp
    
    We currently only test decimal and hexadecimal for the
    gdb.Value.format_string() interface, this patch adds testcases for
    binary format.
    
    Tested on x86_64 openSUSE Tumbleweed(VERSION_ID="20220413").

Diff:
---
 gdb/testsuite/gdb.python/py-format-string.exp | 37 +++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gdb/testsuite/gdb.python/py-format-string.exp b/gdb/testsuite/gdb.python/py-format-string.exp
index ac1353ea2e3..63b87e73476 100644
--- a/gdb/testsuite/gdb.python/py-format-string.exp
+++ b/gdb/testsuite/gdb.python/py-format-string.exp
@@ -898,6 +898,43 @@ proc_with_prefix test_format {} {
     }
   }
 
+  # Binary.
+  set opts "format='t'"
+  with_test_prefix $opts {
+    set binary_pointer_regexp "\[0-1\]+"
+    gdb_test "python print (gdb.Value (42).format_string (${opts}))" \
+      "101010" \
+      "42 with option ${opts}"
+
+    check_format_string "a_point_t" $opts
+    check_format_string "a_point_t_pointer" $opts \
+      $binary_pointer_regexp
+    check_format_string "another_point" $opts
+    check_format_string "a_struct_with_union" $opts \
+      "\\{the_union = \\{an_int = 101010001010100010101000101010, a_char = 101010\\}\\}"
+    check_format_string "an_enum" $opts \
+      "1"
+    check_format_string "a_string" $opts \
+      $binary_pointer_regexp
+    check_format_string "a_binary_string" $opts \
+      $binary_pointer_regexp
+    check_format_string "a_binary_string_array" $opts \
+      "\\{1101000, 1100101, 1101100, 1101100, 1101111, 0, 1110111, 1101111, 1110010, 1101100, 1100100, 0\\}"
+    check_format_string "a_big_string" $opts \
+      "\\{1000001, 1000010, 1000011, 1000100, 1000101, \[, 0-1\]+\.\.\.\\}"
+    check_format_string "an_array" $opts \
+      "\\{10, 11, 101\\}"
+    check_format_string "an_array_with_repetition" $opts \
+      "\\{1, 11 <repeats 12 times>, 101, 101, 101\\}"
+    check_format_string "a_symbol_pointer" $opts \
+      $binary_pointer_regexp
+
+    if { $current_lang == "c++" } {
+      check_format_string "a_point_t_ref" $opts
+      check_format_string "a_base_ref" $opts
+    }
+  }
+
   # Decimal.
   set opts "format='d'"
   with_test_prefix $opts {