1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#!perl -w
# -*-perl-*-
# Test that creating non-"user."-prefixed attributes fails.
# XXX: Probably Linux-specific
use strict;
use Test::More;
BEGIN {
my $tlib = $0;
$tlib =~ s|/[^/]*$|/lib|;
push(@INC, $tlib);
}
use t::Support;
if (t::Support::should_skip()) {
plan skip_all => 'Tests unsupported on this OS/filesystem';
} else {
plan tests => 8;
}
use File::Temp qw(tempfile);
use File::Path;
use File::ExtAttr qw(setfattr getfattr delfattr);
my $TESTDIR = ($ENV{ATTR_TEST_DIR} || '.');
my ($fh, $filename) = tempfile( DIR => $TESTDIR );
close $fh or die "can't close $filename $!";
# Create a directory.
my $dirname = "$filename.dir";
eval { mkpath($dirname); };
if ($@) {
warn "Couldn't create $dirname: $@";
}
#todo: try wierd characters in here?
# try unicode?
my $key = "alskdfjadf2340zsdflksjdfa09eralsdkfjaldkjsldkfj";
my $val = "ZZZadlf03948alsdjfaslfjaoweir12l34kealfkjalskdfas90d8fajdlfkj./.,f";
foreach ( $filename, $dirname ) {
print "# using $_\n";
#set it
setfattr($_, "$key", $val, { namespace => 'nonuser' });
my $err = int $!;
is ($err, $!{EOPNOTSUPP});
#read it back
is (getfattr($_, "$key", { namespace => 'nonuser' }), undef);
#delete it
delfattr($_, "$key", { namespace => 'nonuser' });
$err = int $!;
is ($err, $!{EOPNOTSUPP});
#check that it's gone
is (getfattr($_, "$key", { namespace => 'nonuser' }), undef);
}
END {
unlink $filename if $filename;
rmdir $dirname if $dirname;
};
|
