[File-extattr-commits] File-ExtAttr/t 31nsmultiple.t,NONE,1.1

[Richard D. <ric...@us...>]

Update of /cvsroot/file-extattr/File-ExtAttr/t
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv12304/t

Added Files:
	31nsmultiple.t 
Log Message:
Solaris support for listfattrns

--- NEW FILE: 31nsmultiple.t ---
#!perl -T -w

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Linux-xattr.t'

##########################

# change 'tests => 2' to 'tests => last_test_to_print';

use strict;
use Test::More tests => 26;
use File::Temp qw(tempfile);
use File::ExtAttr qw(setfattr getfattr delfattr listfattrns);
use IO::File;

my $TESTDIR = ($ENV{ATTR_TEST_DIR} || '.');
my ($fh, $filename) = tempfile( DIR => $TESTDIR );

close $fh || die "can't close $filename $!";

#todo: try wierd characters in here?
#     try unicode?
my $key = "alskdfjadf2340zsdflksjdfa09eralsdkfjaldkjsldkfj";
my $val = "ZZZadlf03948alsdjfaslfjaoweir12l34kealfkjalskdfas90d8fajdlfkj./.,f";

my $key2 = $key.'2';
my $key3 = $key.'3';

my @ns;

##########################
#  Filename-based tests  #
##########################

print "# using $filename\n";

#for (1..30000) { #checking memory leaks

   #will die if xattr stuff doesn't work at all
   setfattr($filename, "$key", $val, { namespace => 'user' })
     || die "setfattr failed on filename $filename: $!"; 

   #set it
   is (setfattr($filename, "$key", $val, { namespace => 'user' }), 1);

   #read it back
   is (getfattr($filename, "$key", { namespace => 'user' }), $val);

   #set another
   is (setfattr($filename, "$key2", $val, { namespace => 'user' }), 1);

   #read it back
   is (getfattr($filename, "$key2", { namespace => 'user' }), $val);

   #set yet another
   is (setfattr($filename, "$key3", $val, { namespace => 'user' }), 1);

   #read it back
   is (getfattr($filename, "$key3", { namespace => 'user' }), $val);

   #check user namespace exists now
   @ns = listfattrns($filename);
   is (grep(/^user$/, @ns), 1);

   #delete them
   ok (delfattr($filename, "$key", { namespace => 'user' }));
   ok (delfattr($filename, "$key2", { namespace => 'user' }));
   ok (delfattr($filename, "$key3", { namespace => 'user' }));

   #check that they're gone
   is (getfattr($filename, "$key", { namespace => 'user' }), undef);
   is (getfattr($filename, "$key2", { namespace => 'user' }), undef);
   is (getfattr($filename, "$key3", { namespace => 'user' }), undef);

   #check user namespace doesn't exist now
   @ns = listfattrns($filename);
   is (grep(/^user$/, @ns), 0);
#}
#print STDERR "done\n";
#<STDIN>;

##########################
# IO::Handle-based tests #
##########################

$fh = new IO::File("<$filename") || die "Unable to open $filename";

print "# using file descriptor ".$fh->fileno()."\n";

#for (1..30000) { #checking memory leaks

   #will die if xattr stuff doesn't work at all
   setfattr($fh, "$key", $val, { namespace => 'user' })
     || die "setfattr failed on file descriptor ".$fh->fileno().": $!"; 

   #set it
   is (setfattr($fh, "$key", $val, { namespace => 'user' }), 1);

   #read it back
   is (getfattr($fh, "$key", { namespace => 'user' }), $val);

   #set another
   is (setfattr($fh, "$key2", $val, { namespace => 'user' }), 1);

   #read it back
   is (getfattr($fh, "$key2", { namespace => 'user' }), $val);

   #set yet another
   is (setfattr($fh, "$key3", $val, { namespace => 'user' }), 1);

   #read it back
   is (getfattr($fh, "$key3", { namespace => 'user' }), $val);

   #check user namespace exists now
   @ns = listfattrns($fh);
   is (grep(/^user$/, @ns), 1);

   #delete them
   ok (delfattr($fh, "$key", { namespace => 'user' }));
   ok (delfattr($fh, "$key2", { namespace => 'user' }));
   ok (delfattr($fh, "$key3", { namespace => 'user' }));

   #check that it's gone
   is (getfattr($fh, "$key", { namespace => 'user' }), undef);

   #check user namespace doesn't exist now
   @ns = listfattrns($fh);
   is (grep(/^user$/, @ns), 0);
#}
#print STDERR "done\n";
#<STDIN>;

END {unlink $filename if $filename};