xattr/test/xattr.t

#!/usr/bin/perl
use test::helper qw($_real $_point);
use Test::More;
plan tests => 4;
use English;

chdir($_real);
SKIP: {
        skip('Need root to test xattr', 4) unless ($UID == 0);
        
        system('echo foo > xattr');
        ok( -e 'xattr', 'created xattr' );
        system('attr -s attr -V val xattr');
        ok(open(FILE, 'attr -g attr xattr |'), 'open');
        my ($data) = <FILE>;
        ok($data, "got $data");
        diag "attr = $data";
        unlink("xattr");
        ok( ! -e 'xattr', 'cleanup' );
}
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	}