Subject: | Test 10 Fails with libjpeg7 |
This appears similar in nature to a previous bug, but it seems they've
had the mistake of upgrading their libjpeg and their system libgd is
still old and built against the previous version.
IT appears version 7 has changed the size of the chunk somewhat, and
after inserting some code in the test to diagnose it:
$fname = "$file-".++$counter;
}
if (! $ok ){
print "# Got " . length ( $imageData ) . " Expected: " . length(
$regressdata ) . "\n";
my $i = 0;
while( $i < length( $imageData ) && $i < length( $regressdata ) ){
if( substr( $imageData, $i, 1 ) ne substr( $regressdata,
$i, 1 ) ){
print "# Diff at offset $i\n";
last;
}
$i++;
}
}
print $ok ? "ok $testNo" : "not ok $testNo","\n";
it emits as follows:
# prove -bvr
./t/GD.t ........
1..12
ok 1
ok 2
Testing using png support.
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8 # Skip, FreeType changes too frequently to be testable
ok 9
# Got 2298 Expected: 2521
# Diff at offset 44
not ok 10
ok 11
ok 12
Failed 1/12 subtests
(less 1 skipped subtest: 10 okay)
./t/Polyline.t ..
1..1
# Running under perl version 5.010001 for linux
# Current time local: Thu Aug 27 14:54:51 2009
# Current time GMT: Thu Aug 27 02:54:51 2009
# Using Test.pm version 1.25_02
ok 1
ok
Test Summary Report
-------------------
./t/GD.t (Wstat: 0 Tests: 12 Failed: 1)
Failed test: 10
Files=2, Tests=13, 0 wallclock secs ( 0.04 usr 0.01 sys + 0.13 cusr
0.02 csys = 0.20 CPU)
Result: FAIL
Thank you for this module, and I look forward to this test passing :)