-# Copyright 2007, 2008 Free Software Foundation, Inc.
+# Copyright 2007-2016 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
gdb_exit
# Force the language to Ada, as this will not happen automatically
# in this case (no test program).
-gdb_test "set lang ada" \
- "" \
- "Changing the language to ada"
+gdb_test_no_output "set lang ada" \
+ "changing the language to ada"
gdb_test "print 1 = 2" \
"= false" \