view release on metacpan or  search on metacpan

t/chflags.t  view on Meta::CPAN

#
# $Id: chflags.t,v 1.22 2012/08/21 10:06:12 dankogai Exp $
#
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 5;
use strict;
my $Debug = 0;

use BSD::stat;
use File::Copy;

my $dummy = $0; $dummy =~ s,([^/]+)$,dummy,o;
copy($0, $dummy) or die "copy $0 -> $dummy failed!";
SKIP:{
    skip 'chflags() not supported', 5 unless chflags(UF_IMMUTABLE, $dummy);
    ok chflags(UF_IMMUTABLE, $dummy), "chflags(UF_IMMUTABLE, '$dummy')";
    is lstat($dummy)->flags, UF_IMMUTABLE,  "lstat('$dummy')->flags";
    ok !unlink($dummy), "unlink('$dummy') must fail";
    $Debug and warn $!;
    ok chflags(0, $dummy), "chflags(0, '$dummy')";
    ok unlink($dummy),     "unlink('$dummy') must work now";
}
unlink $dummy;