IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 6, 2008, 12:12:07 PM (18 years ago)
Author:
jhoblitt
Message:

allow volume name arguments to be undef

File:
1 edited

Legend:

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

    r17072 r17539  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 04_server_replicate_object.t,v 1.12 2008-03-20 21:10:14 jhoblitt Exp $
     5# $Id: 04_server_replicate_object.t,v 1.13 2008-05-06 22:10:58 jhoblitt Exp $
    66
    77use strict;
    88use warnings FATAL => qw( all );
    99
    10 use Test::More tests => 16;
     10use Test::More tests => 19;
    1111
    1212use lib qw( ./t ./lib );
     
    4949    $neb->create_object("foo");
    5050    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
     56SKIP: {
     57    skip "requires xattr support", 1 unless $test_xattr;
     58    is(getfattr($path, 'user.nebulous_key'), 'foo', 'user.nebulous_key xattr');
     59}
     60}
     61
     62Test::Nebulous->setup;
     63
     64{
     65    # key, $volume is undef
     66    $neb->create_object("foo");
     67    my $uri = $neb->replicate_object("foo", undef);
    5168
    5269    my ($scheme, $auth, $path, $query, $frag) = uri_split($uri);
Note: See TracChangeset for help on using the changeset viewer.