Tk Source Code

Running the test suite with current trunk [44b24118] (2015-08-31), I get some new failures compared to tcl 8.6.4 (on the same system and compile method).

The first failure looks important to me, the clipboard tests were never very robust, the font tests might be due to windows changes (word installation might have braught new fonts)...

System: Win 8.1 64 bit
Compiled with Makefile.VC with MSVC6 PSDK2003 or MSVC14

<verbatim>
==== text-9.2.46 TextWidgetCmd procedure, "count" option FAILED
==== Contents of test case:

    for {set i 1} {$i < 5} {incr i} {
      #              0          1          2          3          4
      #              012345 678901234 567890123 456789012 34567890123456789
      .mytop.t insert end "Line $i+++Line $i---Line $i///Line $i - This is Line [format %c [expr 64+$i]]\n"
    }
    .mytop.t tag configure hidden -elide true
    .mytop.t tag add hidden 2.15 3.10
    .mytop.t configure -wrap char
    lappend res [.mytop.t count -displaylines 2.0 3.0]
    lappend res [.mytop.t count -displaylines 2.0 3.40]

---- Result was:
0 3
---- Result should have been (exact matching):
1 3
==== text-9.2.46 FAILED

==== winClipboard-1.2 TkSelGetSelection FAILED
==== Contents of test case:

    clipboard append {}
    list [selection get -selection CLIPBOARD] [testclipboard]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: CLIPBOARD selection doesn't exist or form "STRING" not defined
    while executing
"testclipboard"
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"
---- errorCode: TK SELECTION EXISTS
==== winClipboard-1.2 FAILED

==== winClipboard-2.1 TkSelUpdateClipboard reentrancy problem FAILED
==== Contents of test case:

    clipboard append -type OUR_ACTION "action data"
    clipboard append "string data"
    update
    list [selection get -selection CLIPBOARD -type OUR_ACTION] [testclipboard]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: CLIPBOARD selection doesn't exist or form "STRING" not defined
    while executing
"testclipboard"
    ("uplevel" body line 5)
    invoked from within
"uplevel 1 $script"
---- errorCode: TK SELECTION EXISTS
==== winClipboard-2.1 FAILED

---- winClipboard-2.2 start


==== winClipboard-2.2 TkSelUpdateClipboard reentrancy problem FAILED
==== Contents of test case:

    clipboard append -type OUR_ACTION "new data"
    clipboard append "more data in string"
    update
    list [testclipboard] [selection get -selection CLIPBOARD -type OUR_ACTION]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: CLIPBOARD selection doesn't exist or form "STRING" not defined
    while executing
"testclipboard"
    ("uplevel" body line 5)
    invoked from within
"uplevel 1 $script"
---- errorCode: TK SELECTION EXISTS
==== winClipboard-2.2 FAILED

==== winfont-2.7 TkpGetFontFromAttributes procedure: Times fonts FAILED
==== Contents of test case:

    lappend x [font actual {-family "Times"} -family]
    lappend x [font actual {-family "New York"} -family]
    lappend x [font actual {-family "Times New Roman"} -family]

---- Result was:
{Times New Roman} {New York} {Times New Roman}
---- Result should have been (exact matching):
{Times New Roman} {Times New Roman} {Times New Roman}
==== winfont-2.7 FAILED

---- winfont-2.8 start


==== winfont-2.8 TkpGetFontFromAttributes procedure: Courier fonts FAILED
==== Contents of test case:

    lappend x [font actual {-family "Courier"} -family]
    lappend x [font actual {-family "Monaco"} -family]
    lappend x [font actual {-family "Courier New"} -family]

---- Result was:
{Courier New} Monaco {Courier New}
---- Result should have been (exact matching):
{Courier New} {Courier New} {Courier New}
==== winfont-2.8 FAILED

---- winfont-2.9 start


==== winfont-2.9 TkpGetFontFromAttributes procedure: Helvetica fonts FAILED
==== Contents of test case:

    lappend x [font actual {-family "Helvetica"} -family]
    lappend x [font actual {-family "Geneva"} -family]
    lappend x [font actual {-family "Arial"} -family]

---- Result was:
Arial Geneva Arial
---- Result should have been (exact matching):
Arial Arial Arial
==== winfont-2.9 FAILED

</verbatim>

New failing test: text-9.2.46 TextWidgetCmd procedure, "count" option