Subject: | listbox.t fails in make test on fedora with KDE desktop |
Only the listbox test fails. Tried under Fedora 5 and 6. Relevant
output of build on FC 5 with perl 5.8.8:
# Tk platform: unix
# window manager: KWin
# version: <unknown>
# XFT: no
t/listbox....................NOK 425/539
# Failed test at t/listbox.t line 1587.
# got: '1'
# expected: '3'
t/listbox....................NOK 426/539
# Failed test at t/listbox.t line 1588.
# got: '1'
# expected: '3'
t/listbox....................NOK 435/539
# Failed test at t/listbox.t line 1619.
# got: '9'
# expected: '5'
t/listbox....................NOK 436/539
# Failed test at t/listbox.t line 1628.
# got: '0.2 0.3'
# expected: '0.2 0.7'
t/listbox....................NOK 437/539
# Failed test at t/listbox.t line 1629.
# got: 'y 0.2 0.3'
# expected: 'y 0.2 0.7'
t/listbox....................NOK 438/539
# Failed test at t/listbox.t line 1638.
# got: '0.8 0.9'
# expected: '0.5 1'
t/listbox....................NOK 439/539
# Failed test at t/listbox.t line 1639.
# got: 'y 0.8 0.9'
# expected: 'y 0.5 1'
t/listbox....................NOK 440/539
# Failed test at t/listbox.t line 1649.
# got: '0.3 0.4'
# expected: '0.3 0.8'
Use of uninitialized value in subtraction (-) at t/listbox.t line 1691.
Use of uninitialized value in subtraction (-) at t/listbox.t line 1692.
t/listbox....................NOK 451/539
# Failed test at t/listbox.t line 1699.
# got: '0 0.2'
# expected: '0.2 0.4'
t/listbox....................NOK 452/539
# Failed test at t/listbox.t line 1700.
# got: '0 0.05'
# expected: '0.5 0.75'
t/listbox....................NOK 454/539
# Failed test at t/listbox.t line 1708.
# got: '0 0.05'
# expected: '0 0.25'
t/listbox....................NOK 455/539
# Failed test at t/listbox.t line 1712.
# got: '0 0.2'
# expected: '0.2 0.4'
t/listbox....................NOK 456/539
# Failed test at t/listbox.t line 1713.
# got: '0,0.2'
# expected: '0.2,0.4'
t/listbox....................NOK 457/539
# Failed test at t/listbox.t line 1714.
# got: '0 0.05'
# expected: '0.5 0.75'
t/listbox....................NOK 458/539
# Failed test at t/listbox.t line 1715.
# got: '0,0.05'
# expected: '0.5,0.75'
t/listbox....................NOK 460/539
# Failed test at t/listbox.t line 1723.
# got: '0.95 1'
# expected: '0.75 1'
t/listbox....................NOK 461/539
# Failed test at t/listbox.t line 1726.
# got: '0.8 1'
# expected: '0.64 0.84'
t/listbox....................NOK 462/539
# Failed test at t/listbox.t line 1727.
# got: '0.95 1'
# expected: '0.25 0.5'
t/listbox....................NOK 466/539
# Failed test at t/listbox.t line 1746.
# got: '5'
# expected: '6'
t/listbox....................NOK 486/539
# Failed test at t/listbox.t line 1871.
# got: 'y 0 0.333333333333333'
# expected: 'y 0 1'
t/listbox....................NOK 487/539
# Failed test at t/listbox.t line 1872.
# got: 'y 0 0.125'
# expected: 'y 0 0.625'
t/listbox....................ok 495/539# Looks like you failed 21 tests
of 539.
t/listbox....................dubious
Test returned status 21 (wstat 5376, 0x1500)
DIED. FAILED tests 425-426, 435-440, 451-452, 454-458, 460-462, 466, 486-487
Failed 21/539 tests, 96.10% okay (less 26 skipped tests: 492
okay, 91.28%)
Adding a sleep to the test just after line 1588 shows that no characters
are displayed in the listbox. When I coded up an emulation of that test
it displays correctly, but printed 2 instead of 3 for both lines. The
test code is attached.
Subject: | lbtest.pl |
#!/usr/bin/perl -w
use Tk;
use Tk::Listbox;
my $mw = MainWindow->new( -title => "Listbox Test");
$mw->optionAdd("*Listbox.font", 'Helvetica -12 bold'); # 2 2
# $mw->optionAdd("*Listbox.font", '{Adobe Helvetica} -12 bold'); # 2 2
# my $fixed = "-adobe-courier-medium-r-normal--12-120-75-75-m-*-iso8859-1";
$mw->optionAdd("*Listbox.font", $fixed); # 2 3 on fc5 but 3 3 on fc6
$mw->optionAdd("*Listbox.borderWidth",2);
$mw->optionAdd("*Listbox.highlightThickness",2);
my $lb = $mw->Listbox->pack;
$lb->delete(qw/0 end/);
$lb->insert(qw/0 el0 el1 el2 el3 el4 el5 el6 el7 el8 el9 el10 el11/);
$lb->update;
print "Tk version $Tk::VERSION\n";
print "Listbox version $Tk::Listbox::VERSION\n";
print "Line 1587 result is: ",$lb->index(q/@5,57/)," expect 3\n";
print "Line 1587 result is: ",$lb->index(q/@5,58/)," expect 3\n";
# loop so we can see what this should look like
MainLoop;