Change 15005 by jhi@alpha on 2002/03/04 16:43:53
Subject: VMS test and perldelta update
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Mon, 04 Mar 2002 11:03:37 -0600
Message-Id: <5.1.0.14.2.20020304105500.01ae4968@exchi01>
Affected files ...
.... //depot/perl/ext/Encode/t/JP.t#5 edit
.... //depot/perl/pod/perldelta.pod#294 edit
.... //depot/perl/t/op/taint.t#46 edit
Differences ...
==== //depot/perl/ext/Encode/t/JP.t#5 (text) ====
Index: perl/ext/Encode/t/JP.t
--- perl/ext/Encode/t/JP.t.~1~ Mon Mar 4 10:00:05 2002
+++ perl/ext/Encode/t/JP.t Mon Mar 4 10:00:05 2002
@@ -76,7 +76,11 @@
}
close($dst);
close($src);
-ok(compare($utf,$ref) == 0);
+TODO:
+{
+ local $TODO = 'needs debugging on VMS' if $^O eq 'VMS';
+ ok(compare($utf,$ref) == 0);
+}
select($out);
SKIP:
==== //depot/perl/pod/perldelta.pod#294 (text) ====
Index: perl/pod/perldelta.pod
--- perl/pod/perldelta.pod.~1~ Mon Mar 4 10:00:05 2002
+++ perl/pod/perldelta.pod Mon Mar 4 10:00:05 2002
@@ -2170,6 +2170,10 @@
The C<system> function and backticks operator have improved
functionality and better error handling.
+File access tests now use current process privileges rather than the
+user's default privileges, which could sometimes result in a mismatch
+between reported access and actual access.
+
=item *
Windows
@@ -2638,9 +2642,9 @@
=head2 VMS
-There is one known test failure with a default configuration:
-
- [.run]switches..........................FAILED on test 1
+There should be no reported test failures with a default configuration,
+though there are a number of tests marked TODO that point to areas
+needing further debugging and/or porting work.
=head2 Win32
==== //depot/perl/t/op/taint.t#46 (xtext) ====
Index: perl/t/op/taint.t
--- perl/t/op/taint.t.~1~ Mon Mar 4 10:00:05 2002
+++ perl/t/op/taint.t Mon Mar 4 10:00:05 2002
@@ -927,6 +927,10 @@
eval { system { "echo" } "/arg0", "arg1" };
test 183, $@ =~ /^Insecure \$ENV/;
}
+if ($Is_VMS) {
+ for (184..203) {print "not ok $_ # TODO tainted %ENV warning occludes tainted
+arguments warning\n";}
+}
+else
{
# bug 20020208.005 plus some extras
# single arg exec/system are tests 80-83
End of Patch.
