This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
Re: [RFA/TESTSUITE]: readline tests
- From: Elena Zannoni <ezannoni at redhat dot com>
- To: Fernando Nasser <fnasser at redhat dot com>
- Cc: tromey at redhat dot com, gdb-patches at sources dot redhat dot com,Elena Zannoni <ezannoni at cygnus dot com>
- Date: Tue, 13 Aug 2002 16:11:25 -0400
- Subject: Re: [RFA/TESTSUITE]: readline tests
- References: <87y9c1rodk.fsf@fleche.redhat.com><3D59661F.C4E69AA7@redhat.com>
Fernando Nasser writes:
> Sorry for the delay Tom.
>
> New tests are always welcome.
>
> Elena, is it OK with you? Can we check it in?
>
> Regards to all.
>
> Fernando
>
yes yes.
Elena
>
>
> Tom Tromey wrote:
> >
> > This adds a new file of readline tests. Currently it only checks
> > operate-and-get-next; Elena wanted some tests for a recent patch in
> > that area.
> >
> > Ok?
> >
> > Tom
> >
> > Index: testsuite/ChangeLog
> > from Tom Tromey <tromey@redhat.com>
> >
> > * gdb.base/readline.exp: New file.
> >
> > Index: testsuite/gdb.base/readline.exp
> > ===================================================================
> > RCS file: testsuite/gdb.base/readline.exp
> > diff -N testsuite/gdb.base/readline.exp
> > --- /dev/null 1 Jan 1970 00:00:00 -0000
> > +++ testsuite/gdb.base/readline.exp 24 Jul 2002 17:59:10 -0000
> > @@ -0,0 +1,190 @@
> > +# Copyright 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
> > +# the Free Software Foundation; either version 2 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, write to the Free Software
> > +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
> > +
> > +# Please email any bugs, comments, and/or additions to this file to:
> > +# bug-gdb@prep.ai.mit.edu
> > +
> > +# This file was written by Tom Tromey <tromey@redhat.com>
> > +
> > +# This file is part of the gdb testsuite.
> > +
> > +#
> > +# Tests for readline operations.
> > +#
> > +
> > +# This function is used to test operate-and-get-next.
> > +# NAME is the name of the test.
> > +# ARGS is a list of alternating commands and expected results.
> > +proc operate_and_get_next {name args} {
> > + global gdb_prompt
> > +
> > + set my_gdb_prompt "($gdb_prompt| >)"
> > +
> > + set reverse {}
> > + foreach {item result} $args {
> > + verbose "sending $item"
> > + sleep 1
> > +
> > + # We can't use gdb_test here because we might see a " >" prompt.
> > + set status 0
> > + send_gdb "$item\n"
> > + gdb_expect {
> > + -re "$item" {
> > + # Ok
> > + }
> > + timeout {
> > + set status 1
> > + }
> > + }
> > +
> > + if {! $status} {
> > + gdb_expect {
> > + -re "$result" {
> > + # Ok.
> > + }
> > + timeout {
> > + set status 1
> > + }
> > + }
> > + }
> > +
> > + if {$status} {
> > + fail "$name - send $item"
> > + return 0
> > + }
> > + pass "$name - send $item"
> > +
> > + set reverse [linsert $reverse 0 $item $result]
> > + }
> > +
> > + # Now use C-p to go back to the start.
> > + foreach {item result} $reverse {
> > + # Actually send C-p followed by C-l. This lets us recognize the
> > + # command when gdb prints it again.
> > + send_gdb "\x10\x0c"
> > + set status 0
> > + gdb_expect {
> > + -re "$item" {
> > + # Ok
> > + }
> > + timeout {
> > + set status 1
> > + }
> > + }
> > + if {$status} {
> > + fail "$name - C-p to $item"
> > + return 0
> > + }
> > + pass "$name - C-p to $item"
> > + }
> > +
> > + # Now C-o through the list. Don't send the command, since it is
> > + # already there. Strip off the first command from the list so we
> > + # can see the next command inside the loop.
> > + set count 0
> > + foreach {item result} $args {
> > + set status 0
> > +
> > + # If this isn't the first item, make sure we see the command at
> > + # the prompt.
> > + if {$count > 0} {
> > + gdb_expect {
> > + -re ".*$item" {
> > + # Ok
> > + }
> > + timeout {
> > + set status 1
> > + }
> > + }
> > + }
> > +
> > + if {! $status} {
> > + # For the last item, send a simple \n instead of C-o.
> > + if {$count == [llength $args] - 2} {
> > + send_gdb "\n"
> > + } else {
> > + # 15 is C-o.
> > + send_gdb [format %c 15]
> > + }
> > + set status 0
> > + gdb_expect {
> > + -re "$result" {
> > + # Ok
> > + }
> > + timeout {
> > + set status 1
> > + }
> > + }
> > + }
> > +
> > + if {$status} {
> > + fail "$name - C-o for $item"
> > + return 0
> > + }
> > + pass "$name - C-o for $item"
> > +
> > + set count [expr {$count + 2}]
> > + }
> > +
> > + return 1
> > +}
> > +
> > +
> > +if $tracelevel {
> > + strace $tracelevel
> > +}
> > +
> > +# Don't let a .inputrc file or an existing setting of INPUTRC mess up
> > +# the test results. Even if /dev/null doesn't exist on the particular
> > +# platform, the readline library will use the default setting just by
> > +# failing to open the file. OTOH, opening /dev/null successfully will
> > +# also result in the default settings being used since nothing will be
> > +# read from this file.
> > +global env
> > +if [info exists env(INPUTRC)] {
> > + set old_inputrc $env(INPUTRC)
> > +}
> > +set env(INPUTRC) "/dev/null"
> > +
> > +gdb_start
> > +gdb_reinitialize_dir $srcdir/$subdir
> > +
> > +set oldtimeout1 $timeout
> > +set timeout 30
> > +
> > +
> > +# A simple test of operate-and-get-next.
> > +operate_and_get_next "Simple operate-and-get-next" \
> > + "p 1" ".* = 1" \
> > + "p 2" ".* = 2"\
> > + "p 3" ".* = 3"
> > +
> > +# Test operate-and-get-next with a secondary prompt.
> > +operate_and_get_next "operate-and-get-next with secondary prompt" \
> > + "if 1 > 0" "" \
> > + "p 5" "" \
> > + "end" ".* = 5"
> > +
> > +
> > +# Restore globals modified in this test...
> > +if [info exists old_inputrc] {
> > + set env(INPUTRC) $old_inputrc
> > +} else {
> > + unset env(INPUTRC)
> > +}
> > +set timeout $oldtimeout1
> > +
> > +return 0
>
> --
> Fernando Nasser
> Red Hat Canada Ltd. E-Mail: fnasser@redhat.com
> 2323 Yonge Street, Suite #300
> Toronto, Ontario M4P 2C9