Hi,
Tks for your advice.
--- PerlDiscuss - Perl Newsgroups and mailing lists
<[EMAIL PROTECTED]> wrote:
- snip -
> PATH. What you need to do now is investigate those
> tests to see why they didn't pass.
Follows are the errors found on running
sudo perl -MCPAN -e 'install Tk'
- snip -
t/dialogbox..................ok
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......................NOK 212# Test 212 got: '0
0.375' (t/entry.t at line 777)
# Expected: '0 1'
# t/entry.t line 777 is: ok(join(" ", @scrollInfo),
"0 1");
t/entry......................NOK 215# Test 215 got: '0
0.375' (t/entry.t at line 785)
# Expected: '0 1'
# t/entry.t line 785 is: ok(join(" ", @scrollInfo),
"0 1");
t/entry......................FAILED tests 180, 212,
215
Failed 3/336 tests, 99.11% okay (less 15
skipped tests: 318 okay, 94.64%)
- snip -
t/JP.........................skipped
all skipped: locale's 'iso-8859-1' cannot
represent Japanese.
t/KR.........................skipped
all skipped: locale's 'iso-8859-1' cannot
represent Korean.
t/leak.......................ok
t/list.......................ok
t/listbox....................NOK 365# Test 365 got:
'1' (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:
'1' (t/listbox.t at line 1501)
# Expected: '3'
# t/listbox.t line 1501 is: ok($lb->index(q/@5,58/),
3);
t/listbox....................NOK 375# Test 375 got:
'9' (t/listbox.t at line 1531)
# Expected: '5'
# t/listbox.t line 1531 is: ok($lb->index(q/@0,0/),
5);
t/listbox....................NOK 376# Test 376 got:
'0.2 0.3' (t/listbox.t at line 1540)
# Expected: '0.2 0.7'
# t/listbox.t line 1540 is: ok_float("@{[ $lb->yview
]}", "0.2 0.7");
t/listbox....................NOK 377# Test 377 got: 'y
0.2 0.3' (t/listbox.t at line 1541)
# Expected: 'y 0.2 0.7'
# t/listbox.t line 1541 is: ok_float($log[0], "y 0.2
0.7");
t/listbox....................NOK 378# Test 378 got:
'0.8 0.9' (t/listbox.t at line 1550)
# Expected: '0.5 1'
# t/listbox.t line 1550 is: ok_float("@{[ $lb->yview
]}", "0.5 1");
t/listbox....................NOK 379# Test 379 got: 'y
0.8 0.9' (t/listbox.t at line 1551)
# Expected: 'y 0.5 1'
# t/listbox.t line 1551 is: ok_float($log[0], "y 0.5
1");
t/listbox....................NOK 380# Test 380 got:
'0.3 0.4' (t/listbox.t at line 1561)
# Expected: '0.3 0.8'
# t/listbox.t line 1561 is: ok_float("@{[ $lb->yview
]}", "0.3 0.8");
t/listbox....................ok 390/437Use of
uninitialized value in subtraction (-) at t/li
stbox.t line 1603.
Use of uninitialized value in subtraction (-) at
t/listbox.t line 1604.
t/listbox....................NOK 391# Test 391 got: '0
0.2' (t/listbox.t at line 1611)
# Expected: '0.2 0.4'
# t/listbox.t line 1611 is: ok_float("@{[ $lb->xview
]}", "0.2 0.4");
t/listbox....................NOK 392# Test 392 got: '0
0.05' (t/listbox.t at line 1612)
# Expected: '0.5 0.75'
# t/listbox.t line 1612 is: ok_float("@{[ $lb->yview
]}", "0.5 0.75");
t/listbox....................NOK 394# Test 394 got: '0
0.05' (t/listbox.t at line 1620)
# Expected: '0 0.25'
# t/listbox.t line 1620 is: ok_float("@{[ $lb->yview
]}", "0 0.25");
t/listbox....................NOK 395# Test 395 got: '0
0.2' (t/listbox.t at line 1624)
# Expected: '0.2 0.4'
# t/listbox.t line 1624 is: ok_float("@{[ $lb->xview
]}", "0.2 0.4");
t/listbox....................NOK 396# Test 396 got:
'0,0.2' (t/listbox.t at line 1625)
# Expected: '0.2,0.4'
# t/listbox.t line 1625 is:
ok_float(join(',',$lb->xview), "0.2,0.4"); # just to
prove it
is a list
t/listbox....................NOK 397# Test 397 got: '0
0.05' (t/listbox.t at line 1626)
# Expected: '0.5 0.75'
# t/listbox.t line 1626 is: ok_float("@{[ $lb->yview
]}", "0.5 0.75");
t/listbox....................NOK 398# Test 398 got:
'0,0.05' (t/listbox.t at line 1627)
# Expected: '0.5,0.75'
# t/listbox.t line 1627 is:
ok_float(join(',',$lb->yview), "0.5,0.75"); # just to
prove it
is a list
t/listbox....................NOK 400# Test 400 got:
'0.95 1' (t/listbox.t at line 1635)
# Expected: '0.75 1'
# t/listbox.t line 1635 is: ok_float("@{[ $lb->yview
]}", "0.75 1");
t/listbox....................NOK 401# Test 401 got:
'0.8 1' (t/listbox.t at line 1638)
# Expected: '0.64 0.84'
# t/listbox.t line 1638 is: ok_float("@{[ $lb->xview
]}", "0.64 0.84");
t/listbox....................NOK 402# Test 402 got:
'0.95 1' (t/listbox.t at line 1639)
# Expected: '0.25 0.5'
# t/listbox.t line 1639 is: ok_float("@{[ $lb->yview
]}", "0.25 0.5");
t/listbox....................NOK 406# Test 406 got:
'5' (t/listbox.t at line 1656)
# Expected: '6'
# t/listbox.t line 1656 is:
skip($skip_fixed_font_test, $lb->index(q/@50,36/), 6);
t/listbox....................NOK 426# Test 426 got: 'y
0 0.333333333333333' (t/listbox.t at
line 1780)
# Expected: 'y 0 1'
# t/listbox.t line 1780 is: ok($log[0], "y 0 1");
t/listbox....................NOK 427# Test 427 got: 'y
0 0.125' (t/listbox.t at line 1781)
# Expected: 'y 0 0.625'
# t/listbox.t line 1781 is: ok_float($log[1], "y 0
0.625");
t/listbox....................FAILED tests 365-366,
375-380, 391-392, 394-398, 400-402, 406,
426-427
Failed 21/437 tests, 95.19% okay (less 4
skipped tests: 412 okay, 94.28%)
- snip -
t/photo......................ok
4/100 skipped: various reasons
- snip -
t/zzPhoto....................ok
t/zzScrolled.................NOK 66# Test 66 got:
'589x341+0+32' (t/zzScrolled.t at line 104
fail #2)
# Expected: '589x341+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 c
hanged not reset" .
t/zzScrolled.................NOK 94# Test 94 got:
'589x341+17+32' (t/zzScrolled.t at line 10
4 fail #4)
# Expected: '589x341+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
t/zzText.....................ok
t/zzTixGrid..................ok
Failed Test Stat Wstat Total Fail Failed List of
Failed
- snip -
But I don't know how to fix them. Please advise. TIA
B.R.
Stephen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
