Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 6664
Status: resolved
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: william [...] knowmad.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 804.027
Fixed in: (no value)

Attachments


Subject: Test t/font hangs over remote x
I am trying to install Tk while running X remotely through ssh forwarding. The first 16 test files work just fine. Test 9 in t/font brings up a dialog box but then hangs. Perl 5.8.3 Debian Linux (2.4.23) Tk 8.3
[guest - Fri Jun 18 08:34:31 2004]: Further details: I opened an X session on the server and reran all of the tests. The hanging test on the remote connection was #10 which generated an error. There were a few more errors as well though none are preventing me from running the PerlTK debugger (ptkdb) over a remote connection. Here's the output from all tests and details from each failure: Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t/entry.t 336 1 0.30% 180 t/font.t 13 2 15.38% 10 13 t/listbox.t 437 2 0.46% 365-366 t/entry......................NOK 180# Test 180 got: '' (t/entry.t at line 644) # Expected: '0,0.363636' # t/entry.t line 644 is: ok(join(",", map { substr($_, 0, 8) } @scrollInfo), "0,0.363636"); t/entry......................FAILED test 180 Failed 1/336 tests, 99.70% okay (less 27 skipped tests: 308 okay, 91.67%) t/font.......................ok 9/13# Test 10 got: 'nimbus roman no9 l' (t/font.t at line 93) # Expected: qr{(?i-xsm:Times)} (Value of -family) # t/font.t line 93 is: skip($skip_times, $val,qr/$expect{$key}/i,"Value of $key"); # Test 13 got: 'normal' (t/font.t at line 93 fail #4) # Expected: qr{(?i-xsm:bold)} (Value of -weight) t/font.......................FAILED tests 10, 13 Failed 2/13 tests, 84.62% okay t/listbox....................NOK 365# Test 365 got: '2' (t/listbox.t at line 1500) # Expected: '3' # t/listbox.t line 1500 is: ok($lb->index(q/@5,57/), 3); t/listbox....................NOK 366# Test 366 got: '2' (t/listbox.t at line 1501) # Expected: '3' # t/listbox.t line 1501 is: ok($lb->index(q/@5,58/), 3); t/listbox....................FAILED tests 365-366 Failed 2/437 tests, 99.54% okay (less 27 skipped tests: 408 okay, 93.36%)
[guest - Fri Jun 18 13:51:03 2004]: Show quoted text
> t/font.......................ok 9/13# Test 10 got: 'nimbus roman no9 > l' > (t/font.t at line 93) > # Expected: qr{(?i-xsm:Times)} (Value of -family) > # t/font.t line 93 is: skip($skip_times, > $val,qr/$expect{$key}/i,"Value of $key"); > # Test 13 got: 'normal' (t/font.t at line 93 fail #4) > # Expected: qr{(?i-xsm:bold)} (Value of -weight) > t/font.......................FAILED tests 10, 13
Hmm, seems your XFT / fontconfig is confusing the test. The test pattern matches the list of returned fonts for /^times$/i and only runs that test if it finds it. But when asked for Times You get nimbus. Can you run the test outside the harness - when it will print list of font families just before doing the test: cd Tk804.027 perl -Mblib t/font.t > log and send resulting log? Show quoted text
> > Failed 2/13 tests, 84.62% okay > > > t/listbox....................NOK 365# Test 365 got: '2' (t/listbox.t > at > line 1500) > # Expected: '3' > # t/listbox.t line 1500 is: ok($lb->index(q/@5,57/), 3); > t/listbox....................NOK 366# Test 366 got: '2' (t/listbox.t > at > line 1501) > # Expected: '3' > # t/listbox.t line 1501 is: ok($lb->index(q/@5,58/), 3); > t/listbox....................FAILED tests 365-366 > > Failed 2/437 tests, 99.54% okay (less 27 skipped tests: 408 okay, > 93.36%) >
From: william [...] knowmad.com
Show quoted text
> Hmm, seems your XFT / fontconfig is confusing the test. > The test pattern matches the list of returned fonts for /^times$/i > and only runs that test if it finds it. But when asked for Times > You get nimbus. > > Can you run the test outside the harness - when it will print > list of font families just before doing the test:
I've attached the log. It figures that all tests are now passing for t/font.t. Perhaps the output will be of some use. This time I got failures on tests 66 and 94 in t/zzScrolled. I've attached output from `make test` below: t/zzScrolled.................NOK 66# Test 66 got: '587x339+0+32' (t/zzScrolled.t at line 104 fail #2) # Expected: '587x339+0+0' (Sizechk: geometry has not changed not reset for -height => 24+(5)) # t/zzScrolled.t line 104 is: ok($newgeo, $oldgeo, "Sizechk: geometry has not changed not reset" . t/zzScrolled.................ok 89/94# Test 94 got: '587x339+17+32' (t/zzScrolled.t at line 104 fail #4) t/zzScrolled.................NOK 94# Expected: '587x339+0+32' (Sizechk: geometry has not changed not reset for -width => 80+(5)) t/zzScrolled.................FAILED tests 66, 94 Failed 2/94 tests, 97.87% okay I reran just the t/zzScrolled test as you instructed for t/font. However, there was no further info output. Thanks, William
Download tk_font.log
application/octet-stream 1.9k

Message body not shown because it is not plain text.

On 2004-06-18 08:34:31, guest wrote: Show quoted text
> I am trying to install Tk while running X remotely through ssh > forwarding. The first 16 test files work just fine. Test 9 in t/font > brings up a dialog box but then hangs. > > Perl 5.8.3 > Debian Linux (2.4.23) > Tk 8.3
There were a lot of changes to t/font.t and font-related code in Perl/Tk, so I assume that this is not an issue anymore. Feel free to reopen the ticket if you still see problems here with recent Perl/Tk. Regards, Slaven