# HG changeset patch
# User John Beck <John.Beck@Oracle.COM>
# Date 1424382722 28800
# Node ID 469420aae5d10dd42a89b4c1b54ea0a40aa84a73
# Parent  660b1766a5b43eec7fbe8901411c407b89c7b9d6
20460977 tk should have some master test results to compare against

diff -r 660b1766a5b4 -r 469420aae5d1 components/tcl/tk/Makefile
--- a/components/tcl/tk/Makefile	Thu Feb 19 09:53:43 2015 -0800
+++ b/components/tcl/tk/Makefile	Thu Feb 19 13:52:02 2015 -0800
@@ -61,7 +61,15 @@
 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 "/^XXX_CC_XXX$$/d"' \
+	'-e "/^Tests began at .*$$/d"' \
+	'-e "/^Tests ended at .*$$/d"'
 
 ASLR_MODE = $(ASLR_ENABLE)
 
@@ -87,7 +95,6 @@
 $(CONFIGURE_32):	../tcl/build/$(MACH32)/.built
 $(CONFIGURE_64):	../tcl/build/$(MACH64)/.built
 
-
 REQUIRED_PACKAGES += runtime/tcl-8
 REQUIRED_PACKAGES += system/library
 REQUIRED_PACKAGES += system/library/math
diff -r 660b1766a5b4 -r 469420aae5d1 components/tcl/tk/test/results-all.master
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/tcl/tk/test/results-all.master	Thu Feb 19 13:52:02 2015 -0800
@@ -0,0 +1,945 @@
+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)'