1# Copyright 2016-2019 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 16set do_xml_test [expr ![gdb_skip_xml_test]] 17 18gdb_start 19 20set test "maintenance selftest" 21gdb_test_multiple $test $test { 22 -re "Ran ($decimal) unit tests, 0 failed\r\n$gdb_prompt $" { 23 set num_ran $expect_out(1,string) 24 gdb_assert "$num_ran > 0" $test 25 } 26 27 -re "Selftests have been disabled for this build.\r\n$gdb_prompt $" { 28 unsupported $test 29 } 30} 31 32if { ![is_remote host] && $do_xml_test } { 33 gdb_test "maintenance check xml-descriptions ${srcdir}/../features" \ 34 "Tested $decimal XML files, 0 failed" \ 35 "maintenance check xml-descriptions \${srcdir}/../features" 36} 37