1 # Copyright 2018-2019 Free Software Foundation, Inc.
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.
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.
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/>.
16 # Test CLI output styling.
20 save_vars { env(TERM) } {
21 # We need an ANSI-capable terminal to get the output.
27 if { [test_compiler_info "gcc-*"] || [test_compiler_info "clang-*"] } {
28 lappend options additional_flags=-g3
32 if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
38 fail "style tests failed"
42 gdb_test_no_output "set style enabled on"
44 set main_expr [style main function]
45 set base_file_expr [style ".*style\\.c" file]
46 set file_expr "$base_file_expr:\[0-9\]"
47 set arg_expr [style "arg." variable]
50 "$main_expr.*$arg_expr.*$arg_expr.*$file_expr.*"
51 gdb_test "info breakpoints" "$main_expr at $file_expr.*"
53 gdb_test_no_output "set style sources off"
55 "\r\n\[^\033\]*break here.*" \
56 "frame without styling"
57 gdb_test_no_output "set style sources on"
59 gdb_test "break main" "file $base_file_expr.*"
61 gdb_test "print &main" " = .* [style $hex address] <$main_expr>"
63 # Regression test for a bug where line-wrapping would occur at the
64 # wrong spot with styling. There were different bugs at different
66 foreach width {20 30} {
67 gdb_test_no_output "set width $width"
68 # There was also a bug where the styling could be wrong in the
69 # line listing; this is why the words from the source code are
70 # spelled out in the final result line of the test.
73 "#0 *$main_expr.*$arg_expr.*" \
75 ".* at .*$file_expr.*" \
76 "\[0-9\]+.*return.* break here .*"
78 "frame when width=$width"
82 gdb_test "info macro SOME_MACRO" \
83 "Defined at $base_file_expr:16\r\n#define SOME_MACRO 23"
86 set func [style some_called_function function]
87 # Somewhere should see the call to the function.
88 gdb_test "disassemble main" "[style $hex address].*$func.*"
93 set vers [style "GNU gdb.*" "35;1"]
94 gdb_test "" "${vers}.*" \
97 set address_style_expr [style ".*\".*address.*\".*style.*" address]
98 gdb_test "show style address foreground" \
99 "The ${address_style_expr} foreground color is: blue" \
100 "style name and style word styled using its own style in show style"
102 set aliases_expr [style ".*aliases.*" title]
103 set breakpoints_expr [style ".*breakpoints.*" title]
106 "List of classes of commands:" \
108 "${aliases_expr} -- Aliases of other commands\." \
109 "${breakpoints_expr} -- Making program stop at certain points\." \
112 "help classes of commands styled with title"
114 set taas_expr [style ".*taas.*" title]
115 set tfaas_expr [style ".*tfaas.*" title]
116 set cut_for_thre_expr [style "cut for 'thre" highlight]
117 gdb_test "apropos -v cut for 'thre" \
120 "${taas_expr} --.*" \
122 "short${cut_for_thre_expr}ad apply.*" \
124 "${tfaas_expr} --.*" \
126 "short${cut_for_thre_expr}ad apply.*" \
128 "apropos -v cut for 'thre"
130 set quoted [string_to_regexp $binfile]
131 gdb_test "file $binfile" \
132 "Reading symbols from [style $quoted file]..." \
133 "filename is styled when loading symbol file"
135 gdb_test "pwd" "Working directory [style .*? file].*"