1 # Copyright 2008-2012 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/>.
18 set srcfile ${testfile}.c
19 set binfile ${objdir}/${subdir}/${testfile}
20 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
21 untested "Couldn't compile test program"
29 gdb_reinitialize_dir $srcdir/$subdir
32 # Do not run the inferior as the purpose of this testcase is to test
33 # the behavior of the "set language" command when there is no inferior.
35 # Check the language after the binary has been loaded. It should be
36 # "auto; currently c".
37 gdb_test "show lang" \
38 "The current source language is \"auto; currently c\"\\." \
39 "show lang after loading binary"
41 # Now, switch the language to a specific language, instead of leaving it
43 gdb_test_no_output "set lang ada" \
44 "forcing the language to ada"
46 # Verify that the language is now "ada".
47 gdb_test "show lang" \
48 "The current source language is \"ada\"\\." \
49 "show lang after switching language to ada"
51 # Then, switch back to auto...
52 gdb_test_no_output "set lang auto" \
53 "switching the language back to auto"
55 # ... And verify that the language mode is back to auto *and* that
56 # the selected language is C.
58 gdb_test "show lang" \
59 "The current source language is \"auto; currently c\"\\." \
60 "show lang after having switched back to auto"