[File-extattr-commits] File-ExtAttr/t/lib/t Support.pm,1.2,1.3

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

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

Modified Files:
	Support.pm 
Log Message:
Update Solaris layer to use new error reporting convention.
Ignore SUNWattr_r[ow] system extensible attributes on (Open)Solaris.
Added doc ref to Solaris system extensible attributes.
Test listfattr() on a closed file.


Index: Support.pm
===================================================================
RCS file: /cvsroot/file-extattr/File-ExtAttr/t/lib/t/Support.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Support.pm	6 Apr 2008 09:21:27 -0000	1.2
--- Support.pm	19 Jul 2008 09:55:15 -0000	1.3
***************
*** 3,6 ****
--- 3,7 ----
  use strict;
  use Config;
+ use File::ExtAttr qw/listfattr/;
  
  sub should_skip {
***************
*** 15,21 ****
  }
  
! # XXX: Write a function to return expected failure case for missing
! # attribute/etc. depending on platform.
! #/(Operation not supported|No such file or directory|Attribute not found)/
  
  1;
--- 16,48 ----
  }
  
! sub filter_system_attrs
! {
!   my @attrs = @_;
! 
!   if ($^O eq 'solaris')
!   {
!     # Filter out container for extensible system attributes on Solaris.
!     @attrs = grep { ! /^SUNWattr_r[ow]$/ } @attrs;
!   }
!   return @attrs;
! }
! 
! # Check to see whether the file has unremovable system attributes.
! sub has_system_attrs
! {
!   my ($h) = @_;
!   my $ret = 0;
! 
!   if ($^O eq 'solaris')
!   {
!     my @attrs = listfattr($h);
!     if (scalar(grep { /^SUNWattr_r[ow]$/ } @attrs) > 0)
!     {
!       $ret = 1;
!     }
!   }
! 
!   return $ret;
! }
  
  1;