file-extattr-commits

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

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

Modified Files:
	20tie-basic.t 
Added Files:
	22tie-nonuser.t 
Log Message:
Make the tied hash namespace-aware

--- NEW FILE: 22tie-nonuser.t ---
#!perl -T -w

use strict;
use Test::More tests => 20;
use File::Temp qw(tempfile);
use File::ExtAttr::Tie;
use File::ExtAttr qw(getfattr);

# Snaffle away the warnings for later analysis.
my $warning;
$SIG{'__WARN__'} = sub { $warning = $_[0] };

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

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

my %extattr;
my @ks;

tie %extattr, 'File::ExtAttr::Tie', $filename, { namespace => 'nonuser' }; # ok()?

# Check there are no user extattrs.
@ks = keys(%extattr);
ok(scalar(@ks) == 0);

# Test multiple attributes.
my %test_attrs = ( 'foo' => '123', 'bar' => '456' );
my $k;

foreach $k (sort(keys(%test_attrs)))
{
    my $v = $test_attrs{$k};

    # Check that creation works.
    $extattr{$k} = $v;
    is ($warning =~ /(Operation not supported|No such file or directory|Attribute not found)/, 1);
    is(getfattr($filename, "$k"), undef);

    # Check that updating works.
    $extattr{$k} = "$v$v";
    is ($warning =~ /(Operation not supported|No such file or directory|Attribute not found)/, 1);
    is(getfattr($filename, "$k"), undef);

    $extattr{$k} = $v;
    is ($warning =~ /(Operation not supported|No such file or directory|Attribute not found)/, 1);
    is(getfattr($filename, "$k"), undef);

    # Check that deletion works.
    delete $extattr{$k};
    is(getfattr($filename, "$k"), undef);
}

# Recreate the keys and check that they're all in the hash.

foreach $k (sort(keys(%test_attrs)))
{
    my $v = $test_attrs{$k};

    # Check that creation works.
    $extattr{$k} = $v;
    is ($warning =~ /(Operation not supported|No such file or directory|Attribute not found)/, 1);
    is(getfattr($filename, "$k"), undef);
}

# Check there are only our extattrs.
@ks = keys(%extattr);
ok(scalar(@ks) == 0);
print '# '.join(' ', @ks)."\n";

END {unlink $filename if $filename};

Index: 20tie-basic.t
===================================================================
RCS file: /cvsroot/file-extattr/File-ExtAttr/t/20tie-basic.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 20tie-basic.t	1 Oct 2006 11:17:56 -0000	1.5
--- 20tie-basic.t	2 Oct 2006 20:55:42 -0000	1.6
***************
*** 17,22 ****
  tie %extattr, 'File::ExtAttr::Tie', $filename; # ok()?
  
! # Check there are no user extattrs; ignore SELinux security extattrs.
! @ks = grep { !/^security\./ } keys(%extattr);
  ok(scalar(@ks) == 0);
  
--- 17,22 ----
  tie %extattr, 'File::ExtAttr::Tie', $filename; # ok()?
  
! # Check there are no user extattrs.
! @ks = keys(%extattr);
  ok(scalar(@ks) == 0);
  
***************
*** 56,61 ****
  }
  
! # Check there are only our extattrs; ignore SELinux security extattrs.
! @ks = grep { !/^security\./ } keys(%extattr);
  ok(scalar(@ks) == scalar(keys(%test_attrs)));
  print '# '.join(' ', @ks)."\n";
--- 56,61 ----
  }
  
! # Check there are only our extattrs.
! @ks = keys(%extattr);
  ok(scalar(@ks) == scalar(keys(%test_attrs)));
  print '# '.join(' ', @ks)."\n";