-# Copyright 2008 Free Software Foundation, Inc.
+# Copyright 2008-2021 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"
+if { [skip_ada_tests] } { return -1 }
+
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
# 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 \$xxx := 1" \
- "1" \
+ "= 1" \
"set convenience variable \$xxx to 1"