Skip Menu |
 

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 81281
Status: open
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: SMALLPOND [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 804.030
Fixed in: (no value)



Subject: make test failure in listbox under KDE
Download (untitled) / with headers
text/plain 1014b
Error during make test t/listbox.t .................. 1/537 # Failed test at t/listbox.t line 741. # got: '0' # expected: '1' t/listbox.t .................. 318/537 # Looks like you failed 1 test of 537. t/listbox.t .................. Dubious, test returned 1 (wstat 256, 0x100) listbox.t contents: 737: is($lb->index('@0,0'), 13); 738: 739: mkPartial(); 740: $partial_lb->see(4); 741: is($partial_lb->index('@0,0'), 1); 742: 743: eval { $lb->selection }; Stopping at that test shows that $partial_lb has 5 lines visible, but is not scrolled to the correct place. Environment: Perl 5.12.4 Tk 804.030+ from github Nov 16, 2012 Distro Fedora 15 WM KDE Kwin 4.6.5 Note: If I add an update like below then the test passes: diff --git a/t/listbox.t b/t/listbox.t index dd8b236..ee39098 100644 --- a/t/listbox.t +++ b/t/listbox.t @@ -738,6 +738,7 @@ is($lb->index('@0,0'), 13); mkPartial(); $partial_lb->see(4); +$partial_top->update; is($partial_lb->index('@0,0'), 1);
Download (untitled) / with headers
text/plain 147b
Hello, can you try out the attached script (the test case from t/listbox.t with wmTracing turned on) and send me the output? Regards, Slaven
Subject: lb.pl
Download lb.pl
text/x-perl 709b
#!/usr/bin/perl -w use strict; use Tk; use Test::More 'no_plan'; my $mw = tkinit; $mw->wmTracing(1); $mw->geometry('+0+0'); my $lb = $mw->Listbox(-width => 30, -height => 5); $lb->pack('-expand',1,'-fill','both'); $lb->insert('end','one','two','three','four','five','six','seven', 'eight','nine','ten','eleven','twelve','thirteen', 'fourteen','fifteen'); $mw->update; my $geom = $mw->geometry; my($width, $height) = $geom =~ /(\d+)x(\d+)/; diag "Old geometry ($width,$height)"; $mw->geometry($width . "x" . ($height-3)); $mw->update; diag $lb->get(4); { diag "wait 1s"; my $x; $lb->after(1000, sub { $x = 1 }); $lb->waitVariable(\$x); } # delay $lb->see(4); is $lb->index('@0,0'), 1; __END__
Here's the output from perl lb.pl >lb.out 2>&1
Subject: lb.out
Download lb.out
application/octet-stream 1.5k

Message body not shown because it is not plain text.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.