Test tweaks for VMS from Craig Berry.

[perl5.git] / lib / filetest.t

diff --git a/lib/filetest.t b/lib/filetest.t
index c206f51..32f286a 100644 (file)
--- a/lib/filetest.t
+++ b/lib/filetest.t
@@ -55,9 +55,12 @@ SKIP: {
     # This works for systems with /usr/bin/chflags (i.e. BSD4.4 systems).
     my $chflags = "/usr/bin/chflags";
     my $tstfile = "filetest.tst";
-    skip("No $chflags available", 2) if !-x $chflags;
+    skip("No $chflags available", 4) if !-x $chflags;
 
- SKIP: {
+    skip("Test does not work on OpenBSD and BSD/OS", 4)
+       if $^O =~ /^(?:openbsd|bsdos)$/;
+
+  SKIP: {
        eval {
            if (!-e $tstfile) {
                open(T, ">$tstfile") or die "Can't create $tstfile: $!";
@@ -66,7 +69,7 @@ SKIP: {
            system($chflags, "uchg", $tstfile);
            die "Can't exec $chflags uchg" if $? != 0;
        };
-       skip("Errors in test using chflags: $@", 2) if $@;
+       skip("Errors in test using chflags: $@", 4) if $@;
 
        {
            use filetest 'access';