Tests running in interp: $(@D)/tktest

Tests located in: $(SOURCE_DIR)/tests

Tests running in: $(@D)

Temporary files stored in $(@D)

Test files sourced into current interpreter

Running tests that match: *

Skipping test files that match: l.*.test

Only running test files that match: *.test

Bell should ring now ...

==== 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 (exact matching):

.t {} {}

==== focus-5.1 FAILED

==== font-4.9 font command: actual FAILED

==== Contents of test case:

# (objc > 3) so objPtr = objv[3 + skip]

string tolower [font actual {-family times} -family]

---- Result was:

times new roman

---- Result should have been (exact matching):

times

==== font-4.9 FAILED

==== font-24.5 Tk_ComputeTextLayout: break line FAILED

==== Contents of test case:

.b.l config -text "000\t00000" -wrap [expr 9*$ax]

set x [getsize]

.b.l config -wrap 0

set x

---- Result was:

63 28

---- Result should have been (exact matching):

56 28

==== font-24.5 FAILED

==== font-44.1 TkFontGetPixels: size < 0 FAILED

==== Contents of test case:

font actual {times -12} -size

---- Result was:

---- Result should have been (exact matching):

==== font-44.1 FAILED

==== scrollbar-3.36 ScrollbarWidgetCmd procedure, "fraction" option FAILED

==== Contents of test case:

format {%.6g} [.s fraction 4 179]

---- Result was:

0.976048

---- Result should have been (exact matching):

==== scrollbar-3.36 FAILED

==== scrollbar-3.38 ScrollbarWidgetCmd procedure, "fraction" option FAILED

==== Contents of test case:

format {%.6g} [.s fraction 4 178]

---- Result was:

0.97006

---- Result should have been (exact matching):

0.993711

==== scrollbar-3.38 FAILED

==== scrollbar-6.12 ScrollbarPosition procedure FAILED

==== Contents of test case:

.s identify 8 19

---- Result was:

---- Result should have been (exact matching):

==== scrollbar-6.12 FAILED

==== scrollbar-6.29 ScrollbarPosition procedure FAILED

==== Contents of test case:

.s identify 8 180

---- Result was:

---- Result should have been (exact matching):

==== scrollbar-6.29 FAILED

==== scrollbar-6.35 ScrollbarPosition procedure FAILED

==== Contents of test case:

.s identify 18 100

---- Result was:

---- Result should have been (exact matching):

==== scrollbar-6.35 FAILED

==== scrollbar-6.44 ScrollbarPosition procedure FAILED

==== Contents of test case:

.t.s identify 100 18

---- Result was:

---- Result should have been (exact matching):

==== scrollbar-6.44 FAILED

==== spinbox-3.70 SpinboxWidgetCmd procedure, "xview" widget command FAILED

==== Contents of test case:

.e xview moveto 0.5

format {%.6f %.6f} {*}[.e xview]

---- Result was:

0.505376 0.720430

---- Result should have been (exact matching):

0.505376 0.72043

==== spinbox-3.70 FAILED

==== spinbox-21.1 spinbox button, out of range checking FAILED

==== Contents of test case:

destroy .e

spinbox .e -from -10 -to 20 -increment 2

set out {}

lappend out [.e get]; # -10

.e delete 0 end

.e insert 0 25; # set outside of range

.e invoke buttondown; # should constrain

lappend out [.e get]; # 20

.e delete 0 end

.e insert 0 25; # set outside of range

.e invoke buttonup; # should constrain

lappend out [.e get]; # 20

.e delete 0 end

.e insert 0 -100; # set outside of range

.e invoke buttonup; # should constrain

lappend out [.e get]; # -10

.e delete 0 end

.e insert 0 -100; # set outside of range

.e invoke buttondown; # should constrain

lappend out [.e get]; # -10

.e delete 0 end

.e insert 0 bogus; # set to a bogus value

.e invoke buttondown; # should use fromValue

lappend out [.e get]; # -10

.e delete 0 end

.e insert 0 19; # set just inside of range

.e invoke buttonup; # no wrap

lappend out [.e get]; # 20

.e invoke buttonup; # no wrap

lappend out [.e get]; # 20

.e invoke buttondown

lappend out [.e get]; # 18

.e delete 0 end

.e insert 0 -9; # set just inside of range

.e invoke buttondown; # no wrap

lappend out [.e get]; # -10

.e invoke buttondown; # no wrap

lappend out [.e get]; # -10

.e invoke buttonup; # no wrap

lappend out [.e get]; # -8

.e configure -wrap 1

.e delete 0 end

.e insert 0 19; # set just inside of range

.e invoke buttonup; # wrap

lappend out [.e get]; # -10

.e invoke buttonup

lappend out [.e get]; # -8

.e invoke buttondown

lappend out [.e get]; # -10

.e delete 0 end

.e insert 0 -9; # set just inside of range

.e invoke buttondown; # wrap

lappend out [.e get]; # 20

.e invoke buttondown

lappend out [.e get]; # 18

.e invoke buttonup; # no wrap

lappend out [.e get]; # 20

---- Result was:

0 20 20 -10 -10 -10 20 20 18 -10 -10 -8 -10 -8 -10 20 18 20

---- Result should have been (exact matching):

-10 20 20 -10 -10 -10 20 20 18 -10 -10 -8 -10 -8 -10 20 18 20

==== spinbox-21.1 FAILED

==== textDisp-32.2 elide and tags FAILED

==== Contents of test case:

pack [text .tt -height 30 -width 100 -bd 0 -highlightthickness 0 -padx 0]

.tt insert end {test text using tags 1 and 3 } {testtag1 testtag3} {[this bit here uses tags 2 and 3]} {testtag2 testtag3}

update

# indent left margin of tag 1 by 20 pixels

# text should be indented

.tt tag configure testtag1 -lmargin1 20 ; update

#1

set res {}

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

# hide tag 1, remaining text should not be indented, since

# the indented tag and character is hidden.

.tt tag configure testtag1 -elide 1 ; update

#2

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

# reset

.tt tag configure testtag1 -lmargin1 0

.tt tag configure testtag1 -elide 0

# indent left margin of tag 2 by 20 pixels

# text should not be indented, since tag1 has lmargin1 of 0.

.tt tag configure testtag2 -lmargin1 20 ; update

#3

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

# hide tag 1, remaining text should now be indented, but

# the bbox of 1.0 should have zero width and zero indent,

# since it is elided at that position.

.tt tag configure testtag1 -elide 1 ; update

#4

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

# reset

.tt tag configure testtag2 -lmargin1 {}

.tt tag configure testtag1 -elide 0

# indent left margin of tag 3 by 20 pixels

# text should be indented, since this tag takes

# precedence over testtag1, and is applied to the

# start of the text.

.tt tag configure testtag3 -lmargin1 20 ; update

#5

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

# hide tag 1, remaining text should still be indented,

# since it still has testtag3 on it. Again the

# bbox of 1.0 should have 0.

.tt tag configure testtag1 -elide 1 ; update

#6

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

.tt tag configure testtag3 -lmargin1 {} -elide 0

.tt tag configure testtag1 -elide 1 -lmargin1 20

#7

lappend res [list [.tt index "1.0 + 0 displaychars"] [lindex [.tt bbox 1.0] 0] [lindex [.tt bbox "1.0 + 0 displaychars"] 0]]

destroy .tt

set res

---- Result was:

{1.0 20 20} {1.0 0 0} {1.0 0 0} {1.0 0 0} {1.0 20 20} {1.0 0 0} {1.0 20 20}

---- Result should have been (exact matching):

{1.0 20 20} {1.29 0 0} {1.0 0 0} {1.29 0 20} {1.0 20 20} {1.29 0 20} {1.0 20 20}

==== textDisp-32.2 FAILED

==== textImage-3.2 delayed image management FAILED

==== Contents of test case:

catch {

image create photo small -width 5 -height 5

small put red -to 0 0 4 4

}

catch {destroy .t}

text .t -font test_font -bd 0 -highlightthickness 0 -padx 0 -pady 0

pack .t

.t image create end -name test

update

set result ""

lappend result [.t bbox test]

.t image configure test -image small -align top

update

lappend result [.t bbox test]

---- Result was:

{0 11 0 0} {0 0 5 5}

---- Result should have been (exact matching):

{} {0 0 5 5}

==== textImage-3.2 FAILED

==== textTag-15.1 TkTextBindProc FAILED

==== Contents of test case:

bind .t <ButtonRelease> {lappend x up}

.t tag bind x <ButtonRelease> {lappend x x-up}

.t tag bind y <ButtonRelease> {lappend x y-up}

set x {}

.t tag add x 2.0 2.4

.t tag add y 4.3

event gen .t <Button> -x $x1 -y $y1

event gen .t <Motion> -x $x1 -y $y1

event gen .t <ButtonRelease> -x $x1 -y $y1

event gen .t <Button> -x $x1 -y $y1

event gen .t <Motion> -x $x2 -y $y2

event gen .t <ButtonRelease> -x $x2 -y $y2

event gen .t <Button> -x $x2 -y $y2

event gen .t <Motion> -x $x3 -y $y3

event gen .t <ButtonRelease> -x $x3 -y $y3

bind .t <ButtonRelease> {}

set x

---- Result was:

up up up

---- Result should have been (exact matching):

x-up up up y-up up

==== textTag-15.1 FAILED

==== textTag-16.2 TkTextPickCurrent procedure FAILED

==== Contents of test case:

event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1

event gen .t <Motion> -x $x2 -y $y2

set x [.t index current]

.t tag add big 3.0

update

lappend x [.t index current]

---- Result was:

3.2 2.2

---- Result should have been (exact matching):

3.2 3.1

==== textTag-16.2 FAILED

==== textTag-18.1 TkTextPickCurrent tag bindings FAILED

==== Contents of test case:

text .t -width 30 -height 4 -relief sunken -borderwidth 10 -highlightthickness 10 -pady 2

pack .t

.t insert end " Tag here " TAG " no tag here"

.t tag configure TAG -borderwidth 4 -relief raised

.t tag bind TAG <Enter> {lappend res "%x %y tag-Enter"}

.t tag bind TAG <Leave> {lappend res "%x %y tag-Leave"}

bind .t <Enter> {lappend res Enter}

bind .t <Leave> {lappend res Leave}

set res {}

# Bindings must not trigger on the widget border, only over

# the actual tagged characters themselves.

event gen .t <Motion> -warp 1 -x 0 -y 0 ; update

event gen .t <Motion> -warp 1 -x 10 -y 10 ; update

event gen .t <Motion> -warp 1 -x 25 -y 25 ; update

event gen .t <Motion> -warp 1 -x 20 -y 20 ; update

event gen .t <Motion> -warp 1 -x 10 -y 10 ; update

event gen .t <Motion> -warp 1 -x 25 -y 25 ; update

set res

---- Result was:

{25 25 tag-Enter} Enter {10 10 tag-Leave} {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}

---- Result should have been (exact matching):

Enter {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}

==== textTag-18.1 FAILED

==== textWind-10.6.1 EmbWinLayoutProc procedure, error in creating window FAILED

==== Contents of test case:

.t delete 1.0 end

.t insert 1.0 "Some sample text"

catch {destroy .t2}

.t window create 1.5 -create {

toplevel .t2 -width 100 -height 150

wm geom .t2 +0+0

concat .t2

}

set msg {}

update

set i 0

while {[llength $msg] == 1 && [incr i] < 200} { update }

set msg

---- Result was:

{{can't embed .t2 relative to .t}}

{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}

==== textWind-10.6.1 FAILED

==== unixEmbed-9.2 EmbedWindowDeleted procedure, check embeddedPtr FAILED

==== Contents of test case:

deleteWindows

frame .f1 -container 1 -width 200 -height 50

pack .f1

dobg "set w1 [winfo id .f1]"

dobg {

eval destroy [winfo child .]

toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken

set x {}

lappend x [testembed]

destroy .t1

lappend x [testembed]

}

---- Test generated error; Return code was: 1

---- Return code should have been one of: 0 2

---- errorInfo: error flushing "file9": broken pipe

while executing

(procedure "dobg" line 9)

invoked from within

"dobg "set w1 [winfo id .f1]""

("uplevel" body line 5)

invoked from within

---- errorCode: POSIX EPIPE {broken pipe}

==== unixEmbed-9.2 FAILED

==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED

==== Contents of test case:

font measure fixed 0

---- Result was:

---- Result should have been (exact matching):

==== unixfont-1.2 FAILED

==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED

==== Contents of test case:

lindex [font actual {-family fixed -size 10}] 1

---- Result was:

---- Result should have been (exact matching):

==== unixfont-2.6 FAILED

==== unixfont-2.8 TkpGetFontFromAttributes: loop over returned font names FAILED

==== Contents of test case:

lindex [font actual {-family fixed -size 31}] 1

---- Result was:

---- Result should have been (exact matching):

==== unixfont-2.8 FAILED

==== unixfont-2.9 TkpGetFontFromAttributes: reject adobe courier if possible FAILED

==== Contents of test case:

lindex [font actual {-family courier}] 1

---- Result was:

Courier New

---- Result should have been (exact matching):

==== unixfont-2.9 FAILED

==== unixfont-5.9 Tk_MeasureChars procedure: TK_PARTIAL_OK FAILED

==== Contents of test case:

.b.c dchars $t 0 end

.b.c insert $t 0 "0000"

.b.c index $t @[expr int($ax*2.5)],1

---- Result was:

---- Result should have been (exact matching):

==== unixfont-5.9 FAILED

==== unixfont-8.4 AllocFont procedure: classify characters FAILED

==== Contents of test case:

set x 0

incr x [font measure $courier "\u4000"] ;# 6

incr x [font measure $courier "\002"] ;# 4

incr x [font measure $courier "\012"] ;# 2

incr x [font measure $courier "\101"] ;# 1

set x

---- Result was:

---- Result should have been (exact matching):

==== unixfont-8.4 FAILED

==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED

==== Contents of test case:

set x 0

incr x [font measure $courier "\001"] ;# 4

incr x [font measure $courier "\002"] ;# 4

incr x [font measure $courier "\012"] ;# 2

set x

---- Result was:

---- Result should have been (exact matching):

==== unixfont-8.6 FAILED

==== unixfont-9.1 GetControlCharSubst procedure: 2 chars subst FAILED

==== Contents of test case:

.b.c dchars $t 0 end

.b.c insert $t 0 "0\a0"

set x {}

lappend x [.b.c index $t @[expr $ax*0],0]

lappend x [.b.c index $t @[expr $ax*1],0]

lappend x [.b.c index $t @[expr $ax*2],0]

lappend x [.b.c index $t @[expr $ax*3],0]

---- Result was:

0 1 2 3

---- Result should have been (exact matching):

0 1 1 2

==== unixfont-9.1 FAILED

==== unixfont-9.2 GetControlCharSubst procedure: 4 chars subst FAILED

==== Contents of test case:

.b.c dchars $t 0 end

.b.c insert $t 0 "0\0010"

set x {}

lappend x [.b.c index $t @[expr $ax*0],0]

lappend x [.b.c index $t @[expr $ax*1],0]

lappend x [.b.c index $t @[expr $ax*2],0]

lappend x [.b.c index $t @[expr $ax*3],0]

lappend x [.b.c index $t @[expr $ax*4],0]

lappend x [.b.c index $t @[expr $ax*5],0]

---- Result was:

0 1 2 3 3 3

---- Result should have been (exact matching):

0 1 1 1 1 2

==== unixfont-9.2 FAILED

==== unixWm-4.3 moving window while withdrawn FAILED

==== Contents of test case:

wm withdraw .t

sleep 200

wm geom .t $geom

update

wm deiconify .t

wm geom .t

---- Result was:

100x150+0+29

---- Result should have been (exact matching):

100x150+0+0

==== unixWm-4.3 FAILED

==== unixWm-45.2 UpdateSizeHints procedure FAILED

==== Contents of test case:

destroy .t

toplevel .t -width 80 -height 60

wm minsize .t 30 40

wm maxsize .t 200 500

wm geometry .t +0+0

tkwait visibility .t

set property [testprop [testwrapper .t] WM_NORMAL_HINTS]

list [expr [lindex $property 5]] [expr [lindex $property 6]] [expr [lindex $property 7]] [expr [lindex $property 8]] [expr [lindex $property 9]] [expr [lindex $property 10]]

---- Result was:

30 40 200 500 0 0

---- Result should have been (exact matching):

30 40 200 500 1 1

==== unixWm-45.2 FAILED

==== unixWm-45.4 UpdateSizeHints procedure, not resizable with menu FAILED

==== Contents of test case:

destroy .t

toplevel .t -width 80 -height 60

frame .t.menu -height 23 -width 50

testmenubar window .t .t.menu

wm resizable .t 0 0

wm geometry .t +0+0

tkwait visibility .t

set property [testprop [testwrapper .t] WM_NORMAL_HINTS]

list [winfo height .t] [expr [lindex $property 5]] [expr [lindex $property 6]] [expr [lindex $property 7]] [expr [lindex $property 8]] [expr [lindex $property 9]] [expr [lindex $property 10]]

---- Result was:

60 80 83 80 83 0 0

---- Result should have been (exact matching):

60 80 83 80 83 1 1

==== unixWm-45.4 FAILED

==== unixWm-51.7 TkWmRestackToplevel procedure, other window isn't mapped FAILED