Tk Source Code

Test passes on core-8-6-branch; fails on trunk:

==== cursor-4.1 FreeCursorObjProc FAILED
==== Contents of test case:

    set x [join heart]
    button .b -cursor $x
    set y [join heart]
    .b configure -cursor $y
    set z [join heart]
    .b configure -cursor $z
    set result {}
    lappend result [testcursor heart]
    set x red
    lappend result [testcursor heart]
    set z 32
    lappend result [testcursor heart]
    destroy .b
    lappend result [testcursor heart]
    set y bogus
    set result

---- Result was:
{{1 1}} {{1 1}} {{1 1}} {}
---- Result should have been (exact matching):
{{1 3}} {{1 2}} {{1 1}} {}
==== cursor-4.1 FAILED

Fixed (directly) in trunk: [ae13ed6583], following what was done by dgp in [76e2d9c095].

Test no longer skipped after
  make clean ; make distclean
and running the test again.

But now the test passes. I can't reproduce.

That's because for me :

++++ cursor-4.1 SKIPPED: testcursor

I suppose this happens on your CentOS Linux release 7.2.1511?

make test TESTFLAGS="-file cursor.test"
is 100% oK for me.