IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Jun 25, 2009, 2:00:56 PM (17 years ago)
Author:
eugene
Message:

merging changes from head

Location:
branches/eam_branches/20090522
Files:
2 deleted
8 edited
3 copied

Legend:

Unmodified
Added
Removed

  • branches/eam_branches/20090522

  • branches/eam_branches/20090522/Nebulous

    • Property svn:mergeinfo changed (with no actual effect on merging)

  • branches/eam_branches/20090522/Nebulous/t

    • Property svn:mergeinfo changed (with no actual effect on merging)

  • branches/eam_branches/20090522/Nebulous/t/59_client_delete.t

    r18858 r24557  
    1010use Apache::Test qw( -withtestmore );
    1111
    12 plan tests => 9;
     12plan tests => 13;
    1313
    1414use lib qw( ./t ./lib );
    … …  
    2626        proxy => "http://$hostport/nebulous",
    2727    );
    28     $neb->create( "foo" );
     28    my $uri = $neb->create( "foo" );
    2929
    3030    ok( $neb->delete( "foo" ), "delete object" );
     31
     32    ok( ! -e _get_file_path($uri), "deleted file" );
    3133
    3234    my $locations = $neb->find_instances( "foo" );
    … …  
    7678}
    7779
     80# force flag
     81Test::Nebulous->setup;
     82
     83{
     84    my $neb = Nebulous::Client->new(
     85        proxy => "http://$hostport/nebulous",
     86    );
     87    $neb->create( "foo" );
     88
     89    is( $neb->delete("foo", undef), 1, "force flag false" );
     90}
     91
     92Test::Nebulous->setup;
     93
     94{
     95    my $neb = Nebulous::Client->new(
     96        proxy => "http://$hostport/nebulous",
     97    );
     98    $neb->create( "foo" );
     99
     100    is( $neb->delete("foo", 1), 1, "force flag false" );
     101}
     102
    78103Test::Nebulous->setup;
    79104
    … …  
    84109    $neb->delete();
    85110};
    86 like( $@, qr/1 was expected/, "no params" );
     111like( $@, qr/1 - 2 were expected/, "no params" );
    87112
    88113Test::Nebulous->setup;
    … …  
    92117        proxy => "http://$hostport/nebulous",
    93118    );
    94     $neb->delete( "foo", 2 );
     119    $neb->delete( "foo", 3);
    95120};
    96 like( $@, qr/1 was expected/, "too many params" );
     121like( $@, qr/is boolean/, "force flag not boolean" );
     122
     123Test::Nebulous->setup;
     124
     125eval {
     126    my $neb = Nebulous::Client->new(
     127        proxy => "http://$hostport/nebulous",
     128    );
     129    $neb->delete( "foo", 0, 2 );
     130};
     131like( $@, qr/1 - 2 were expected/, "too many params" );
    97132
    98133Test::Nebulous->cleanup;

  • branches/eam_branches/20090522/Nebulous/t/62_client_delete_instance.t

    r23934 r24557  
    1010use Apache::Test qw( -withtestmore );
    1111
    12 plan tests => 11;
     12plan tests => 10;
    1313
    1414use lib qw( ./t ./lib );
    … …  
    3535
    3636    is( $uri, @$locations[0], "delete instance" );
    37 
    38     ok( ! -e _get_file_path( @$locations[0] ), "deleted file" );
    3937}
    4038

  • branches/eam_branches/20090522/Nebulous/t/66_client_xattr.t

    r17750 r24557  
    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");

  • branches/eam_branches/20090522/Nebulous/t/70_neb-ls.t

    r23934 r24557  
    3838
    3939# NEB_SERVER env var not set
     40undef $ENV{'NEB_SERVER'} if defined $ENV{'NEB_SERVER'};
    4041Test::Nebulous->setup;
    4142
    … …  
    8283
    8384    is($? >> 8, 0, "exit code");
    84     like($test->stdout, qr/^foo bar$/,  "stdout");
     85    like($test->stdout, qr/^foo\nbar$/,  "stdout");
    8586    like($test->stderr, qr/^$/,         "stderr");
    8687}
    … …  
    160161
    161162    is($? >> 8, 0, "exit code");
    162     like($test->stdout, qr|^a/foo a/bar$|,  "stdout");
     163    like($test->stdout, qr|^a/foo\na/bar$|,  "stdout");
    163164    like($test->stderr, qr/^$/,             "stderr");
    164165}

  • branches/eam_branches/20090522/Nebulous/t/conf/startup.pl.in

    r23934 r24557  
    1818my $config = Nebulous::Server::Config->new(
    1919    trace       => 'all',
     20    memcached_servers => ['127.0.0.1:11211'],
    2021);
    2122$config->add_db(
Note: See TracChangeset for help on using the changeset viewer.