blob: 2967b994cc3dcccac0f8680b247bc7651a3a68bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
# Copyright 2016-2022 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
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# Do not run if gdb debug is enabled as maintenance output will be
# redirected to the log files.
if [gdb_debug_enabled] {
untested "debug is enabled"
return 0
}
load_lib completion-support.exp
set do_xml_test [expr ![gdb_skip_xml_test]]
standard_testfile
if {[build_executable "failed to prepare" $testfile $srcfile debug]} {
return -1
}
proc run_selftests { binfile } {
global decimal gdb_prompt
if { $binfile == "" } {
gdb_exit
gdb_start
} else {
clean_restart ${binfile}
}
set enabled 1
set test "maintenance selftest"
gdb_test_multiple $test $test {
-re ".*Running selftest \[^\n\r\]+\." {
# The selftests can take some time to complete. To prevent
# timeout spot the 'Running ...' lines going past, so long as
# these are produced quickly enough then the overall test will
# not timeout.
exp_continue
}
-re "Ran ($decimal) unit tests, ($decimal) failed\r\n$gdb_prompt $" {
set num_ran $expect_out(1,string)
set num_failed $expect_out(2,string)
gdb_assert "$num_ran > 0" "$test, ran some tests"
gdb_assert "$num_failed == 0" "$test, failed none"
}
-re "Selftests have been disabled for this build.\r\n$gdb_prompt $" {
unsupported $test
set num_ran 0
set enabled 0
}
}
return [list $enabled $num_ran]
}
# Test completion of command "maintenance selftest".
proc_with_prefix test_completion {} {
global self_tests_enabled
clean_restart
if { $self_tests_enabled } {
test_gdb_complete_tab_multiple "maintenance selftest copy" "_" \
{copy_bitwise copy_integer_to_size}
test_gdb_complete_tab_unique "maintenance selftest copy_bit" \
"maintenance selftest copy_bitwise" " "
} else {
test_gdb_complete_tab_none "maintenance selftest copy_"
test_gdb_complete_tab_none "maintenance selftest copy_bit"
}
test_gdb_complete_tab_unique "maintenance selftest -ver" "maintenance selftest -verbose" " "
test_gdb_complete_tab_none "maintenance selftest name_that_does_not_exist"
}
with_test_prefix "no executable loaded" {
set res [run_selftests ""]
set self_tests_enabled [lindex $res 0]
set num_ran [lindex $res 1]
}
if { $self_tests_enabled && ![is_remote host] } {
# Check that we have the same amount of selftests whatever the
# initialization order of GDB.
with_test_prefix "reversed initialization" {
save_vars { env(GDB_REVERSE_INIT_FUNCTIONS) } {
if [info exists env(GDB_REVERSE_INIT_FUNCTIONS)] {
unset env(GDB_REVERSE_INIT_FUNCTIONS)
} else {
set env(GDB_REVERSE_INIT_FUNCTIONS) 1
}
set res [run_selftests ""]
gdb_assert "$num_ran == [lindex $res 1]" \
"selftest not dependent on initialization order"
}
}
}
with_test_prefix "executable loaded" {
run_selftests ${binfile}
}
test_completion
if { ![is_remote host] && $do_xml_test } {
gdb_test "maintenance check xml-descriptions ${srcdir}/../features" \
"Tested $decimal XML files, 0 failed" \
"maintenance check xml-descriptions \${srcdir}/../features"
}
|
