--- a/components/tcl/tk/Makefile Mon Aug 10 11:49:13 2015 -0700
+++ b/components/tcl/tk/Makefile Mon Aug 10 15:37:47 2015 -0700
@@ -52,8 +52,10 @@
CONFIGURE_SCRIPT = $(SOURCE_DIR)/unix/configure
CFLAGS += $(studio_XREGS) -xstrconst $(XPG6MODE) $(studio_C99_ENABLE)
+LDFLAGS += $(CC_BITS)
CONFIGURE_OPTIONS += CFLAGS="$(CFLAGS)"
+CONFIGURE_OPTIONS += LDFLAGS="$(LDFLAGS)"
CONFIGURE_OPTIONS += --enable-shared
CONFIGURE_OPTIONS += --enable-man-symlinks
CONFIGURE_OPTIONS += --enable-threads
@@ -61,12 +63,12 @@
CONFIGURE_OPTIONS.64 += --with-tcl="$(COMPONENT_DIR)/../tcl/build/$(MACH64)"
CONFIGURE_OPTIONS.64 += --enable-64bit
-COMPONENT_TEST_MASTER = $(COMPONENT_TEST_RESULTS_DIR)/results-all.master
COMPONENT_TEST_TARGETS = test
COMPONENT_TEST_TRANSFORMS += \
'-e "s|^.*$(CC).*$$|XXX_CC_XXX|"' \
'-e "s|^.*tcl/build/$(MACH$(BITS)).*$$|XXX_CC_XXX|g"' \
'-e "s|^cc: Warning: -xarch=v9 is deprecated.*$$|XXX_CC_XXX|g"' \
+ '-e "s|^cc: Warning: illegal use of -x.* option, .*$$|XXX_CC_XXX|g"' \
'-e "/^XXX_CC_XXX$$/d"' \
'-e "/^Tests began at .*$$/d"' \
'-e "/^Tests ended at .*$$/d"'
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/components/tcl/tk/test/results-32.master Mon Aug 10 15:37:47 2015 -0700
@@ -0,0 +1,900 @@
+make[1]: Entering directory `$(@D)'
+rm -f tkTestInit.o
+mv tkAppInit.o tkTestInit.o
+make[2]: Entering directory `$(@D)'
+make[2]: Leaving directory `$(@D)'
+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.test
+Bell should ring now ...
+bgerror.test
+bind.test
+bitmap.test
+border.test
+button.test
+canvImg.test
+canvPs.test
+canvRect.test
+canvText.test
+canvWind.test
+canvas.test
+choosedir.test
+clipboard.test
+clrpick.test
+cmds.test
+color.test
+config.test
+cursor.test
+dialog.test
+embed.test
+entry.test
+event.test
+filebox.test
+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 (exact matching):
+.t {} {}
+==== focus-5.1 FAILED
+
+focusTcl.test
+font.test
+
+
+==== 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:
+-12
+---- Result should have been (exact matching):
+24
+==== font-44.1 FAILED
+
+frame.test
+geometry.test
+get.test
+grab.test
+grid.test
+id.test
+image.test
+imgBmap.test
+imgPPM.test
+imgPhoto.test
+listbox.test
+main.test
+menu.test
+menuDraw.test
+menubut.test
+message.test
+msgbox.test
+obj.test
+oldpack.test
+option.test
+pack.test
+panedwindow.test
+place.test
+raise.test
+safe.test
+scale.test
+scrollbar.test
+
+
+==== 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):
+1
+==== 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:
+trough1
+---- Result should have been (exact matching):
+arrow1
+==== scrollbar-6.12 FAILED
+
+
+
+==== scrollbar-6.29 ScrollbarPosition procedure FAILED
+==== Contents of test case:
+
+ .s identify 8 180
+
+---- Result was:
+trough2
+---- Result should have been (exact matching):
+arrow2
+==== 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):
+trough2
+==== 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):
+trough2
+==== scrollbar-6.44 FAILED
+
+select.test
+send.test
+spinbox.test
+
+
+==== 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
+
+text.test
+textBTree.test
+textDisp.test
+
+
+==== 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.test
+
+
+==== 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
+
+textIndex.test
+textMark.test
+textTag.test
+
+
+==== 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
+
+textWind.test
+
+
+==== 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}}
+---- Result should have been (exact matching):
+{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}
+==== textWind-10.6.1 FAILED
+
+tk.test
+unixButton.test
+unixEmbed.test
+unixFont.test
+
+
+==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED
+==== Contents of test case:
+
+ font measure fixed 0
+
+---- Result was:
+8
+---- Result should have been (exact matching):
+6
+==== 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:
+Fixed
+---- Result should have been (exact matching):
+fixed
+==== 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:
+Fixed
+---- Result should have been (exact matching):
+fixed
+==== 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):
+courier
+==== 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:
+3
+---- Result should have been (exact matching):
+2
+==== 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:
+33
+---- Result should have been (exact matching):
+78
+==== unixfont-8.4 FAILED
+
+
+
+==== unixfont-8.5 AllocFont procedure: setup widths of normal chars FAILED
+==== Contents of test case:
+
+ font metrics $courier -fixed
+
+---- Result was:
+0
+---- Result should have been (exact matching):
+1
+==== unixfont-8.5 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:
+29
+---- Result should have been (exact matching):
+60
+==== 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 1 3 3 3
+---- Result should have been (exact matching):
+0 1 1 1 1 2
+==== unixfont-9.2 FAILED
+
+unixMenu.test
+unixSelect.test
+unixWm.test
+
+
+==== 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
+==== Contents of test case:
+
+ foreach w {.t .t2 .t3} {
+ destroy $w
+ toplevel $w -width 200 -height 200 -bg green
+ wm geometry $w +0+0
+ }
+ raise .t .t2
+ sleep 2000
+ update
+ set result [list [winfo containing 100 100]]
+ lower .t3
+ sleep 2000
+ lappend result [winfo containing 100 100]
+
+---- Result was:
+.t3 .t2
+---- Result should have been (exact matching):
+.t3 .t
+==== unixWm-51.7 FAILED
+
+util.test
+visual.test
+visual_bb.test
+winButton.test
+winClipboard.test
+winDialog.test
+winFont.test
+winMenu.test
+winMsgbox.test
+winSend.test
+winWm.test
+window.test
+winfo.test
+wm.test
+
+
+==== wm-stackorder-2.2 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ raise .
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+. .t
+---- Result should have been (exact matching):
+.t .
+==== wm-stackorder-2.2 FAILED
+
+
+
+==== wm-stackorder-2.3 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ toplevel .t2 ; update
+ raise .
+ raise .t2
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+. .t .t2
+---- Result should have been (exact matching):
+.t . .t2
+==== wm-stackorder-2.3 FAILED
+
+
+
+==== wm-stackorder-2.4 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ toplevel .t2 ; update
+ raise .
+ lower .t2
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+.t2 . .t
+---- Result should have been (exact matching):
+.t2 .t .
+==== wm-stackorder-2.4 FAILED
+
+
+
+==== wm-stackorder-2.5 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .parent ; update
+ destroy .parent.child1
+ toplevel .parent.child1 ; update
+ destroy .parent.child2
+ toplevel .parent.child2 ; update
+ destroy .extra
+ toplevel .extra ; update
+ raise .parent
+ lower .parent.child2
+ raiseDelay
+ wm stackorder .parent
+
+---- Result was:
+.parent .parent.child1 .parent.child2
+---- Result should have been (exact matching):
+.parent.child2 .parent.child1 .parent
+==== wm-stackorder-2.5 FAILED
+
+
+
+==== wm-stackorder-4.3 wm stackorder isabove|isbelow FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ raise .
+ raiseDelay
+ wm stackorder .t isa .
+
+---- Result was:
+1
+---- Result should have been (exact matching):
+0
+==== wm-stackorder-4.3 FAILED
+
+
+
+==== wm-stackorder-4.4 wm stackorder isabove|isbelow FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ raise .
+ raiseDelay
+ wm stackorder .t isb .
+
+---- Result was:
+0
+---- Result should have been (exact matching):
+1
+==== wm-stackorder-4.4 FAILED
+
+
+
+==== wm-stackorder-5.1 a menu is not a toplevel FAILED
+==== Contents of test case:
+
+ toplevel .t
+ menu .t.m -type menubar
+ .t.m add cascade -label "File"
+ .t configure -menu .t.m
+ update
+ raise .
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+. .t
+---- Result should have been (exact matching):
+.t .
+==== wm-stackorder-5.1 FAILED
+
+xmfbox.test
+
+all.tcl: Total 9101 Passed 7910 Skipped 1155 Failed 36
+Sourced 87 Test Files.
+Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixFont.test unixWm.test wm.test
+Number of tests skipped for each constraint:
+ 14 altDisplay
+ 1 aqua
+ 16 colorsFree
+ 3 colorsLeftover
+ 21 defaultPseudocolor8
+ 10 emptyTest
+ 139 fonts
+ 1 hasArial
+ 1 hasCourierNew
+ 1 hasTimesNew
+ 1 havePseudocolorVisual
+ 6 knownBug
+ 1 memory
+ 378 nonPortable
+ 33 nt
+ 5 pseudocolor8
+ 11 testmetrics
+ 7 testwinevent
+ 141 textfonts
+ 1 unthreaded
+ 1 userInteraction
+ 312 win
+ 51 winSend
+
+Tests running in interp: $(@D)/tktest
+Tests located in: $(SOURCE_DIR)/tests/ttk
+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
+checkbutton.test
+combobox.test
+entry.test
+image.test
+labelframe.test
+layout.test
+notebook.test
+panedwindow.test
+progressbar.test
+radiobutton.test
+scrollbar.test
+spinbox.test
+
+
+==== spinbox-1.8.4 -validate option: FAILED
+==== Contents of test case:
+
+ .sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
+ pack .sb
+ .sb set 50
+ focus .sb
+ after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
+ set ::spinbox_test
+
+---- Result was:
+
+---- Result should have been (exact matching):
+50
+==== spinbox-1.8.4 FAILED
+
+treetags.test
+treeview.test
+ttk.test
+validate.test
+vsapi.test
+
+all.tcl: Total 457 Passed 439 Skipped 17 Failed 1
+Sourced 17 Test Files.
+Files with failing tests: spinbox.test
+Number of tests skipped for each constraint:
+ 2 NA
+ 4 coreEntry
+ 3 coreScrollbar
+ 5 nyi
+ 3 xpnative
+make[1]: Leaving directory `$(@D)'
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/components/tcl/tk/test/results-64.master Mon Aug 10 15:37:47 2015 -0700
@@ -0,0 +1,950 @@
+make[1]: Entering directory `$(@D)'
+rm -f tkTestInit.o
+mv tkAppInit.o tkTestInit.o
+make[2]: Entering directory `$(@D)'
+make[2]: Leaving directory `$(@D)'
+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.test
+Bell should ring now ...
+bgerror.test
+bind.test
+bitmap.test
+border.test
+button.test
+canvImg.test
+canvPs.test
+canvRect.test
+canvText.test
+canvWind.test
+canvas.test
+choosedir.test
+clipboard.test
+clrpick.test
+cmds.test
+color.test
+config.test
+cursor.test
+dialog.test
+embed.test
+entry.test
+event.test
+filebox.test
+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 (exact matching):
+.t {} {}
+==== focus-5.1 FAILED
+
+focusTcl.test
+font.test
+
+
+==== 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:
+-12
+---- Result should have been (exact matching):
+24
+==== font-44.1 FAILED
+
+frame.test
+geometry.test
+get.test
+grab.test
+grid.test
+id.test
+image.test
+imgBmap.test
+imgPPM.test
+imgPhoto.test
+listbox.test
+main.test
+menu.test
+menuDraw.test
+menubut.test
+message.test
+msgbox.test
+obj.test
+oldpack.test
+option.test
+pack.test
+panedwindow.test
+place.test
+raise.test
+safe.test
+scale.test
+scrollbar.test
+
+
+==== 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):
+1
+==== 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:
+trough1
+---- Result should have been (exact matching):
+arrow1
+==== scrollbar-6.12 FAILED
+
+
+
+==== scrollbar-6.29 ScrollbarPosition procedure FAILED
+==== Contents of test case:
+
+ .s identify 8 180
+
+---- Result was:
+trough2
+---- Result should have been (exact matching):
+arrow2
+==== 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):
+trough2
+==== 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):
+trough2
+==== scrollbar-6.44 FAILED
+
+select.test
+send.test
+spinbox.test
+
+
+==== 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
+
+text.test
+textBTree.test
+textDisp.test
+
+
+==== 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.test
+
+
+==== 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
+
+textIndex.test
+textMark.test
+textTag.test
+
+
+==== 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.test
+
+
+==== 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}}
+---- Result should have been (exact matching):
+{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}
+==== textWind-10.6.1 FAILED
+
+tk.test
+unixButton.test
+unixEmbed.test
+unixFont.test
+
+
+==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED
+==== Contents of test case:
+
+ font measure fixed 0
+
+---- Result was:
+8
+---- Result should have been (exact matching):
+6
+==== 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:
+Fixed
+---- Result should have been (exact matching):
+fixed
+==== 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:
+Fixed
+---- Result should have been (exact matching):
+fixed
+==== 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):
+courier
+==== 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:
+3
+---- Result should have been (exact matching):
+2
+==== 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:
+33
+---- Result should have been (exact matching):
+78
+==== unixfont-8.4 FAILED
+
+
+
+==== unixfont-8.5 AllocFont procedure: setup widths of normal chars FAILED
+==== Contents of test case:
+
+ font metrics $courier -fixed
+
+---- Result was:
+0
+---- Result should have been (exact matching):
+1
+==== unixfont-8.5 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:
+29
+---- Result should have been (exact matching):
+60
+==== 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 1 3 3 3
+---- Result should have been (exact matching):
+0 1 1 1 1 2
+==== unixfont-9.2 FAILED
+
+unixMenu.test
+unixSelect.test
+unixWm.test
+
+
+==== 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
+==== Contents of test case:
+
+ foreach w {.t .t2 .t3} {
+ destroy $w
+ toplevel $w -width 200 -height 200 -bg green
+ wm geometry $w +0+0
+ }
+ raise .t .t2
+ sleep 2000
+ update
+ set result [list [winfo containing 100 100]]
+ lower .t3
+ sleep 2000
+ lappend result [winfo containing 100 100]
+
+---- Result was:
+.t3 .t2
+---- Result should have been (exact matching):
+.t3 .t
+==== unixWm-51.7 FAILED
+
+util.test
+visual.test
+visual_bb.test
+winButton.test
+winClipboard.test
+winDialog.test
+winFont.test
+winMenu.test
+winMsgbox.test
+winSend.test
+winWm.test
+window.test
+winfo.test
+wm.test
+
+
+==== wm-stackorder-2.2 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ raise .
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+. .t
+---- Result should have been (exact matching):
+.t .
+==== wm-stackorder-2.2 FAILED
+
+
+
+==== wm-stackorder-2.3 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ toplevel .t2 ; update
+ raise .
+ raise .t2
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+. .t .t2
+---- Result should have been (exact matching):
+.t . .t2
+==== wm-stackorder-2.3 FAILED
+
+
+
+==== wm-stackorder-2.4 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ toplevel .t2 ; update
+ raise .
+ lower .t2
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+.t2 . .t
+---- Result should have been (exact matching):
+.t2 .t .
+==== wm-stackorder-2.4 FAILED
+
+
+
+==== wm-stackorder-2.5 stacking order FAILED
+==== Contents of test case:
+
+ toplevel .parent ; update
+ destroy .parent.child1
+ toplevel .parent.child1 ; update
+ destroy .parent.child2
+ toplevel .parent.child2 ; update
+ destroy .extra
+ toplevel .extra ; update
+ raise .parent
+ lower .parent.child2
+ raiseDelay
+ wm stackorder .parent
+
+---- Result was:
+.parent .parent.child1 .parent.child2
+---- Result should have been (exact matching):
+.parent.child2 .parent.child1 .parent
+==== wm-stackorder-2.5 FAILED
+
+
+
+==== wm-stackorder-4.3 wm stackorder isabove|isbelow FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ raise .
+ raiseDelay
+ wm stackorder .t isa .
+
+---- Result was:
+1
+---- Result should have been (exact matching):
+0
+==== wm-stackorder-4.3 FAILED
+
+
+
+==== wm-stackorder-4.4 wm stackorder isabove|isbelow FAILED
+==== Contents of test case:
+
+ toplevel .t ; update
+ raise .
+ raiseDelay
+ wm stackorder .t isb .
+
+---- Result was:
+0
+---- Result should have been (exact matching):
+1
+==== wm-stackorder-4.4 FAILED
+
+
+
+==== wm-stackorder-5.1 a menu is not a toplevel FAILED
+==== Contents of test case:
+
+ toplevel .t
+ menu .t.m -type menubar
+ .t.m add cascade -label "File"
+ .t configure -menu .t.m
+ update
+ raise .
+ raiseDelay
+ wm stackorder .
+
+---- Result was:
+. .t
+---- Result should have been (exact matching):
+.t .
+==== wm-stackorder-5.1 FAILED
+
+xmfbox.test
+
+all.tcl: Total 9101 Passed 7908 Skipped 1155 Failed 38
+Sourced 87 Test Files.
+Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixFont.test unixWm.test wm.test
+Number of tests skipped for each constraint:
+ 14 altDisplay
+ 1 aqua
+ 16 colorsFree
+ 3 colorsLeftover
+ 21 defaultPseudocolor8
+ 10 emptyTest
+ 139 fonts
+ 1 hasArial
+ 1 hasCourierNew
+ 1 hasTimesNew
+ 1 havePseudocolorVisual
+ 6 knownBug
+ 1 memory
+ 378 nonPortable
+ 33 nt
+ 5 pseudocolor8
+ 11 testmetrics
+ 7 testwinevent
+ 141 textfonts
+ 1 unthreaded
+ 1 userInteraction
+ 312 win
+ 51 winSend
+
+Tests running in interp: $(@D)/tktest
+Tests located in: $(SOURCE_DIR)/tests/ttk
+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
+checkbutton.test
+combobox.test
+entry.test
+image.test
+labelframe.test
+layout.test
+notebook.test
+panedwindow.test
+progressbar.test
+radiobutton.test
+scrollbar.test
+spinbox.test
+
+
+==== spinbox-1.8.4 -validate option: FAILED
+==== Contents of test case:
+
+ .sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
+ pack .sb
+ .sb set 50
+ focus .sb
+ after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
+ set ::spinbox_test
+
+---- Result was:
+
+---- Result should have been (exact matching):
+50
+==== spinbox-1.8.4 FAILED
+
+treetags.test
+treeview.test
+ttk.test
+validate.test
+vsapi.test
+
+all.tcl: Total 457 Passed 439 Skipped 17 Failed 1
+Sourced 17 Test Files.
+Files with failing tests: spinbox.test
+Number of tests skipped for each constraint:
+ 2 NA
+ 4 coreEntry
+ 3 coreScrollbar
+ 5 nyi
+ 3 xpnative
+make[1]: Leaving directory `$(@D)'
--- a/components/tcl/tk/test/results-all.master Mon Aug 10 11:49:13 2015 -0700
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,945 +0,0 @@
-make[1]: Entering directory `$(@D)'
-rm -f tkTestInit.o
-mv tkAppInit.o tkTestInit.o
-make[2]: Entering directory `$(@D)'
-make[2]: Leaving directory `$(@D)'
-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.test
-Bell should ring now ...
-bgerror.test
-bind.test
-bitmap.test
-border.test
-button.test
-canvImg.test
-canvPs.test
-canvRect.test
-canvText.test
-canvWind.test
-canvas.test
-choosedir.test
-clipboard.test
-clrpick.test
-cmds.test
-color.test
-config.test
-cursor.test
-dialog.test
-embed.test
-entry.test
-event.test
-filebox.test
-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 (exact matching):
-.t {} {}
-==== focus-5.1 FAILED
-
-focusTcl.test
-font.test
-
-
-==== 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:
--12
----- Result should have been (exact matching):
-24
-==== font-44.1 FAILED
-
-frame.test
-geometry.test
-get.test
-grab.test
-grid.test
-id.test
-image.test
-imgBmap.test
-imgPPM.test
-imgPhoto.test
-listbox.test
-main.test
-menu.test
-menuDraw.test
-menubut.test
-message.test
-msgbox.test
-obj.test
-oldpack.test
-option.test
-pack.test
-panedwindow.test
-place.test
-raise.test
-safe.test
-scale.test
-scrollbar.test
-
-
-==== 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):
-1
-==== 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:
-trough1
----- Result should have been (exact matching):
-arrow1
-==== scrollbar-6.12 FAILED
-
-
-
-==== scrollbar-6.29 ScrollbarPosition procedure FAILED
-==== Contents of test case:
-
- .s identify 8 180
-
----- Result was:
-trough2
----- Result should have been (exact matching):
-arrow2
-==== 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):
-trough2
-==== 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):
-trough2
-==== scrollbar-6.44 FAILED
-
-select.test
-send.test
-spinbox.test
-
-
-==== 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
-
-text.test
-textBTree.test
-textDisp.test
-
-
-==== 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.test
-
-
-==== 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
-
-textIndex.test
-textMark.test
-textTag.test
-
-
-==== 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
-
-textWind.test
-
-
-==== 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}}
----- Result should have been (exact matching):
-{{can't embed .t2 relative to .t}} {{window name "t2" already exists in parent}}
-==== textWind-10.6.1 FAILED
-
-tk.test
-unixButton.test
-unixEmbed.test
-unixFont.test
-
-
-==== unixfont-1.2 TkpGetNativeFont procedure: native FAILED
-==== Contents of test case:
-
- font measure fixed 0
-
----- Result was:
-8
----- Result should have been (exact matching):
-6
-==== unixfont-1.2 FAILED
-
-
-
-==== unixfont-2.2 TkpGetFontFromAttributes procedure: Times relatives FAILED
-==== Contents of test case:
-
- set x {}
- lappend x [lindex [font actual {-family "Times New Roman"}] 1]
- lappend x [lindex [font actual {-family "New York"}] 1]
- lappend x [lindex [font actual {-family "Times"}] 1]
-
----- Result was:
-{Times New Roman} {DejaVu Sans} {Times New Roman}
----- Result should have been (exact matching):
-times times times
-==== unixfont-2.2 FAILED
-
-
-
-==== unixfont-2.3 TkpGetFontFromAttributes procedure: Courier relatives FAILED
-==== Contents of test case:
-
- set x {}
- lappend x [lindex [font actual {-family "Courier New"}] 1]
- lappend x [lindex [font actual {-family "Monaco"}] 1]
- lappend x [lindex [font actual {-family "Courier"}] 1]
-
----- Result was:
-{Courier New} {DejaVu Sans} {Courier New}
----- Result should have been (exact matching):
-courier courier courier
-==== unixfont-2.3 FAILED
-
-
-
-==== unixfont-2.4 TkpGetFontFromAttributes procedure: Helvetica relatives FAILED
-==== Contents of test case:
-
- set x {}
- lappend x [lindex [font actual {-family "Arial"}] 1]
- lappend x [lindex [font actual {-family "Geneva"}] 1]
- lappend x [lindex [font actual {-family "Helvetica"}] 1]
-
----- Result was:
-Arial {DejaVu Sans} Arial
----- Result should have been (exact matching):
-helvetica helvetica helvetica
-==== unixfont-2.4 FAILED
-
-
-
-==== unixfont-2.6 TkpGetFontFromAttributes: fallback to fixed family FAILED
-==== Contents of test case:
-
- lindex [font actual {-family fixed -size 10}] 1
-
----- Result was:
-Fixed
----- Result should have been (exact matching):
-fixed
-==== 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:
-Fixed
----- Result should have been (exact matching):
-fixed
-==== 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):
-courier
-==== 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:
-3
----- Result should have been (exact matching):
-2
-==== 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:
-33
----- Result should have been (exact matching):
-78
-==== unixfont-8.4 FAILED
-
-
-
-==== unixfont-8.5 AllocFont procedure: setup widths of normal chars FAILED
-==== Contents of test case:
-
- font metrics $courier -fixed
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== unixfont-8.5 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:
-29
----- Result should have been (exact matching):
-60
-==== 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 1 3 3 3
----- Result should have been (exact matching):
-0 1 1 1 1 2
-==== unixfont-9.2 FAILED
-
-unixMenu.test
-unixSelect.test
-unixWm.test
-
-
-==== 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
-==== Contents of test case:
-
- foreach w {.t .t2 .t3} {
- destroy $w
- toplevel $w -width 200 -height 200 -bg green
- wm geometry $w +0+0
- }
- raise .t .t2
- sleep 2000
- update
- set result [list [winfo containing 100 100]]
- lower .t3
- sleep 2000
- lappend result [winfo containing 100 100]
-
----- Result was:
-.t3 .t2
----- Result should have been (exact matching):
-.t3 .t
-==== unixWm-51.7 FAILED
-
-util.test
-visual.test
-visual_bb.test
-winButton.test
-winClipboard.test
-winDialog.test
-winFont.test
-winMenu.test
-winMsgbox.test
-winSend.test
-winWm.test
-window.test
-winfo.test
-wm.test
-
-
-==== wm-stackorder-2.2 stacking order FAILED
-==== Contents of test case:
-
- toplevel .t ; update
- raise .
- raiseDelay
- wm stackorder .
-
----- Result was:
-. .t
----- Result should have been (exact matching):
-.t .
-==== wm-stackorder-2.2 FAILED
-
-
-
-==== wm-stackorder-2.3 stacking order FAILED
-==== Contents of test case:
-
- toplevel .t ; update
- toplevel .t2 ; update
- raise .
- raise .t2
- raiseDelay
- wm stackorder .
-
----- Result was:
-. .t .t2
----- Result should have been (exact matching):
-.t . .t2
-==== wm-stackorder-2.3 FAILED
-
-
-
-==== wm-stackorder-2.4 stacking order FAILED
-==== Contents of test case:
-
- toplevel .t ; update
- toplevel .t2 ; update
- raise .
- lower .t2
- raiseDelay
- wm stackorder .
-
----- Result was:
-.t2 . .t
----- Result should have been (exact matching):
-.t2 .t .
-==== wm-stackorder-2.4 FAILED
-
-
-
-==== wm-stackorder-2.5 stacking order FAILED
-==== Contents of test case:
-
- toplevel .parent ; update
- destroy .parent.child1
- toplevel .parent.child1 ; update
- destroy .parent.child2
- toplevel .parent.child2 ; update
- destroy .extra
- toplevel .extra ; update
- raise .parent
- lower .parent.child2
- raiseDelay
- wm stackorder .parent
-
----- Result was:
-.parent .parent.child1 .parent.child2
----- Result should have been (exact matching):
-.parent.child2 .parent.child1 .parent
-==== wm-stackorder-2.5 FAILED
-
-
-
-==== wm-stackorder-4.3 wm stackorder isabove|isbelow FAILED
-==== Contents of test case:
-
- toplevel .t ; update
- raise .
- raiseDelay
- wm stackorder .t isa .
-
----- Result was:
-1
----- Result should have been (exact matching):
-0
-==== wm-stackorder-4.3 FAILED
-
-
-
-==== wm-stackorder-4.4 wm stackorder isabove|isbelow FAILED
-==== Contents of test case:
-
- toplevel .t ; update
- raise .
- raiseDelay
- wm stackorder .t isb .
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== wm-stackorder-4.4 FAILED
-
-
-
-==== wm-stackorder-5.1 a menu is not a toplevel FAILED
-==== Contents of test case:
-
- toplevel .t
- menu .t.m -type menubar
- .t.m add cascade -label "File"
- .t configure -menu .t.m
- update
- raise .
- raiseDelay
- wm stackorder .
-
----- Result was:
-. .t
----- Result should have been (exact matching):
-.t .
-==== wm-stackorder-5.1 FAILED
-
-xmfbox.test
-
-all.tcl: Total 9101 Passed 7910 Skipped 1152 Failed 39
-Sourced 87 Test Files.
-Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixFont.test unixWm.test wm.test
-Number of tests skipped for each constraint:
- 14 altDisplay
- 1 aqua
- 16 colorsFree
- 3 colorsLeftover
- 21 defaultPseudocolor8
- 10 emptyTest
- 139 fonts
- 1 havePseudocolorVisual
- 6 knownBug
- 1 memory
- 378 nonPortable
- 33 nt
- 5 pseudocolor8
- 11 testmetrics
- 7 testwinevent
- 141 textfonts
- 1 unthreaded
- 1 userInteraction
- 312 win
- 51 winSend
-
-Tests running in interp: $(@D)/tktest
-Tests located in: $(SOURCE_DIR)/tests/ttk
-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
-checkbutton.test
-combobox.test
-entry.test
-image.test
-labelframe.test
-layout.test
-notebook.test
-panedwindow.test
-progressbar.test
-radiobutton.test
-scrollbar.test
-spinbox.test
-
-
-==== spinbox-1.8.4 -validate option: FAILED
-==== Contents of test case:
-
- .sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
- pack .sb
- .sb set 50
- focus .sb
- after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
- set ::spinbox_test
-
----- Result was:
-
----- Result should have been (exact matching):
-50
-==== spinbox-1.8.4 FAILED
-
-treetags.test
-treeview.test
-ttk.test
-validate.test
-vsapi.test
-
-all.tcl: Total 457 Passed 439 Skipped 17 Failed 1
-Sourced 17 Test Files.
-Files with failing tests: spinbox.test
-Number of tests skipped for each constraint:
- 2 NA
- 4 coreEntry
- 3 coreScrollbar
- 5 nyi
- 3 xpnative
-make[1]: Leaving directory `$(@D)'