Paul Marquess wrote:
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.
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.
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?
It took that fix to get the test running this well. I will have to see
if I can simplify the test down to the failing case as 1459 tests before
that work.
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 @_?
Probably not. I think I need to stop it in the debugger at the point of
failure and see if the file is really there or not. If it is not there,
then I need to find out what happened to it. If it is there, then I
have to find out why it is not seen.
-John
[EMAIL PROTECTED]
Personal Opinion Only
