Parent Directory | Revision Log
first step to make XATTR_CREATE and XATTR_REPLACE to C so that we have correct constants from include files
1 | #!/usr/bin/perl |
2 | use test::helper qw($_real $_point); |
3 | use Test::More; |
4 | plan tests => 4; |
5 | use English; |
6 | |
7 | chdir($_real); |
8 | SKIP: { |
9 | skip('Need root to test xattr', 4) unless ($UID == 0); |
10 | |
11 | system('echo foo > xattr'); |
12 | ok( -e 'xattr', 'created xattr' ); |
13 | system('attr -s attr -V val xattr'); |
14 | ok(open(FILE, 'attr -g attr xattr |'), 'open'); |
15 | my ($data) = <FILE>; |
16 | ok($data, "got $data"); |
17 | diag "attr = $data"; |
18 | unlink("xattr"); |
19 | ok( ! -e 'xattr', 'cleanup' ); |
20 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |