blob: e19f2a8de4a26aa440247a60f2e7657b2299c365 (
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
|
# Copyright 2022-2023 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/>.
# The purpose of this test-case is to check various
# gdb_test / gdb_test_multiple properties.
clean_restart
# Check that a command with trailing newline triggers an error.
with_test_prefix "cmd with trailing newline" {
set results [catch {
gdb_test "pwd\n" ".*" "pwd"
} output]
gdb_assert { $results == 1 }
set expected_error_msg "Invalid trailing newline in \"pwd\n\" command"
gdb_assert { [string equal $output $expected_error_msg] }
}
with_test_prefix "cmd with trailing control code" {
foreach_with_prefix control_code {^C ^D} {
switch $control_code {
^C {
set cmd "\003"
}
^D {
set cmd "\004"
}
}
set results [catch {
gdb_test $cmd ".*" "control code"
} output]
gdb_assert { $results == 1 }
set expected_error_msg "Invalid trailing control code in \"$cmd\" command"
gdb_assert { [string equal $output $expected_error_msg] }
}
}
# Change the prompt.
set prompt "(GDB) "
set prompt_re "\\(GDB\\) $"
gdb_test -prompt $prompt_re "set prompt $prompt"
gdb_test_multiple "print 1" "" -prompt $prompt_re {
-re -wrap " = 1" {
pass $gdb_test_name
}
}
|
