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	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			}