This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Two test workarounds for VMS
authorCraig A. Berry <craigberry@mac.com>
Sun, 18 Dec 2005 00:16:42 +0000 (00:16 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sun, 18 Dec 2005 00:16:42 +0000 (00:16 +0000)
p4raw-id: //depot/perl@26396

lib/File/Copy.t
t/op/goto.t

index 5e75383..db94cc3 100755 (executable)
@@ -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);
index 082a165..a034682 100755 (executable)
@@ -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