This is the mail archive of the gdb-patches@sources.redhat.com mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[PATCH/MI testsuite] Obvious: increase priority of expected pattern


Hi,

I'm checking this in as an obvious fix. It increases the priority of the 
expected pattern in mi_gdb_test so that it matches gdb_test.

I've also updated the copyright date.
Keith

ChangeLog
2002-09-04  Keith Seitz  <keiths@redhat.com>

        * lib/mi-support.exp: Update copyright.
        (mi_gdb_test): Increase the priority of the expected pattern
        so that it matches gdb_test.

Patch
Index: testsuite/lib/mi-support.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/mi-support.exp,v
retrieving revision 1.14
diff -p -r1.14 mi-support.exp
*** testsuite/lib/mi-support.exp	29 Aug 2002 16:10:13 -0000	1.14
--- testsuite/lib/mi-support.exp	4 Sep 2002 20:49:31 -0000
***************
*** 1,4 ****
! # Copyright 1999, 2000 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
--- 1,4 ----
! # Copyright 1999, 2000, 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
*************** proc mi_gdb_test { args } {
*** 471,476 ****
--- 471,482 ----
  	    gdb_start
  	    set result -1
  	}
+ 	 -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*$" {
+ 	    if ![string match "" $message] then {
+ 		pass "$message"
+ 	    }
+ 	    set result 0
+ 	}
  	 -re "(${question_string})$" {
  	    send_gdb "$response_string\n";
  	    exp_continue;
*************** proc mi_gdb_test { args } {
*** 484,495 ****
  	    perror "\"$command\" is not a unique command name."
              fail "$message"
  	    set result 1
- 	}
- 	 -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*$" {
- 	    if ![string match "" $message] then {
- 		pass "$message"
- 	    }
- 	    set result 0
  	}
  	 -re "Program exited with code \[0-9\]+.*$mi_gdb_prompt\[ \]*$" {
  	    if ![string match "" $message] then {
--- 490,495 ----



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]