From: <no...@so...> - 2001-12-18 22:07:31
|
Bugs item #219386, was opened at 2000-10-25 22:12 You can respond by visiting: http://sourceforge.net/tracker/?func=detail&atid=112997&aid=219386&group_id=12997 Category: 65. Unix Window Operations Group: = 8.3.2 >Status: Closed >Resolution: Works For Me Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: Jeffrey Hobbs (hobbs) Summary: Test failures on Solaris2.6 Initial Comment: OriginalBugID: 6115 Bug Version: 8.3.1 SubmitDate: '2000-08-10' LastModified: '2000-10-25' Severity: CRIT Status: UnAssn Submitter: techsupp OS: Solaris OSVersion: 2.6 Machine: Ultra 5 FixedDate: '2000-10-25' ClosedDate: '2000-10-25' Name: Larry W. Virden Extensions: Tk CustomShell: None - this is the tk 8.3.2 from the ReproducibleScript: make test ObservedBehavior: clipboard.test ==== clipboard-6.2 Tk_ClipboardAppend procedure FAILED ==== Contents of test case: setupbg clipboard clear clipboard append -f INTEGER -t TEST "16" set result [dobg {selection get -s CLIPBOARD TEST}] cleanupbg set result ---- Result was: CLIPBOARD selection doesn't exist or form "TEST" not defined ---- Result should have been: 0x10 ==== clipboard-6.2 FAILED focus.test ==== focus-5.1 ChangeXFocus procedure, don't take focus unless have it FAILED ==== Contents of test case: focusSetup focus -force .t update set result [focus] send [dobg {tk appname}] {focus -force .; update} lappend result [focus] focus .t.b2 update lappend result [focus] ---- Result was: .t .t {} ---- Result should have been: .t {} {} ==== focus-5.1 FAILED unixEmbed.test X Error of failed request: BadValue (integer parameter out of range for operati on) Major opcode of failed request: 53 (X_CreatePixmap) Value in failed request: 0x8 Serial number of failed request: 115821 Current serial number in output stream: 115824 make: *** [test] Error 1 At this point the tktest process hangs. DesiredBehavior: all tests succeed. ---------------------------------------------------------------------- >Comment By: Jeffrey Hobbs (hobbs) Date: 2001-12-18 14:07 Message: Logged In: YES user_id=72656 I don't see these problems with 8.4a4cvs on Solaris 2.8 with the display directed to a WindowMaker wm. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2001-11-20 10:35 Message: Logged In: YES user_id=80530 Only the unixEmbed.test report is not a duplicate. ---------------------------------------------------------------------- Comment By: Larry W. Virden (lvirden) Date: 2001-07-05 04:26 Message: Logged In: YES user_id=15949 The latest release - July 5th - has an additional error: event.test ==== event-keypress-1.3 type into entry widget, triple click, hit Delete key, and then type some more FAILED ==== Contents of test case: destroy .t set t [toplevel .t] set e [entry $t.e] pack $e tkwait visibility $e focus -force $e _keypress_string $e JUMP set result [$e get] event generate $e <Enter> for {set i 0} {$i < 3} {incr i} { _pause 100 event generate $e <ButtonPress-1> _pause 100 event generate $e <ButtonRelease-1> } _keypress $e Delete _keypress_string $e UP lappend result [$e get] ---- Result was: JUMP JUMP ---- Result should have been: JUMP UP ==== event-keypress-1.3 FAILED ==== event-keypress-1.5 type into text widget and then delete some text FAILED ==== Contents of test case: destroy .t set t [toplevel .t] set e [text $t.e] pack $e tkwait visibility $e focus -force $e _keypress_string $e MELLO _keypress $e BackSpace _keypress $e BackSpace $e get 1.0 1.end ---- Result was: ME ---- Result should have been: MEL ==== event-keypress-1.5 FAILED ==== event-click-drag-1.1 click and drag in a text widget, this tests tkTextSelectTo in text.tcl FAILED ==== Contents of test case: destroy .t set t [toplevel .t] set e [text $t.e] pack $e tkwait visibility $e focus -force $e _keypress_string $e "A Tcl/Tk selection test!" set anchor 1.6 set selend 1.18 set result [list [$e get 1.0 1.end]] # Get the x,y coords of the second T in "Tcl/Tk" foreach {anchor_x anchor_y} [_text_ind_to_x_y $e $anchor] break # Click down to set the insert cursor position event generate $e <Enter> event generate $e <ButtonPress-1> -x $anchor_x -y $anchor_y # Save the position of the insert cursor lappend result [$e index insert] # Now drag until selend is highlighted, then click up set current $anchor while {[$e compare $current <= $selend]} { foreach {current_x current_y} [_text_ind_to_x_y $e $current] break event generate $e <B1-Motion> -x $current_x -y $current_y set current [$e index [list $current + 1 char]] _pause 50 } event generate $e <ButtonRelease-1> -x $current_x -y $current_y _pause 200 # Save the position of the insert cursor lappend result [$e index insert] # Save the highlighted text lappend result [$e get sel.first sel.last] # Now click and click and drag to the left, over "Tcl/Tk selection" event generate $e <ButtonPress-1> -x $current_x -y $current_y while {[$e compare $current >= [list $anchor - 4 char]]} { foreach {current_x current_y} [_text_ind_to_x_y $e $current] break event generate $e <B1-Motion> -x $current_x -y $current_y set current [$e index [list $current - 1 char]] _pause 50 } event generate $e <ButtonRelease-1> -x $current_x -y $current_y _pause 200 # Save the position of the insert cursor lappend result [$e index insert] # Save the highlighted text lappend result [$e get sel.first sel.last] ---- Result was: {A Tcl/Tk slection test!} 1.6 1.18 {Tk slection } 1.2 {Tcl/Tk slection } ---- Result should have been: {A Tcl/Tk selection test!} 1.6 1.18 {Tk selection} 1.2 {Tcl/Tk selection} ==== event-click-drag-1.1 FAILED ==== event-click-drag-1.2 click and drag in an entry widget, this tests tkEntryMouseSelect in entry.tcl FAILED ==== Contents of test case: destroy .t set t [toplevel .t] set e [entry $t.e] pack $e tkwait visibility $e focus -force $e _keypress_string $e "A Tcl/Tk selection test!" set anchor 6 set selend 18 set result [list [$e get]] # Get the x,y coords of the second T in "Tcl/Tk" foreach {anchor_x anchor_y} [_text_ind_to_x_y $e $anchor] break # Click down to set the insert cursor position event generate $e <Enter> event generate $e <ButtonPress-1> -x $anchor_x -y $anchor_y # Save the position of the insert cursor lappend result [$e index insert] # Now drag until selend is highlighted, then click up set current $anchor while {$current <= $selend} { foreach {current_x current_y} [_text_ind_to_x_y $e $current] break event generate $e <B1-Motion> -x $current_x -y $current_y incr current _pause 50 } event generate $e <ButtonRelease-1> -x $current_x -y $current_y _pause 200 # Save the position of the insert cursor lappend result [$e index insert] # Save the highlighted text lappend result [selection get] # Now click and click and drag to the left, over "Tcl/Tk selection" event generate $e <ButtonPress-1> -x $current_x -y $current_y while {$current >= ($anchor - 4)} { foreach {current_x current_y} [_text_ind_to_x_y $e $current] break event generate $e <B1-Motion> -x $current_x -y $current_y incr current -1 _pause 50 } event generate $e <ButtonRelease-1> -x $current_x -y $current_y _pause 200 # Save the position of the insert cursor lappend result [$e index insert] # Save the highlighted text lappend result [selection get] ---- Result was: {A Tcl/Tk selection test!} 6 18 {Tk selection} 4 {l/Tk selection} ---- Result should have been: {A Tcl/Tk selection test!} 6 18 {Tk selection} 2 {Tcl/Tk selection} ==== event-click-drag-1.2 FAILED Also, the error in the unixEmbed test is gone... ---------------------------------------------------------------------- You can respond by visiting: http://sourceforge.net/tracker/?func=detail&atid=112997&aid=219386&group_id=12997 |