Home | History | Annotate | Line # | Download | only in gdb.base 
      1 # Copyright 2019-2024 Free Software Foundation, Inc.
      2 #
      3 # This program is free software; you can redistribute it and/or modify
      4 # it under the terms of the GNU General Public License as published by
      5 # the Free Software Foundation; either version 3 of the License, or
      6 # (at your option) any later version.
      7 #
      8 # This program is distributed in the hope that it will be useful,
      9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
     10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     11 # GNU General Public License for more details.
     12 #
     13 # You should have received a copy of the GNU General Public License
     14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
     15 
     16 # Test pretty printing of structures and unions.
     17 
     18 standard_testfile
     19 
     20 if {[prepare_for_testing $testfile.exp $testfile $srcfile debug]} {
     21     untested $testfile.exp
     22     return -1
     23 }
     24 
     25 if ![runto_main] {
     26     return -1
     27 }
     28 
     29 gdb_test_no_output "set print pretty on"
     30 
     31 gdb_test "print s1" \
     32     [multi_line \
     33 	 " = {" \
     34 	 "  one = 1," \
     35 	 "  two = 2," \
     36 	 "  data = {" \
     37 	 "    {" \
     38 	 "      three = 7," \
     39 	 "      four = -1" \
     40 	 "    }," \
     41 	 "    {" \
     42 	 "      five = -1," \
     43 	 "      six = 15" \
     44 	 "    }" \
     45 	 "  }" \
     46 	 "}" ]
     47 
     48 gdb_test "print s2" \
     49     [multi_line \
     50 	 " = {" \
     51 	 "  one = 1," \
     52 	 "  two = 2," \
     53 	 "  {" \
     54 	 "    three = 3," \
     55 	 "    four = 4" \
     56 	 "  }" \
     57 	 "}" ]
     58