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 16standard_testfile 17 18if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} { 19 return -1 20} 21 22if {![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". 29proc 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. 46proc 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. 61proc 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. 77do_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. 81set_and_check_max_value_size 25 82set_and_check_max_value_size 99 83 84# Check values for max-value-size that should allow all allocations. 85set_and_check_max_value_size 100 86set_and_check_max_value_size 200 87set_and_check_max_value_size "unlimited" 88 89# Check that we can't set the maximum size stupidly low. 90gdb_test "set max-value-size 1" \ 91 "max-value-size set too low, increasing to \[0-9\]+ bytes" 92gdb_test "set max-value-size 0" \ 93 "max-value-size set too low, increasing to \[0-9\]+ bytes" 94gdb_test "set max-value-size -5" \ 95 "only -1 is allowed to set as unlimited" 96