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

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