OpenGrok

31 # - VAR_NAME is the name of the variable to be checked.
41 proc check_getenv { var_name var_value { test_msg "" } { empty_var_p 0 } } {
45 	set test_msg "print result of getenv for $var_name"
54     gdb_test "print my_getenv (\"$var_name\")" "\\\$$decimal = $var_value_match" \
78 # - VAR_NAME is the name of the environment variable.  If empty,
85 #   set using another name.  If empty, defatults, to $var_name.
91 proc do_test { var_value { var_name "" } { var_name_match "" } { var_value_match "" } } {
96     if { $var_name == "" } {
97 	set var_name $test_var_name
101 	set var_name_match $var_name
109 	gdb_test_no_output "set environment $var_name = $var_value" \
110 	    "set $var_name = $var_value"
112 	gdb_test "set environment $var_name =" \
113 	    "Setting environment variable \"$var_name\" to null value." \
114 	    "set $var_name to null value"
120 	"print result of getenv for $var_name"

Indexes created Sat May 02 00:23:24 UTC 2026