On Sat, Sep 22, 2001 at 01:17:18PM -0500, Craig A. Berry wrote: > Dunno about OS/390 (try the perl-mvs list), but here's the list I got > with perl@12088, Compaq C V6.4-005 on OpenVMS Alpha V7.3: > > [-.ext.list.util.t]tainted..............FAILED on test 3 > [-.lib.extutils]manifest................FAILED on test 5 > [-.lib.file.find.t]taint................FAILED on test 18 > [-.lib.test.simple.t]todo...............FAILED on test 1 > [.lib]vmsish............................FAILED on test 13 > [.op]chdir..............................FAILED on test 1 > [.run]kill_perl.........................FAILED on test 2 > Failed 7/443 tests, 93.00% okay. > > Most of these will be difficult or impossible to debug without > access to a VMS system.
Oh ye of little faith. Give me the verbose output of each, please. There should be a good deal of diagnostic info in there. > manifest.t and chdir.t assume case-preserving file systems. "assume case-preserving file systems"... buh. Ok, trying to wrap my brane around that... what does that mean? Could open(FILE, ">Elite"); create file called 'eLiTe'? I presume there's a method to this madness? For chdir.t, that might be fixed by #12124. manifest.t... we can probably fix it if I can see the test output. > kill_perl.t runs fine by itself but not in the test suite. Run vms/test.com on kill_perl.t with the -v flag set and show me the verbose output. Did t/op/misc.t used to fail? If so, then it has something to do with the test names on the end confusing test.com. Ok, taint.t. The problem is either inside tainted() or a problem with how it's picking it's value. I don't think the problem is that %ENV is not tainted. So let's poke around. Run your moral equivalent of this, please: #!./perl -Tw use Devel::Peek; my $key = (keys %ENV)[0]; my $var = $ENV{$key}; print "$key -> $var\n"; print Dump $var; and this #!./perl -Tw use Devel::Peek; my $var = (values %ENV)[0]; print "$var\n"; print Dump $var; and, finally, this: #!./perl -Tw use Scalar::Util qw(tainted); my $var = (values %ENV)[0]; print "ok\n" if tainted($var); lib/Test/Simple/t/todo.t failing is probably just a minor bug in vms/test.com against inline # TODO's with names. That's easy. Try this: --- vms/test.com 2001/09/22 21:45:52 1.1 +++ vms/test.com 2001/09/22 21:46:19 @@ -201,7 +201,7 @@ next if /^\s*$/; - if (/^(not )?ok (\d+)(\s*#.*)?/ && + if (/^(not )?ok (\d+)[^#]*(\s*#.*)?/ && $2 == $next) { my($not, $num, $extra) = ($1, $2, $3); PS Could you please, please, please, take a swing at getting Perl installed on the OpenVMS Compaq testdrive account? This will at least allow us to run things on VMS without having to bug you. I'm posting information about it here: http://www.pobox.com/~schwern/cgi-bin/perl-qa-wiki.cgi?CompaqTestDrive -- Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/ Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One Home of da bomb