From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-12764-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 24966 invoked by alias); 14 Feb 2002 00:10:24 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 24795 invoked from network); 14 Feb 2002 00:10:18 -0000
Received: from unknown (HELO zwingli.cygnus.com) (208.245.165.35)
  by sources.redhat.com with SMTP; 14 Feb 2002 00:10:18 -0000
Received: by zwingli.cygnus.com (Postfix, from userid 442)
	id 0A7605E9DE; Wed, 13 Feb 2002 19:11:54 -0500 (EST)
From: Jim Blandy <jimb@zwingli.cygnus.com>
To: gdb-patches@sources.redhat.com
Subject: RFA: parse output from `info sources' one filename at a time
Message-Id: <20020214001154.0A7605E9DE@zwingli.cygnus.com>
Date: Wed, 13 Feb 2002 16:10:00 -0000
X-SW-Source: 2002-02/txt/msg00379.txt.bz2


This eliminates an `ERROR' when the test is run under Linux.  The
output from `info sources' includes all the shared library source
files, making it so long that it overflows Expect's buffer.

2002-02-13  Jim Blandy  <jimb@redhat.com>

	* gdb.asm/asm-source.exp: Parse the output from `info sources' one
	filename at a time, and watch for the ones we want to see.

Index: gdb/testsuite/gdb.asm/asm-source.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/asm-source.exp,v
retrieving revision 1.17
diff -c -r1.17 asm-source.exp
*** gdb/testsuite/gdb.asm/asm-source.exp	2002/01/18 00:13:00	1.17
--- gdb/testsuite/gdb.asm/asm-source.exp	2002/02/14 00:05:30
***************
*** 202,211 ****
  	"Current source file is .*asmsrc2.s.*Source language is asm.*" \
  	"info source asmsrc2.s"
  
! # Try 'info sources'
! gdb_test "info sources" \
! 	"Source files .*asmsrc\[12\].s.*asmsrc\[12\].s.*" \
! 	"info sources"
  
  # Try 'info line'
  gdb_test "info line" \
--- 202,238 ----
  	"Current source file is .*asmsrc2.s.*Source language is asm.*" \
  	"info source asmsrc2.s"
  
! # Try 'info sources'.  This can produce a lot of output on systems
! # with dynamic linking, where the system's shared libc was compiled
! # with debugging info; for example, on Linux, this produces 47kb of
! # output.  So we consume it as we go.
! send_gdb "info sources\n"
! set seen_asmsrc_1 0
! set seen_asmsrc_2 0
! gdb_expect {
!     -re "^\[^,\]*asmsrc1.s(, |\[\r\n\]+)" {
!         set seen_asmsrc_1 1
!         exp_continue
!     }
!     -re "^\[^,\]*asmsrc2.s(, |\[\r\n\]+)" {
!         set seen_asmsrc_2 1
!         exp_continue
!     }
!     -re ", " { 
!         exp_continue
!     }
!     -re "$gdb_prompt $" {
!         if {$seen_asmsrc_1 && $seen_asmsrc_2} {
!             pass "info sources"
!         } else {
!             fail "info sources"
!         }
!     }
!     timeout {
!             fail "info sources (timeout)"
!     }
! }
!         
  
  # Try 'info line'
  gdb_test "info line" \