IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Apr 20, 2009, 11:15:20 AM (17 years ago)
Author:
jhoblitt
Message:

merge neb_distrib_20081210

Location:
trunk/Nebulous-Server
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Nebulous-Server

  • trunk/Nebulous-Server/t/12_server_find_objects.t

    r17717 r23932  
    88use warnings FATAL => qw( all );
    99
    10 use Test::More tests => 6;
     10use Test::More tests => 28;
    1111
    1212use lib qw( ./t ./lib );
    … …  
    2525# search for a regex of '' should match nothing
    2626eval {
    27     # key
    28     my $uri = $neb->create_object("foo");
     27    $neb->create_object("foo");
    2928
    3029    my $keys = $neb->find_objects();
    … …  
    3534
    3635{
    37     # key
    38     my $uri = $neb->create_object("foo");
     36    $neb->create_object("foo");
    3937
    4038    my $keys = $neb->find_objects("foo");
    … …  
    4846{
    4947    # key
    50     my $uri1 = $neb->create_object("foo");
    51     my $uri2 = $neb->replicate_object("foo");
     48    $neb->create_object("foo");
     49    $neb->replicate_object("foo");
    5250
    5351    my $keys = $neb->find_objects("foo");
    … …  
    5553    is(scalar @$keys, 1, 'number of keys found');
    5654    is($keys->[0], "foo", "key name");
     55}
     56
     57Test::Nebulous->setup;
     58
     59{
     60    # key
     61    $neb->create_object("foo");
     62    $neb->create_object("bar");
     63
     64    my $keys = $neb->find_objects("foo");
     65
     66    is(scalar @$keys, 1, 'number of keys found');
     67    is($keys->[0], "foo", "key name");
     68}
     69
     70# test recursive dir searching
     71Test::Nebulous->setup;
     72
     73{
     74    $neb->create_object("a/foo");
     75
     76    my $keys = $neb->find_objects("a");
     77
     78    is(scalar @$keys, 1, 'number of keys found');
     79    is($keys->[0], "a/foo", "key name");
     80}
     81
     82Test::Nebulous->setup;
     83
     84{
     85    $neb->create_object("a/foo");
     86    $neb->create_object("b/foo");
     87
     88    my $keys = $neb->find_objects("a");
     89
     90    is(scalar @$keys, 1, 'number of keys found');
     91    is($keys->[0], "a/foo", "key name");
     92}
     93
     94Test::Nebulous->setup;
     95
     96{
     97    $neb->create_object("a/foo");
     98    $neb->create_object("a/b/foo");
     99
     100    my $keys = $neb->find_objects("a");
     101
     102    is(scalar @$keys, 1, 'number of keys found');
     103    is($keys->[0], "a/foo", "key name");
     104}
     105
     106Test::Nebulous->setup;
     107
     108{
     109    $neb->create_object("a/foo");
     110    $neb->create_object("a/bar");
     111
     112    my $keys = $neb->find_objects("a");
     113
     114    is(scalar @$keys, 2, 'number of keys found');
     115    is($keys->[0], "a/foo", "key name");
     116    is($keys->[1], "a/bar", "key name");
     117}
     118
     119Test::Nebulous->setup;
     120
     121{
     122    $neb->create_object("a/foo");
     123    $neb->create_object("bar");
     124
     125    my $keys = $neb->find_objects("a");
     126
     127    is(scalar @$keys, 1, 'number of keys found');
     128    is($keys->[0], "a/foo", "key name");
     129}
     130
     131Test::Nebulous->setup;
     132
     133{
     134    $neb->create_object("a/foo");
     135    $neb->create_object("foo");
     136    $neb->create_object("bar");
     137
     138    my $keys = $neb->find_objects("/");
     139
     140    is(scalar @$keys, 2, 'number of keys found');
     141    is($keys->[0], "foo", "key name");
     142    is($keys->[1], "bar", "key name");
     143}
     144
     145Test::Nebulous->setup;
     146
     147{
     148    $neb->create_object("a/foo");
     149    $neb->create_object("foo");
     150    $neb->create_object("bar");
     151
     152    my $keys = $neb->find_objects(".");
     153
     154    is(scalar @$keys, 2, 'number of keys found');
     155    is($keys->[0], "foo", "key name");
     156    is($keys->[1], "bar", "key name");
     157}
     158
     159Test::Nebulous->setup;
     160
     161{
     162    $neb->create_object("a/foo");
     163    $neb->create_object("foo");
     164    $neb->create_object("bar");
     165
     166    my $keys = $neb->find_objects("..");
     167
     168    is(scalar @$keys, 2, 'number of keys found');
     169    is($keys->[0], "foo", "key name");
     170    is($keys->[1], "bar", "key name");
    57171}
    58172
Note: See TracChangeset for help on using the changeset viewer.