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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
#!perl -w
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 => 24;
}
use File::Temp qw(tempfile);
use File::Path;
use File::ExtAttr::Tie;
use File::ExtAttr qw(getfattr);
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: $@";
}
foreach ( $filename, $dirname ) {
print "# using $_\n";
my %extattr;
my @ks;
tie %extattr, 'File::ExtAttr::Tie', $_; # ok()?
# Check there are no user extattrs.
@ks = keys(%extattr);
@ks = t::Support::filter_system_attrs(@ks);
ok(scalar(@ks) == 0);
# Test multiple attributes.
my %test_attrs = ( 'foo' => '123', 'bar' => '456' );
my $k;
foreach $k (sort(keys(%test_attrs)))
{
my $v = $test_attrs{$k};
# Check that creation works.
$extattr{$k} = $v;
is(getfattr($_, "$k"), $v);
# Check that updating works.
$extattr{$k} = "$v$v";
is(getfattr($_, "$k"), "$v$v");
$extattr{$k} = $v;
is(getfattr($_, "$k"), $v);
# Check that deletion works.
delete $extattr{$k};
is(getfattr($_, "$k"), undef);
}
# Recreate the keys and check that they're all in the hash.
foreach $k (sort(keys(%test_attrs)))
{
my $v = $test_attrs{$k};
# Check that creation works.
$extattr{$k} = $v;
is(getfattr($_, "$k"), $v);
}
# Check there are only our extattrs.
@ks = keys(%extattr);
@ks = t::Support::filter_system_attrs(@ks);
ok(scalar(@ks) == scalar(keys(%test_attrs)));
print '# '.join(' ', @ks)."\n";
}
END {
unlink $filename if $filename;
rmdir $dirname if $dirname;
};
|
