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
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);
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
#!/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.