From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 18 Dec 2005 00:16:42 +0000 (+0000)
Subject: Two test workarounds for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9e3be284fa3b373520899b5109edb0548c7d833;p=p5sagit%2Fp5-mst-13.2.git

Two test workarounds for VMS

p4raw-id: //depot/perl@26396
---

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 5e75383..db94cc3 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 082a165..a034682 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