[File-extattr-commits] File-ExtAttr/t 20tie-basic.t,1.2,1.3

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

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

Modified Files:
	20tie-basic.t 
Log Message:
Slightly more thorough testing of File::ExtAttr::Tie

Index: 20tie-basic.t
===================================================================
RCS file: /cvsroot/file-extattr/File-ExtAttr/t/20tie-basic.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 20tie-basic.t	27 May 2006 11:49:25 -0000	1.2
--- 20tie-basic.t	15 Aug 2006 09:13:18 -0000	1.3
***************
*** 2,6 ****
  
  use strict;
! use Test::More tests => 5;
  use File::Temp qw(tempfile);
  use File::ExtAttr::Tie;
--- 2,6 ----
  
  use strict;
! use Test::More tests => 12;
  use File::Temp qw(tempfile);
  use File::ExtAttr::Tie;
***************
*** 21,41 ****
  ok(scalar(@ks) == 0);
  
! # Check that creation works.
! my $k = 'user.foo';
! my $v = '123';
  
! $extattr{$k} = $v;
! is(getfattr($filename, "$k"), $v);
  
! # Check that updating works.
! $extattr{$k} = "$v$v";
! is(getfattr($filename, "$k"), "$v$v");
  
! $extattr{$k} = $v;
! is(getfattr($filename, "$k"), $v);
  
! # Check that deletion works.
! delete $extattr{$k};
! is(getfattr($filename, "$k"), undef);
  
  END {unlink $filename if $filename};
--- 21,63 ----
  ok(scalar(@ks) == 0);
  
! # Test multiple attributes.
! my %test_attrs = ( 'user.foo' => '123', 'user.bar' => '456' );
! my $k;
  
! foreach $k (sort(keys(%test_attrs)))
! {
!     my $v = $test_attrs{$k};
  
!     # Check that creation works.
!     $extattr{$k} = $v;
!     is(getfattr($filename, "$k"), $v);
  
!     # Check that updating works.
!     $extattr{$k} = "$v$v";
!     is(getfattr($filename, "$k"), "$v$v");
  
!     $extattr{$k} = $v;
!     is(getfattr($filename, "$k"), $v);
! 
!     # 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(getfattr($filename, "$k"), $v);
! }
! 
! # 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";
  
  END {unlink $filename if $filename};