IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 4, 2007, 4:25:09 PM (19 years ago)
Author:
jhoblitt
Message:

add/fix xattr tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Nebulous/t/04_server_replicate_object.t

    r13173 r13273  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 04_server_replicate_object.t,v 1.8 2007-05-03 01:44:24 jhoblitt Exp $
     5# $Id: 04_server_replicate_object.t,v 1.9 2007-05-05 02:25:09 jhoblitt Exp $
    66
    77use strict;
    88use warnings FATAL => qw( all );
    99
    10 use Test::More tests => 12;
     10use Test::More tests => 16;
    1111
    1212use lib qw( ./t ./lib );
    1313
     14use File::ExtAttr qw( getfattr );
    1415use Nebulous::Server;
    1516use Nebulous::Util qw( :standard );
     
    3435    ok(-e $path, "file exists");
    3536    uri_scheme_ok($uri, 'file');
     37
     38    is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr');
    3639}
    3740
     
    4649    ok(-e $path, "file exists");
    4750    uri_scheme_ok($uri, 'file');
     51
     52    is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr');
    4853}
    4954
     
    6065        ok(-e $path, "file exists");
    6166        uri_scheme_ok($uri1, 'file');
     67
     68        is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr');
    6269    }
    6370
     
    6673        ok(-e $path, "file exists");
    6774        uri_scheme_ok($uri2, 'file');
     75
     76        is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr');
    6877    }
    6978}
Note: See TracChangeset for help on using the changeset viewer.