1 # Copyright 2011-2021 Free Software Foundation, Inc.
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.
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.
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/>.
16 # This file was written by Pierre Muller <muller@ics.u-strasbg.fr>
18 # Check if environment variables are correctly passed to inferiors
21 # Can't pass environment variables to the inferior if when we connect,
22 # the inferior is already running.
30 # and start with a fresh gdb
32 if { [prepare_for_testing "failed to prepare" ${binfile} ${srcfile}] } {
36 # Test that the the inferior sees EXPECTED env vars starting with
38 proc test_num_test_vars {expected message} {
39 set num [get_integer_valueof "j" -1 "$message, get num vars"]
40 gdb_assert {$num == $expected} "$message, confirmed"
43 set bp_line [gdb_get_line_number "set breakpoint here"]
44 gdb_breakpoint $bp_line
46 # Restart test program, and prepare for another test sequence.
47 # Returns true on success.
48 proc run_and_count_vars {} {
49 global srcfile bp_line
51 return [runto "$srcfile:$bp_line"]
54 # Find environment variable named VARNAME (peeking inferior variables
55 # directly), and return its value. Returns "<not found>" if not
58 proc find_env {varname} {
61 for {set i 0} {1} {incr i} {
62 set test "printf \"var: %s\\n\", envp\[$i\] ? envp\[$i\] : \"\""
64 gdb_test_multiple $test $test {
65 -re "var: \r\n$gdb_prompt $" {
68 -re "var: \(\[^\r\n\]*\)\r\n$gdb_prompt $" {
69 set var $expect_out(1,string)
72 # If this fails, bail out, otherwise we get stuck in
73 # an infinite loop. The caller will end up emiting a
79 if {[string match "$varname=*" $var]} {
80 set from [expr [string first "=" $var] + 1]
81 set to [string length $var]
82 return [string range $var $from $to]
88 # Test gdb set/unset environment commands.
89 # The executable lists and counts all environment variables
90 # starting with TEST_GDB.
92 proc_with_prefix test_set_unset_env {} {
95 clean_restart $binfile
97 # First test with no TEST_GDB_VAR.
98 with_test_prefix "test1" {
99 if ![run_and_count_vars] {
102 test_num_test_vars 0 "no TEST_GDB vars"
105 # Second test with one TEST_GDB_VAR.
106 with_test_prefix "test2" {
107 gdb_test_no_output "set env TEST_GDB_VAR1 test1" \
110 if ![run_and_count_vars] {
113 test_num_test_vars 1 "one TEST_GDB var"
116 # Third test with two TEST_GDB_VAR.
117 with_test_prefix "test3" {
118 gdb_test_no_output "set env TEST_GDB_VAR2 test2" \
121 if ![run_and_count_vars] {
125 test_num_test_vars 2 "two TEST_GDB var"
128 # Fourth test with one TEST_GDB_VAR left, after one was removed
129 # with unset command.
130 with_test_prefix "test4" {
131 gdb_test_no_output "unset env TEST_GDB_VAR1" \
132 "unset TEST_GDB_VAR1"
134 if ![run_and_count_vars] {
138 test_num_test_vars 1 "one TEST_GDB var, after unset"
142 proc_with_prefix test_inherit_env_var {} {
147 # This test assumes that the build's environ (where dejagnu runs)
148 # is the same as the host's (where gdb runs) environ.
149 if [is_remote host] {
153 save_vars {env(TEST_GDB_GLOBAL)} {
154 set env(TEST_GDB_GLOBAL) "Global environment value"
156 clean_restart $binfile
158 gdb_breakpoint $bp_line
160 # First test with only inherited TEST_GDB_GLOBAL.
161 with_test_prefix "test1" {
162 if ![run_and_count_vars] {
166 gdb_test "show env" ".*TEST_GDB_GLOBAL=.*" \
167 "test passing TEST_GDB_GLOBAL to GDB"
169 test_num_test_vars 1 "TEST_GDB_GLOBAL"
171 set var [find_env "TEST_GDB_GLOBAL"]
173 gdb_assert {[string equal $var "Global environment value"]} \
174 "TEST_GDB_GLOBAL found with right value"
177 # Second test with one TEST_GDB_VAR.
178 with_test_prefix "test2" {
179 gdb_test_no_output "unset env TEST_GDB_GLOBAL" \
180 "unset TEST_GDB_GLOBAL"
182 if ![run_and_count_vars] {
186 test_num_test_vars 0 "TEST_GDB_GLOBAL is unset"