gdb/testsuite/gdb.base/page.exp

   1 # Copyright 1992, 1994, 1995, 1999, 2002 Free Software Foundation,
   2 # Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  17
  18 # Please email any bugs, comments, and/or additions to this file to:
  19 # bug-gdb@prep.ai.mit.edu
  20
  21 # This file was written by Fred Fish. (fnf@cygnus.com)
  22
  23 if $tracelevel {
  24     strace $tracelevel
  25 }
  26
  27 global message
  28 global timeout
  29
  30 set timeout 200
  31
  32 gdb_exit
  33 gdb_start
  34
  35 gdb_test "set pagination off" ""
  36 gdb_test "show pagination" "State of pagination is off.*" "pagination is off"
  37 send_gdb "help\n"
  38 gdb_expect_list "unpaged help" ".*$gdb_prompt $" {
  39     "List of classes of commands:"
  40     ""
  41     "aliases -- Aliases of other commands"
  42     "breakpoints -- Making program stop at certain points"
  43     "data -- Examining data"
  44     "files -- Specifying and examining files"
  45     "internals -- Maintenance commands"
  46     "obscure -- Obscure features"
  47     "running -- Running the program"
  48     "stack -- Examining the stack"
  49     "status -- Status inquiries"
  50     "support -- Support facilities"
  51     "tracepoints -- Tracing of program execution without stopping the program"
  52     "user-defined -- User-defined commands"
  53     ""
  54     "Type .help. followed by a class name for a list of commands in that class."
  55     "Type .help. followed by command name for full documentation."
  56     "Command name abbreviations are allowed if unambiguous."
  57 }
  58
  59
  60 gdb_test "set pagination on" ""
  61 gdb_test "show pagination" "State of pagination is on.*" "pagination is on"
  62 gdb_test "set height 10" ""
  63 send_gdb "help\n"
  64 gdb_expect_list "paged help" \
  65         ".*---Type <return> to continue, or q <return> to quit---" {
  66     "List of classes of commands:"
  67     ""
  68     "aliases -- Aliases of other commands"
  69     "breakpoints -- Making program stop at certain points"
  70     "data -- Examining data"
  71     "files -- Specifying and examining files"
  72     "internals -- Maintenance commands"
  73     "obscure -- Obscure features"
  74     "running -- Running the program"
  75 }
  76 gdb_test "q"
  77
  78
  79 gdb_exit
  80 return 0
  81