Bug #131091 for Tcl-pTk: focusMethods.t fails

Subject:

focusMethods.t fails

The new focusMethods.t test in Tcl::pTk 1.02 failed completely for most CPAN testers and the Travis CI builder:

http://matrix.cpantesters.org/?dist=Tcl-pTk%201.02

https://travis-ci.com/chrstphrchvz/perl-tcl-ptk/jobs/260772857#L711

However I had not observed/cannot reproduce this failure on any of my own systems, so I will mark this test as TODO in the meantime.

Test output:

t/focusMethods.t .............. 1/7 # Test 1 got: <UNDEF> (t/focusMethods.t at line 26)

# Expected: ".ent02" (initial focus on entry1 failed)

# t/focusMethods.t line 26 is: ok($mw->focusCurrent, $entry1, 'initial focus on entry1 failed');

# Test 2 got: <UNDEF> (t/focusMethods.t at line 30)

# Expected: ".ent03" (focusNext from entry1 to entry2 failed)

# t/focusMethods.t line 30 is: ok($mw->focusCurrent, $entry2, 'focusNext from entry1 to entry2 failed');

# Test 3 got: <UNDEF> (t/focusMethods.t at line 34)

# Expected: ".ent04" (focusNext from entry2 to entry3 failed)

# t/focusMethods.t line 34 is: ok($mw->focusCurrent, $entry3, 'focusNext from entry2 to entry3 failed');

# Test 4 got: <UNDEF> (t/focusMethods.t at line 38)

# Expected: ".ent03" (focusPrev from entry3 to entry2 failed)

# t/focusMethods.t line 38 is: ok($mw->focusCurrent, $entry2, 'focusPrev from entry3 to entry2 failed');

# Test 5 got: <UNDEF> (t/focusMethods.t at line 42)

# Expected: ".ent02" (focusPrev from entry2 to entry1 failed)

# t/focusMethods.t line 42 is: ok($mw->focusCurrent, $entry1, 'focusPrev from entry2 to entry1 failed');

# Test 6 got: <UNDEF> (t/focusMethods.t at line 46)

# Expected: ".ent02" (before focusFollowsMouse: failed to keep focus on entry1 while entering entry3)

# t/focusMethods.t line 46 is: ok(

# Test 7 got: <UNDEF> (t/focusMethods.t at line 56)

# Expected: ".ent04" (after focusFollowsMouse: failed to focus on entry3 by entering)

# t/focusMethods.t line 56 is: ok($mw->focusCurrent, $entry3,

t/focusMethods.t .............. Failed 7/7 subtests