]>
Commit | Line | Data |
---|---|---|
213516ef | 1 | # Copyright 2022-2023 Free Software Foundation, Inc. |
86b4a00f TV |
2 | # This program is free software; you can redistribute it and/or modify |
3 | # it under the terms of the GNU General Public License as published by | |
4 | # the Free Software Foundation; either version 3 of the License, or | |
5 | # (at your option) any later version. | |
6 | # | |
7 | # This program is distributed in the hope that it will be useful, | |
8 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
9 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
10 | # GNU General Public License for more details. | |
11 | # | |
12 | # You should have received a copy of the GNU General Public License | |
13 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
14 | ||
15 | # The purpose of this test-case is to test the capture_command_output proc. | |
16 | ||
17 | clean_restart | |
18 | ||
19 | # Check output with no prefix. | |
20 | ||
21 | with_test_prefix no-prefix { | |
22 | set output [capture_command_output "print 1" ""] | |
23 | gdb_assert { [string equal $output "\$1 = 1"] } | |
24 | } | |
25 | ||
26 | # Check output with matching prefix. | |
27 | ||
28 | with_test_prefix matching-prefix { | |
29 | set output [capture_command_output "print 1" "\\\$2 = "] | |
30 | gdb_assert { [string equal $output "1"] } | |
31 | } | |
32 | ||
33 | # Check output with non-matching prefix. | |
34 | ||
35 | with_test_prefix non-matching-prefix { | |
36 | set output [capture_command_output "print 1" "3 = "] | |
37 | gdb_assert { [string equal $output "\$3 = 1"] } | |
38 | } |