gdb/testsuite/gdb.base/max-value-size.exp

   1 # Copyright (C) 2016-2023 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 standard_testfile
  17
  18 if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
  19     return -1
  20 }
  21
  22 if {![runto_main]} {
  23     return 0
  24 }
  25
  26 # Run "show max-value-size" and return the interesting bit of the
  27 # result.  This is either the maximum size in bytes, or the string
  28 # "unlimited".
  29 proc get_max_value_size {} {
  30     global gdb_prompt
  31     global decimal
  32
  33     gdb_test_multiple "show max-value-size" "" {
  34         -re "Maximum value size is ($decimal) bytes.*$gdb_prompt $" {
  35             return $expect_out(1,string)
  36         }
  37         -re "Maximum value size is unlimited.*$gdb_prompt $" {
  38             return "unlimited"
  39         }
  40     }
  41 }
  42
  43 # Assuming that MAX_VALUE_SIZE is the current value for
  44 # max-value-size, print the test values.  Use TEST_PREFIX to make the
  45 # test names unique.
  46 proc do_value_printing { max_value_size test_prefix } {
  47     with_test_prefix ${test_prefix} {
  48         gdb_test "p/d one" " = 0"
  49         if {$max_value_size != "unlimited" && $max_value_size < 100} {
  50             gdb_test "p/d one_hundred" \
  51                 "value requires 100 bytes, which is more than max-value-size"
  52         } else {
  53             gdb_test "p/d one_hundred" " = \\{0 <repeats 100 times>\\}"
  54         }
  55         gdb_test "p/d one_hundred \[99\]" " = 0"
  56     }
  57 }
  58
  59 # Install SET_VALUE as the value for max-value-size, then print the
  60 # test values.
  61 proc set_and_check_max_value_size { set_value } {
  62     if {$set_value == "unlimited"} {
  63         set check_pattern "unlimited"
  64     } else {
  65         set check_pattern "${set_value} bytes"
  66     }
  67
  68     gdb_test_no_output "set max-value-size ${set_value}"
  69     gdb_test "show max-value-size" \
  70         "Maximum value size is ${check_pattern}." \
  71         "check that the value shows as ${check_pattern}"
  72
  73     do_value_printing ${set_value} "max-value-size is '${set_value}'"
  74 }
  75
  76 # Check the default value is sufficient.
  77 do_value_printing [get_max_value_size] "using initial max-value-size"
  78
  79 # Check some values for max-value-size that should prevent some
  80 # allocations.
  81 set_and_check_max_value_size 25
  82 set_and_check_max_value_size 99
  83
  84 # Check values for max-value-size that should allow all allocations.
  85 set_and_check_max_value_size 100
  86 set_and_check_max_value_size 200
  87 set_and_check_max_value_size "unlimited"
  88
  89 # Check that we can't set the maximum size stupidly low.
  90 gdb_test "set max-value-size 1" \
  91     "max-value-size set too low, increasing to \[0-9\]+ bytes"
  92 gdb_test "set max-value-size 0" \
  93     "max-value-size set too low, increasing to \[0-9\]+ bytes"
  94 gdb_test "set max-value-size -5" \
  95     "only -1 is allowed to set as unlimited"