This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[PATCH/MI testsuite] Obvious: increase priority of expected pattern
- From: Keith Seitz <keiths at redhat dot com>
- To: gdb-patches at sources dot redhat dot com
- Date: Wed, 4 Sep 2002 14:07:52 -0700 (PDT)
- Subject: [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 ----