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

Reply via email to