[PATCH]: Loosen up annota1.exp test.

msnyder@cygnus.com msnyder@cygnus.com
Fri Jun 2 14:41:00 GMT 2000


This test often fails because different targets behave slightly differently.
I'm making the regular expression more flexible, so that it does not care
how many times the target calls flush_cached_frames() or breakpoints_invalid().

2000-06-02  Michael Snyder  <msnyder@seadog.cygnus.com>

        * gdb.base/annota1.exp (run until main breakpoint): Loosen up
        the regular expression: accept an (almost) arbitrary sequence of
        "frames-invalid" and "breakpoints-invalid" messages both before
        and after the "starting" message.

Index: annota1.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/annota1.exp,v
retrieving revision 1.2
diff -p -r1.2 annota1.exp
*** annota1.exp	2000/05/24 17:14:50	1.2
--- annota1.exp	2000/06/02 21:37:20
*************** gdb_expect {
*** 142,152 ****
  #
  #exp_internal 1
  send_gdb "run\n"
!   gdb_expect {
!     -re "\r\n\032\032post-prompt\r\nStarting program: $binfile \(\r\n\r\n\032\032frames-invalid\)+\(\r\n\r\n\032\032breakpoints-invalid\)*.*\(\r\n\r\n\032\032frames-invalid\)*\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\r\n\r\n\032\032breakpoint 1\r\n\r\nBreakpoint 1, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*annota1.c\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n$main_line\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*$srcfile:$main_line:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n.*$gdb_prompt$" \
! 	                    { pass "run until main breakpoint" }
!     -re ".*$gdb_prompt$"       { fail "run until main breakpoint" }
!     timeout	            { fail "run until main breakpoint (timeout)" }
    }
  #exp_internal 0
  #exit 0
--- 142,157 ----
  #
  #exp_internal 1
  send_gdb "run\n"
! gdb_expect {
!     -re "\r\n\032\032post-prompt\r\nStarting program: $binfile \(\r\n\r\n\032\032frames-invalid\)+\(\(\r\n\r\n\032\032frames-invalid\)|\(\r\n\r\n\032\032breakpoints-invalid\)\)*\r\n\r\n\032\032starting\(\r\n\r\n\032\032frames-invalid\)+\(\(\r\n\r\n\032\032frames-invalid\)|\(\r\n\r\n\032\032breakpoints-invalid\)\)*\r\n\r\n\032\032breakpoint 1\r\n\r\nBreakpoint 1, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nmain\r\n\032\032frame-args\r\n \\(\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*annota1.c\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n$main_line\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*$srcfile:$main_line:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped.*$gdb_prompt$" {
! 	pass "run until main breakpoint" 
!     }
!     -re ".*$gdb_prompt$" { 
! 	fail "run until main breakpoint" 
!     }
!     timeout { 
! 	fail "run until main breakpoint (timeout)" 
!     }
    }
  #exp_internal 0
  #exit 0


More information about the Gdb-patches mailing list