Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

#4 Test failures on Solaris2.6

obsolete: 8.3.2
closed-works-for-me
Jeffrey Hobbs
5
2001-12-18
2000-10-26
Anonymous
No

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.

Discussion

    • summary: Tk 8.3.2 (note the form doesn't let me enter this version) f --> Test failures on Solaris2.6
    • labels: 100100 --> 104345
    • milestone: 100100 --> obsolete: 8.3.2
     
  • Don Porter
    Don Porter
    2001-03-23

    • labels: 104345 --> 104343
     
    • labels: 104343 --> 318664
     
  • Don Porter
    Don Porter
    2001-03-28

    • labels: 318664 --> 67. Unix Window Operations
     
  • 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...

     
  • Don Porter
    Don Porter
    2001-11-20

    Logged In: YES
    user_id=80530

    Only the unixEmbed.test report is not a duplicate.

     
  • Don Porter
    Don Porter
    2001-11-20

    • assigned_to: nobody --> hobbs
     
  • Jeffrey Hobbs
    Jeffrey Hobbs
    2001-12-18

    • status: open --> closed-works-for-me
     
  • Jeffrey Hobbs
    Jeffrey Hobbs
    2001-12-18

    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.