Changeset 17539 for trunk/Nebulous-Server/t/04_server_replicate_object.t
- Timestamp:
- May 6, 2008, 12:12:07 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Nebulous-Server/t/04_server_replicate_object.t
r17072 r17539 3 3 # Copryight (C) 2004-2005 Joshua Hoblitt 4 4 # 5 # $Id: 04_server_replicate_object.t,v 1.1 2 2008-03-20 21:10:14jhoblitt Exp $5 # $Id: 04_server_replicate_object.t,v 1.13 2008-05-06 22:10:58 jhoblitt Exp $ 6 6 7 7 use strict; 8 8 use warnings FATAL => qw( all ); 9 9 10 use Test::More tests => 1 6;10 use Test::More tests => 19; 11 11 12 12 use lib qw( ./t ./lib ); … … 49 49 $neb->create_object("foo"); 50 50 my $uri = $neb->replicate_object("foo", "node01"); 51 52 my ($scheme, $auth, $path, $query, $frag) = uri_split($uri); 53 ok(-e $path, "file exists"); 54 uri_scheme_ok($uri, 'file'); 55 56 SKIP: { 57 skip "requires xattr support", 1 unless $test_xattr; 58 is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr'); 59 } 60 } 61 62 Test::Nebulous->setup; 63 64 { 65 # key, $volume is undef 66 $neb->create_object("foo"); 67 my $uri = $neb->replicate_object("foo", undef); 51 68 52 69 my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
Note:
See TracChangeset
for help on using the changeset viewer.
