VMS test and perldelta update
authorCraig A. Berry <craigberry@mac.com>
Mon, 4 Mar 2002 11:03:37 +0000 (05:03 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Mar 2002 16:43:53 +0000 (16:43 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020304105500.01ae4968@exchi01>

p4raw-id: //depot/perl@15005

ext/Encode/t/JP.t
pod/perldelta.pod
t/op/taint.t

index 4a3416b..8e68ea1 100644 (file)
@@ -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:
index 7a30b1c..e1c51fd 100644 (file)
@@ -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
 
index b045c49..07b9f48 100755 (executable)
@@ -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