1# Copyright (C) 2016-2020 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] 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". 30proc 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. 47proc 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. 62proc 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. 78do_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. 82set_and_check_max_value_size 25 83set_and_check_max_value_size 99 84 85# Check values for max-value-size that should allow all allocations. 86set_and_check_max_value_size 100 87set_and_check_max_value_size 200 88set_and_check_max_value_size "unlimited" 89 90# Check that we can't set the maximum size stupidly low. 91gdb_test "set max-value-size 1" \ 92 "max-value-size set too low, increasing to \[0-9\]+ bytes" 93gdb_test "set max-value-size 0" \ 94 "max-value-size set too low, increasing to \[0-9\]+ bytes" 95gdb_test "set max-value-size -5" \ 96 "only -1 is allowed to set as unlimited" 97