VMS test and perldelta update

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020304105500.01ae4968@exchi01>

p4raw-id: //depot/perl@15005

diff --git a/ext/Encode/t/JP.t b/ext/Encode/t/JP.t
index 4a3416b..8e68ea1 100644 (file)
--- a/ext/Encode/t/JP.t
+++ b/ext/Encode/t/JP.t
@@ -76,7 +76,11 @@ while (<$src>)
  }
 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:

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 7a30b1c..e1c51fd 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -2170,6 +2170,10 @@ to 7.0.
 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 @@ There are a few known test failures, see L<perluts>.
 
 =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
 

diff --git a/t/op/taint.t b/t/op/taint.t
index b045c49..07b9f48 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -927,6 +927,10 @@ else
     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