Two test workarounds for VMS

p4raw-id: //depot/perl@26396

2 files changed, 12 insertions, 8 deletions

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 5e7538355c..db94cc3adf 100755
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -108,10 +108,14 @@ for my $cross_partition_test (0..1) {
   open(R, "file-$$") or die; $foo = <R>; close(R);
   is $foo, "ok\n";
 
-  my $dest_mtime = (stat("file-$$"))[9];
-  is $dest_mtime, $mtime,
-    "mtime preserved by copy()". 
-    ($cross_partition_test ? " while testing cross-partition" : "");
+  TODO: {
+    local $TODO = 'mtime only preserved on ODS-5 with POSIX dates and DECC$EFS_FILE_TIMESTAMPS enabled' if $^O eq 'VMS';
+
+    my $dest_mtime = (stat("file-$$"))[9];
+    is $dest_mtime, $mtime,
+      "mtime preserved by copy()". 
+      ($cross_partition_test ? " while testing cross-partition" : "");
+  }
 
   copy "file-$$", "lib";
   open(R, "lib/file-$$") or die; $foo = <R>; close(R);
diff --git a/t/op/goto.t b/t/op/goto.t
index 082a165574..a034682ec1 100755
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -416,16 +416,16 @@ a32039();
     my $r = runperl(
 		stderr => 1,
 		prog =>
-'for ($_=0;$_<3;$_++){A: if($_==1){next} if($_==2){$_++;goto A}}print qq(ok)'
+'for ($_=0;$_<3;$_++){A: if($_==1){next} if($_==2){$_++;goto A}}print qq(ok\n)'
     );
-    is($r, "ok", 'next and goto');
+    is($r, "ok\n", 'next and goto');
 
     $r = runperl(
 		stderr => 1,
 		prog =>
-'for ($_=0;$_<3;$_++){A: if($_==1){$_++;redo} if($_==2){$_++;goto A}}print qq(ok)'
+'for ($_=0;$_<3;$_++){A: if($_==1){$_++;redo} if($_==2){$_++;goto A}}print qq(ok\n)'
     );
-    is($r, "ok", 'redo and goto');
+    is($r, "ok\n", 'redo and goto');
 }
 
 # goto &foo not allowed in evals