From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10590 invoked by alias); 7 Mar 2002 21:52:05 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 10479 invoked from network); 7 Mar 2002 21:52:04 -0000 Received: from unknown (HELO localhost.localdomain) (12.230.181.242) by sources.redhat.com with SMTP; 7 Mar 2002 21:52:04 -0000 Received: from there (DRAGON [127.0.0.1]) by localhost.localdomain (8.11.6/8.11.6) with SMTP id g27LpVc06090 for ; Thu, 7 Mar 2002 13:51:31 -0800 Message-Id: <200203072151.g27LpVc06090@localhost.localdomain> Content-Type: text/plain; charset="iso-8859-1" From: "Martin M. Hunt" Organization: Red Hat Inc To: Insight Mailing List Subject: [patch] fix srcwin test 5.1 Date: Thu, 07 Mar 2002 13:52:00 -0000 X-Mailer: KMail [version 1.3.2] MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-SW-Source: 2002-q1/txt/msg00197.txt.bz2 Checked in. Line numbers in test case got changed and test wasn't updated. -- Martin Hunt GDB Engineer Red Hat, Inc. 2002-03-07 Martin M. Hunt * srcwin.test (5.1): Adjust line numbers to test now runs correctly. Index: srcwin.test =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.gdbtk/srcwin.test,v retrieving revision 1.3 diff -u -r1.3 srcwin.test --- srcwin.test 2001/05/07 20:39:32 1.3 +++ srcwin.test 2002/03/07 21:49:06 @@ -1078,19 +1078,19 @@ gdbtk_test srcwin-4.4 "Click on line to set BP" { set r 0 - # click mouse button 1 at index 14.1 - if {![click $twin [$twin bbox 14.1] ]} { - set r "Click failed on line 14.1" + # click mouse button 1 at index 20.1 + if {![click $twin [$twin bbox 20.1] ]} { + set r "Click failed on line 20.1" } else { - # now look for BP at line 14 + # now look for BP at line 20 foreach bpnum [gdb_get_breakpoint_list] { set bpinfo [gdb_get_breakpoint_info $bpnum] lassign $bpinfo file func line pc type enabled disposition \ ignore_count commands cond thread hit_count set file [lindex [file split $file] end] if {$file == "list0.h"} { - if {$line == "14"} { + if {$line == "20"} { if {$enabled == "1"} {incr r} if {$func == "foo"} {incr r} if {$type == "breakpoint"} {incr r} @@ -1108,8 +1108,8 @@ gdbtk_test srcwin-4.5 "Continue till here popup" { set twin [$stw test_get twin] - # Get coordinates of line 12 - set b [$twin bbox 12.1] + # Get coordinates of line 16 + set b [$twin bbox 16.1] set y [expr {[lindex $b 1] + ([lindex $b 3] / 2)}] # Continue to here @@ -1130,12 +1130,12 @@ } list $pcs $bps -} {12 {10.0 14.0}} +} {16 {10.0 20.0}} # 5.1 balloon variables # Test: srcwin-5.1 # Desc: variable balloon test -# continues to BP at line 14 and checks to see that value was updated +# continues to BP at line 20 and checks to see that value was updated gdbtk_test srcwin-5.1 "variable balloon test" { # move pointer out of the way warp_pointer . 0 0 @@ -1143,13 +1143,13 @@ set twin [$stw test_get twin] # move pointer to variable "x" and check balloon - set index [string first "x++" [$twin get 10.0 10.end]] - move_mouse_to $twin [$twin bbox 10.$index] + set index [string first "x++" [$twin get 20.0 20.end]] + move_mouse_to $twin [$twin bbox 20.$index] sleep 1 if {[winfo ismapped $balloon]} { if {![string compare "x=5" [$balloon.label cget -text]]} {incr r} gdb_immediate "continue" 1 - if {![string compare "x=7" [$balloon.label cget -text]]} {incr r} + if {![string compare "x=9" [$balloon.label cget -text]]} {incr r} } else { set r -1 }