[File-extattr-commits] File-Attributes-Extended/t 10-basic.t, 1.1, 1.2

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

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

Modified Files:
	10-basic.t 
Log Message:
Some cross checks

Index: 10-basic.t
===================================================================
RCS file: /cvsroot/file-extattr/File-Attributes-Extended/t/10-basic.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 10-basic.t	5 Oct 2006 21:45:12 -0000	1.1
--- 10-basic.t	5 Oct 2006 21:47:41 -0000	1.2
***************
*** 2,7 ****
  
  use strict;
! use Test::More tests => 6;
  use File::Attributes qw ':all';
  use File::Temp qw/tempfile/;
  use Cwd;
--- 2,8 ----
  
  use strict;
! use Test::More tests => 8;
  use File::Attributes qw ':all';
+ use File::ExtAttr 1.01 qw/getfattr/;
  use File::Temp qw/tempfile/;
  use Cwd;
***************
*** 19,22 ****
--- 20,25 ----
  my %attributes = get_attributes($file);
  is($attributes{type}, 'text/plain');
+ is(getfattr($file, 'type'), 'text/plain');
  is($attributes{encoding}, 'utf8');
+ is(getfattr($file, 'encoding'), 'utf8');
  is($attributes{foo}, undef);