From b5356753703b280e6bd976b1576a4e07de4a358c Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Wed, 10 Jul 2002 21:57:56 +0000 Subject: [PATCH] * gdb.base/page.exp: Rewrite to handle problems with very long `info set' output. Update copyright. --- gdb/testsuite/ChangeLog | 5 ++++ gdb/testsuite/gdb.base/page.exp | 47 ++++++++++++++++++++++++++++++--- 2 files changed, 49 insertions(+), 3 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 82cd0878c31..02c36048f88 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-07-10 Andrew Cagney + + * gdb.base/page.exp: Rewrite to handle problems with very long + `info set' output. Update copyright. + 2002-06-26 Andrew Cagney * gdb.hp/configure.in (AC_CONFIG_SUBDIRS): Do not try to configure diff --git a/gdb/testsuite/gdb.base/page.exp b/gdb/testsuite/gdb.base/page.exp index 9791a607599..c757ca2b563 100644 --- a/gdb/testsuite/gdb.base/page.exp +++ b/gdb/testsuite/gdb.base/page.exp @@ -1,4 +1,5 @@ -# Copyright 1992, 1994, 1995, 1999 Free Software Foundation, Inc. +# Copyright 1992, 1994, 1995, 1999, 2002 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 @@ -30,10 +31,50 @@ set timeout 200 gdb_exit gdb_start + gdb_test "set pagination off" "" -gdb_test "info set" ".*pagination: State of pagination is off.*" +gdb_test "show pagination" "State of pagination is off.*" "pagination is off" +send_gdb "help\n" +gdb_expect_list "unpaged help" ".*$gdb_prompt $" { + "List of classes of commands:" + "" + "aliases -- Aliases of other commands" + "breakpoints -- Making program stop at certain points" + "data -- Examining data" + "files -- Specifying and examining files" + "internals -- Maintenance commands" + "obscure -- Obscure features" + "running -- Running the program" + "stack -- Examining the stack" + "status -- Status inquiries" + "support -- Support facilities" + "tracepoints -- Tracing of program execution without stopping the program" + "user-defined -- User-defined commands" + "" + "Type .help. followed by a class name for a list of commands in that class." + "Type .help. followed by command name for full documentation." + "Command name abbreviations are allowed if unambiguous." +} + + gdb_test "set pagination on" "" -gdb_test "info set" ".*pagination: State of pagination is on.*" +gdb_test "show pagination" "State of pagination is on.*" "pagination is on" +gdb_test "set height 10" "" +send_gdb "help\n" +gdb_expect_list "paged help" \ + ".*---Type to continue, or q to quit---" { + "List of classes of commands:" + "" + "aliases -- Aliases of other commands" + "breakpoints -- Making program stop at certain points" + "data -- Examining data" + "files -- Specifying and examining files" + "internals -- Maintenance commands" + "obscure -- Obscure features" + "running -- Running the program" +} +gdb_test "q" + gdb_exit return 0 -- 2.30.2