1# Copyright 2008-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 16 17standard_testfile start.c 18 19if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} { 20 return -1 21} 22 23# Do not run the inferior as the purpose of this testcase is to test 24# the behavior of the "set language" command when there is no inferior. 25 26# Check the language after the binary has been loaded. It should be 27# "auto; currently c". 28gdb_test "show lang" \ 29 "The current source language is \"auto; currently c\"\\." \ 30 "show lang after loading binary" 31 32# Now, switch the language to a specific language, instead of leaving it 33# on auto. 34gdb_test_no_output "set lang ada" \ 35 "forcing the language to ada" 36 37# Verify that the language is now "ada". 38gdb_test "show lang" \ 39 "The current source language is \"ada\"\\." \ 40 "show lang after switching language to ada" 41 42# Then, switch back to auto... 43gdb_test_no_output "set lang auto" \ 44 "switching the language back to auto" 45 46# ... And verify that the language mode is back to auto *and* that 47# the selected language is C. 48 49gdb_test "show lang" \ 50 "The current source language is \"auto; currently c\"\\." \ 51 "show lang after having switched back to auto" 52 53 54