1# This testcase is part of GDB, the GNU debugger. 2 3# Copyright 2017-2019 Free Software Foundation, Inc. 4 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18load_lib gdbserver-support.exp 19 20standard_testfile 21 22if { [skip_gdbserver_tests] } { 23 return 0 24} 25 26global server_spawn_id 27 28set gdbserver [find_gdbserver] 29set gdbserver_command "$gdbserver --selftest" 30 31set server_spawn_id [remote_spawn target $gdbserver_command] 32 33set test "unit tests" 34gdb_expect { 35 -i $server_spawn_id 36 -re "Ran ($decimal) unit tests, 0 failed" { 37 set num_ran $expect_out(1,string) 38 gdb_assert "$num_ran > 0" $test 39 } 40 41 -re "Selftests have been disabled for this build.\r\n$" { 42 unsupported $test 43 } 44 45 default { 46 fail $test 47 } 48} 49