IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 3, 2007, 12:10:14 PM (19 years ago)
Author:
jhoblitt
Message:

valid that $key arguments are valid

Location:
trunk/Nebulous-Server/t
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Nebulous-Server/t/05_server_lock_object.t

    r12640 r13203  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 05_server_lock_object.t,v 1.7 2007-03-28 21:32:54 jhoblitt Exp $
     5# $Id: 05_server_lock_object.t,v 1.8 2007-05-03 22:10:14 jhoblitt Exp $
    66
    77use strict;
    … …  
    5252    $neb->lock_object("foo", "read");
    5353};
    54 like($@, qr/storage object does not exist/, "storage object does not exist");
     54like($@, qr/is valid object key/, "storage object does not exist");
    5555
    5656Test::Nebulous->setup;
    … …  
    5959    $neb->lock_object("foo", "write");
    6060};
    61 like($@, qr/storage object does not exist/, "storage object does not exist");
     61like($@, qr/is valid object key/, "storage object does not exist");
    6262
    6363Test::Nebulous->setup;
    … …  
    101101
    102102eval {
     103    $neb->create_object("foo");
     104
    103105    $neb->lock_object("foo");
    104106};
    … …  
    108110
    109111eval {
     112    $neb->create_object("foo");
     113
    110114    $neb->lock_object("foo", "both");
    111115};
    … …  
    115119
    116120eval {
     121    $neb->create_object("foo");
     122
    117123    $neb->lock_object("foo", 'read', 3);
    118124};

  • trunk/Nebulous-Server/t/06_server_unlock_object.t

    r12641 r13203  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 06_server_unlock_object.t,v 1.7 2007-03-28 21:41:11 jhoblitt Exp $
     5# $Id: 06_server_unlock_object.t,v 1.8 2007-05-03 22:10:14 jhoblitt Exp $
    66
    77use strict;
    … …  
    5959    $neb->unlock_object("foo", "read");
    6060};
    61 like($@, qr/storage object does not exist/, "storage object does not exist");
     61like($@, qr/is valid object key/, "storage object does not exist");
    6262
    6363Test::Nebulous->setup;
    … …  
    6666    $neb->unlock_object("foo", "write");
    6767};
    68 like($@, qr/storage object does not exist/, "storage object does not exist");
     68like($@, qr/is valid object key/, "storage object does not exist");
    6969
    7070Test::Nebulous->setup;
    … …  
    116116
    117117eval {
     118    $neb->create_object("foo");
     119
    118120    $neb->unlock_object("foo");
    119121};
    … …  
    123125
    124126eval {
     127    $neb->create_object("foo");
     128
    125129    $neb->unlock_object("foo", "both");
    126130};
    … …  
    130134
    131135eval {
     136    $neb->create_object("foo");
     137
    132138    $neb->unlock_object("foo", 'read', 3);
    133139};

  • trunk/Nebulous-Server/t/13_server_rename_object.t

    r13071 r13203  
    33# Copryight (C) 2007  Joshua Hoblitt
    44#
    5 # $Id: 13_server_rename_object.t,v 1.1 2007-04-28 00:44:58 jhoblitt Exp $
     5# $Id: 13_server_rename_object.t,v 1.2 2007-05-03 22:10:14 jhoblitt Exp $
    66
    77use strict;
    88use warnings FATAL => qw( all );
    99
    10 use Test::More tests => 5;
     10use Test::More tests => 6;
    1111
    1212use lib qw( ./t ./lib );
    … …  
    3737Test::Nebulous->setup;
    3838
     39# destination key exists
     40eval {
     41    $neb->create_object('foo');
     42    $neb->create_object('bar');
     43
     44    $neb->rename_object('foo', 'bar');
     45};
     46like($@, qr/is not valid object key/, "too few params");
     47
     48Test::Nebulous->setup;
     49
    3950eval {
    4051    $neb->rename_object();
    … …  
    4253like($@, qr/2 were expected/, "no params");
    4354
    44 Test::Nebulous->cleanup;
     55Test::Nebulous->setup;
    4556
    4657eval {
     58    $neb->create_object("foo");
     59
    4760    $neb->rename_object("foo");
    4861};
    4962like($@, qr/2 were expected/, "too few params");
    5063
    51 Test::Nebulous->cleanup;
     64Test::Nebulous->setup;
    5265
    5366eval {
     67    $neb->create_object("foo");
     68
    5469    $neb->rename_object("foo", "bar", "baz");
    5570};

  • trunk/Nebulous-Server/t/14_server_xattr.t

    r13087 r13203  
    33# Copryight (C) 2007  Joshua Hoblitt
    44#
    5 # $Id: 14_server_xattr.t,v 1.1 2007-05-01 02:00:07 jhoblitt Exp $
     5# $Id: 14_server_xattr.t,v 1.2 2007-05-03 22:10:14 jhoblitt Exp $
    66
    77use strict;
    … …  
    114114
    115115eval {
     116    $neb->create_object('foo');
     117
    116118    $neb->setxattr_object('foo', 'bar');
    117119};
    … …  
    121123
    122124eval {
     125    $neb->create_object('foo');
     126
    123127    $neb->setxattr_object('foo', 'bar', 'baz');
    124128};
    … …  
    128132
    129133eval {
     134    $neb->create_object('foo');
     135
    130136    $neb->setxattr_object('foo', 'bar', 'baz', 'create', 'quix');
    131137};
    … …  
    137143
    138144eval {
     145    $neb->create_object('foo');
     146
    139147    $neb->listxattr_object();
    140148};
    … …  
    144152
    145153eval {
     154    $neb->create_object('foo');
     155
    146156    $neb->listxattr_object('foo', 'bar');
    147157};
    … …  
    160170
    161171eval {
     172    $neb->create_object('foo');
     173
    162174    $neb->getxattr_object('foo');
    163175};
    … …  
    167179
    168180eval {
     181    $neb->create_object('foo');
     182
    169183    $neb->getxattr_object('foo', 'bar', 'baz');
    170184};
Note: See TracChangeset for help on using the changeset viewer.