IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 24301


Ignore:
Timestamp:
Jun 2, 2009, 11:51:31 AM (17 years ago)
Author:
jhoblitt
Message:

Test::Updates to reflect changes to Nebulous::Server

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Nebulous/t/66_client_xattr.t

    r17750 r24301  
    11#!/usr/bin/perl
    22
    3 # Copryight (C) 2007-2008  Joshua Hoblitt
    4 #
    5 # $Id: 66_client_xattr.t,v 1.1 2008-05-20 00:54:30 jhoblitt Exp $
     3# Copryight (C) 2007-2009  Joshua Hoblitt
    64
    75use strict;
    … …  
    97
    108use Apache::Test qw( -withtestmore );
    11 plan tests => 32;
    12 
     9plan tests => 44;
    1310
    1411use lib qw( ./t ./lib );
    … …  
    2017my $hostport = Apache::Test->config->{ 'hostport' };
    2118
     19my $neb = Nebulous::Client->new(
     20    proxy => "http://$hostport/nebulous",
     21);
     22
    2223# 1 key / xattr
    2324
    … …  
    2526
    2627{
    27     my $neb = Nebulous::Client->new(
    28         proxy => "http://$hostport/nebulous",
    29     );
    30 
    3128    my $uri = $neb->create('foo');
    3229
    33     ok($neb->setxattr('foo', 'bar', 'baz', 'create'), 'set object xattr');
     30    ok($neb->setxattr('foo', 'user.bar', 'baz', 'create'), 'set object xattr');
    3431    {
    3532        my $xattrs = $neb->listxattr('foo');
    3633        is(scalar @$xattrs, 1, 'number of xattrs');
    37         is(@$xattrs[0], 'bar', 'xattr name');
    38     }
    39 
    40     my $value = $neb->getxattr('foo', 'bar');
     34        is(@$xattrs[0], 'user.bar', 'xattr name');
     35    }
     36
     37    my $value = $neb->getxattr('foo', 'user.bar');
    4138    is($value, 'baz', 'xattr value');
    4239
    43     ok($neb->removexattr('foo', 'bar'), "remove object xattr");
     40    ok($neb->removexattr('foo', 'user.bar'), "remove object xattr");
    4441    {
    4542        my $xattrs = $neb->listxattr('foo');
    … …  
    5350
    5451{
    55     my $neb = Nebulous::Client->new(
    56         proxy => "http://$hostport/nebulous",
    57     );
    58 
    5952    my $uri = $neb->create('foo');
    6053
    61     ok($neb->setxattr('foo', 'bar', 'baz', 'create'), 'set object xattr');
    62     ok($neb->setxattr('foo', 'bonk', 'quix', 'create'), 'set object xattr');
     54    ok($neb->setxattr('foo', 'user.bar', 'baz', 'create'), 'set object xattr');
     55    ok($neb->setxattr('foo', 'user.bonk', 'quix', 'create'), 'set object xattr');
    6356   
    6457    {
    6558        my $xattrs = $neb->listxattr('foo');
    6659        is(scalar @$xattrs, 2, 'number of xattrs');
    67         is(@$xattrs[0], 'bar', 'xattr name');
    68         is(@$xattrs[1], 'bonk', 'xattr name');
    69     }
    70 
    71     my $value = $neb->getxattr('foo', 'bar');
     60        is(@$xattrs[0], 'user.bar', 'xattr name');
     61        is(@$xattrs[1], 'user.bonk', 'xattr name');
     62    }
     63
     64    my $value = $neb->getxattr('foo', 'user.bar');
    7265    is($value, 'baz', 'xattr value');
    73     $value = $neb->getxattr('foo', 'bonk');
     66    $value = $neb->getxattr('foo', 'user.bonk');
    7467    is($value, 'quix', 'xattr value');
    7568
    76     ok($neb->removexattr('foo', 'bar'), "remove object xattr");
    77     ok($neb->removexattr('foo', 'bonk'), "remove object xattr");
     69    ok($neb->removexattr('foo', 'user.bar'), "remove object xattr");
     70    ok($neb->removexattr('foo', 'user.bonk'), "remove object xattr");
    7871    {
    7972        my $xattrs = $neb->listxattr('foo');
    … …  
    8780
    8881{
    89     my $neb = Nebulous::Client->new(
    90         proxy => "http://$hostport/nebulous",
    91     );
    92 
    9382    my $uri = $neb->create('foo');
    9483
    95     ok($neb->setxattr('foo', 'bar', 'baz', 'create'), 'set object xattr');
    96     ok($neb->setxattr('foo', 'bar', 'quix', 'replace'), 're-set object xattr');
     84    ok($neb->setxattr('foo', 'user.bar', 'baz', 'create'), 'set object xattr');
     85    ok($neb->setxattr('foo', 'user.bar', 'quix', 'replace'), 're-set object xattr');
    9786   
    9887    {
    9988        my $xattrs = $neb->listxattr('foo');
    10089        is(scalar @$xattrs, 1, 'number of xattrs');
    101         is(@$xattrs[0], 'bar', 'xattr name');
    102     }
    103 
    104     my $value = $neb->getxattr('foo', 'bar');
     90        is(@$xattrs[0], 'user.bar', 'xattr name');
     91    }
     92
     93    my $value = $neb->getxattr('foo', 'user.bar');
    10594    is($value, 'quix', 'xattr value');
    10695
    107     ok($neb->removexattr('foo', 'bar'), "remove object xattr");
     96    ok($neb->removexattr('foo', 'user.bar'), "remove object xattr");
    10897    {
    10998        my $xattrs = $neb->listxattr('foo');
    … …  
    117106
    118107eval {
    119     my $neb = Nebulous::Client->new(
    120         proxy => "http://$hostport/nebulous",
    121     );
    122 
     108    $neb->setxattr('foo', 'user.bar', 'baz', 'create');
     109};
     110like($@, qr/is valid object key/, "create xattr on non-existant key");
     111
     112Test::Nebulous->setup;
     113
     114eval {
     115    $neb->create('foo');
     116
     117    $neb->setxattr('foo', 'luser.bar', 'baz', 'create');
     118};
     119like($@, qr/xattr is in user. namespace/, "user. namspace");
     120
     121Test::Nebulous->setup;
     122
     123eval {
     124    $neb->setxattr('foo', 'user.bar', 'baz', 'replace');
     125};
     126like($@, qr/is valid object key/, "replace xattr on non-existant key");
     127
     128Test::Nebulous->setup;
     129
     130eval {
    123131    $neb->setxattr();
    124132};
    … …  
    128136
    129137eval {
    130     my $neb = Nebulous::Client->new(
    131         proxy => "http://$hostport/nebulous",
    132     );
    133 
    134     $neb->create('foo');
    135 
    136     $neb->setxattr('foo', 'bar');
     138    $neb->create('foo');
     139
     140    $neb->setxattr('foo', 'user.bar');
    137141};
    138142like($@, qr/4 were expected/, "too few params");
    … …  
    141145
    142146eval {
    143     my $neb = Nebulous::Client->new(
    144         proxy => "http://$hostport/nebulous",
    145     );
    146 
    147     $neb->create('foo');
    148 
    149     $neb->setxattr('foo', 'bar', 'baz');
     147    $neb->create('foo');
     148
     149    $neb->setxattr('foo', 'user.bar', 'baz');
    150150};
    151151like($@, qr/4 were expected/, "too few params");
    … …  
    154154
    155155eval {
    156     my $neb = Nebulous::Client->new(
    157         proxy => "http://$hostport/nebulous",
    158     );
    159 
    160     $neb->create('foo');
    161 
    162     $neb->setxattr('foo', 'bar', 'baz', 'create', 'quix');
     156    $neb->create('foo');
     157
     158    $neb->setxattr('foo', 'user.bar', 'baz', 'create', 'quix');
    163159};
    164160like($@, qr/4 were expected/, "too many params");
    165161
     162# getxattr
     163
     164Test::Nebulous->setup;
     165
     166eval {
     167    $neb->getxattr('foo', 'bar');
     168};
     169like($@, qr/is valid object key/, "get xattr from non-existant nebulous key");
     170
     171Test::Nebulous->setup;
     172
     173eval {
     174    $neb->create('foo');
     175
     176    $neb->getxattr('foo', 'luser.bar');
     177};
     178like($@, qr/xattr is in user. namespace/, "user. namespace");
     179
     180Test::Nebulous->setup;
     181
     182eval {
     183    $neb->create('foo');
     184    $neb->getxattr('foo', 'user.bar');
     185};
     186like($@, qr|xattr neb:///foo:user.bar does not exist|,
     187    "get xattr from non-existant xattr key");
     188
     189Test::Nebulous->setup;
     190
     191eval {
     192    $neb->getxattr();
     193};
     194like($@, qr/2 were expected/, "no params");
     195
     196Test::Nebulous->setup;
     197
     198eval {
     199    $neb->create('foo');
     200
     201    $neb->getxattr('foo');
     202};
     203like($@, qr/2 were expected/, "too few params");
     204
     205Test::Nebulous->setup;
     206
     207eval {
     208    $neb->create('foo');
     209
     210    $neb->getxattr('foo', 'user.bar', 'baz');
     211};
     212like($@, qr/2 were expected/, "too many params");
     213
    166214# listxattr
    167215
    … …  
    169217
    170218eval {
    171     my $neb = Nebulous::Client->new(
    172         proxy => "http://$hostport/nebulous",
    173     );
    174 
    175219    $neb->create('foo');
    176220
    … …  
    182226
    183227eval {
    184     my $neb = Nebulous::Client->new(
    185         proxy => "http://$hostport/nebulous",
    186     );
    187 
    188228    $neb->create('foo');
    189229
    … …  
    192232like($@, qr/1 was expected/, "too many params");
    193233
    194 # getxattr
    195 
    196 Test::Nebulous->setup;
    197 
    198 eval {
    199     my $neb = Nebulous::Client->new(
    200         proxy => "http://$hostport/nebulous",
    201     );
    202 
    203     $neb->getxattr();
     234# removexattr
     235
     236Test::Nebulous->setup;
     237
     238eval {
     239    $neb->removexattr('foo', 'user.bar');
     240};
     241like($@, qr/is valid object key/, "remove xattr from non-existant nebulous key");
     242
     243Test::Nebulous->setup;
     244
     245eval {
     246    $neb->create('foo');
     247
     248    $neb->getxattr('foo', 'luser.bar');
     249};
     250like($@, qr/xattr is in user. namespace/, "user. namespace");
     251
     252Test::Nebulous->setup;
     253
     254eval {
     255    $neb->create('foo');
     256    $neb->removexattr('foo', 'user.bar');
     257};
     258like($@, qr|xattr neb:///foo:user.bar does not exist|,
     259    "remove xattr from non-existant xattr key");
     260
     261Test::Nebulous->setup;
     262
     263eval {
     264    $neb->removexattr();
    204265};
    205266like($@, qr/2 were expected/, "no params");
    … …  
    208269
    209270eval {
    210     my $neb = Nebulous::Client->new(
    211         proxy => "http://$hostport/nebulous",
    212     );
    213 
    214     $neb->create('foo');
    215 
    216     $neb->getxattr('foo');
     271    $neb->create('foo');
     272
     273    $neb->removexattr('foo');
    217274};
    218275like($@, qr/2 were expected/, "too few params");
    … …  
    221278
    222279eval {
    223     my $neb = Nebulous::Client->new(
    224         proxy => "http://$hostport/nebulous",
    225     );
    226 
    227     $neb->create('foo');
    228 
    229     $neb->getxattr('foo', 'bar', 'baz');
     280    $neb->create('foo');
     281
     282    $neb->removexattr('foo', 'user.bar', 'baz');
    230283};
    231284like($@, qr/2 were expected/, "too many params");
Note: See TracChangeset for help on using the changeset viewer.