1# Copyright 2016-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# Do not run if gdb debug is enabled as maintenance output will be 17# redirected to the log files. 18if [gdb_debug_enabled] { 19 untested "debug is enabled" 20 return 0 21} 22 23set do_xml_test [expr ![gdb_skip_xml_test]] 24 25gdb_start 26 27set test "maintenance selftest" 28gdb_test_multiple $test $test { 29 -re "Ran ($decimal) unit tests, 0 failed\r\n$gdb_prompt $" { 30 set num_ran $expect_out(1,string) 31 gdb_assert "$num_ran > 0" $test 32 } 33 34 -re "Selftests have been disabled for this build.\r\n$gdb_prompt $" { 35 unsupported $test 36 } 37} 38 39if { ![is_remote host] && $do_xml_test } { 40 gdb_test "maintenance check xml-descriptions ${srcdir}/../features" \ 41 "Tested $decimal XML files, 0 failed" \ 42 "maintenance check xml-descriptions \${srcdir}/../features" 43} 44