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 | dpavlin | 115 | #!/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 |