Tk testTag-18.1 failure

Tests began at Wed Oct 17 18:10:21 IST 2018                                                    
textTag.test                                                                                   
                                                                                               
                                                                                               
==== 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                                                                                    
    update ; # map the window, otherwise -warp can't be done                                   
                                                                                               
    .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                                         
    return $res                                                                                
                                                                                               
---- Result was:                                                                               
{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