From: John E. Malmberg [mailto:[EMAIL PROTECTED]
> I finally got a download of 2.00_03, and I have locally patched vms.c to
> fix the fstat()/Perl_cando() issue.
>
> So here are the results.
>
> I probably will not have time to investigate the failure tonight as I
> need to submit the patch to vms.c.
>
>
> ext/Compress/Zlib/t/01version.t 2 of 2 ok
> ext/Compress/Zlib/t/02zlib.t 242 of 242 ok
> ext/Compress/Zlib/t/03zlib-v1.t 351 of 351 ok
> ext/Compress/Zlib/t/04def.t 1781 of 1781 ok
> ext/Compress/Zlib/t/05examples.t 25 of 25 ok
> ext/Compress/Zlib/t/06gzsetp.t 51 of 51 ok
> ext/Compress/Zlib/t/07bufsize.t 288 of 288 ok
> ext/Compress/Zlib/t/08encoding.t 16 of 16 ok
> ext/Compress/Zlib/t/09gziphdr.t 790 of 790 ok
> ext/Compress/Zlib/t/10defhdr.t 595 of 595 ok
> ext/Compress/Zlib/t/11truncate.t 2374 of 2374 ok
> ext/Compress/Zlib/t/12any.t 63 of 63 ok
> ext/Compress/Zlib/t/13prime.t 10612 of 10612 ok
> ext/Compress/Zlib/t/14gzopen.t 212 of 212 ok
> ext/Compress/Zlib/t/15multi.t 575 of 575 pass.
>
> ext/Compress/Zlib/t/16oneshot.t fails at 1460 and dies.
> not ok 1460 - Compressed ok
> # Failed test ([-.ext.compress.zlib.t]16oneshot.t at line 729)
> # input file 't/tmpdir1/a1.tmp' does not exist
> ok 1461
> not ok 1462 - got all files
> # Failed test ([-.ext.compress.zlib.t]16oneshot.t at line 740)
> # got: '1'
> # expected: '0'
> ok 1463 - IO::Gzip::gzip - From FileGlob to Buffer files [a1]
> not ok 1464 - Compressed ok
> # Failed test ([-.ext.compress.zlib.t]16oneshot.t at line 747)
> # input file 't/tmpdir1/a1.tmp' does not exist
> buffer is undef at ../ext/compress/zlib/t/MyTestUtils.pm line 326
> main::anyUncompress('ARRAY(0xa8bc08)') called at
> [-.ext.compress.zlib.t]16oneshot.t line 752
> # Looks like you planned 2544 tests but only ran 1464.
> # Looks like your test died just after 1464.
>
> ext/Compress/Zlib/t/17isize.t Skipped.
>
> ext/Compress/Zlib/t/18lvalue.t 10 of 10 ok
> ext/Compress/Zlib/t/19destroy.t 23 of 23 ok
> ext/Compress/Zlib/t/20tied.t 731 of 732 ok
> ext/Compress/Zlib/t/21newtied.t 242 of 242 ok
> ext/Compress/Zlib/t/22merge.t 490 of 490 ok
>
> ext/Compress/Zlib/t/23misc.t 29 of 29 ok
>
> ext/Compress/Zlib/t/99pod.t skipped.
> 1..0 # Skip Test::Pod 1.00 required for testing POD
>
> ext/Compress/Zlib/t/globmapper.t 68 of 69 ok
That's looking good - we are now down to two test harnesses failing.
I wonder if the failure in t/16oneshot.t is related to the
fstat()/Perl_cando() issue you just fixed?
Here is why I suspect it may be related: I have a series of tests that make
use of a common set of test files in a test directory e.g. tmpdir1/a1.tmp.
The first test in the series passes fine, but the second fails because it
thinks the test file does not exist. The test is failing in this part of the
code
foreach my $filename (@_)
{
....
if (! -e $filename )
{
${ $self->{Error} } = "input file '$filename' does not exist";
return undef;
}
}
It isn't anything to do with $filename being an alias into @_?
Paul
___________________________________________________________
How much free photo storage do you get? Store your holiday
snaps for FREE with Yahoo! Photos http://uk.photos.yahoo.com
