1 # Copyright 1992-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 # This file was written by Fred Fish. (fnf@cygnus.com)
21 gdb_test_no_output "set pagination off"
22 gdb_test "show pagination" "State of pagination is off.*" "pagination is off"
23 gdb_test_sequence "help" "unpaged help" {
24 "List of classes of commands:"
26 "aliases -- Aliases of other commands"
27 "breakpoints -- Making program stop at certain points"
28 "data -- Examining data"
29 "files -- Specifying and examining files"
30 "internals -- Maintenance commands"
31 "obscure -- Obscure features"
32 "running -- Running the program"
33 "stack -- Examining the stack"
34 "status -- Status inquiries"
35 "support -- Support facilities"
36 "tracepoints -- Tracing of program execution without stopping the program"
37 "user-defined -- User-defined commands"
39 "Type .help. followed by a class name for a list of commands in that class."
40 "Type .help. followed by command name for full documentation."
41 "Command name abbreviations are allowed if unambiguous."
45 gdb_test_no_output "set pagination on"
46 gdb_test "show pagination" "State of pagination is on.*" "pagination is on"
47 gdb_test_no_output "set height 10"
49 gdb_expect_list "paged help" \
50 ".*$pagination_prompt" {
51 "List of classes of commands:"
53 "aliases -- Aliases of other commands"
54 "breakpoints -- Making program stop at certain points"
55 "data -- Examining data"
56 "files -- Specifying and examining files"
57 "internals -- Maintenance commands"
58 "obscure -- Obscure features"
59 "running -- Running the program"
63 gdb_test_no_output "set height 5"
64 send_gdb "printf \"1\\n2\\n3\\n4\\n5\\n6\\n7\\n8\\n9\\n10\\n11\"\n"
65 gdb_expect_list "paged count" \
66 ".*$pagination_prompt" {
73 gdb_expect_list "paged count remainder" "${gdb_prompt} " {
83 set fours [string repeat 4 40]
84 set str "1\\n2\\n3\\n$fours\\n5\\n"
86 # Avoid some confusing output from readline.
87 gdb_test_no_output "set editing off"
89 gdb_test_no_output "set width 30"
90 send_gdb "printf \"$str\"\n"
91 gdb_expect_list "paged count for interrupt" \
92 ".*$pagination_prompt" \
93 [list 1\r\n 2\r\n 3\r\n 444444444444444444444444444444]
95 gdb_test "q" "Quit" "quit while paging"