# 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: $!";
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';