Changeset 23857

Timestamp:

Apr 14, 2009, 12:04:05 PM (17 years ago)

Author:

jhoblitt

Message:

additional tests

File:

• branches/neb_distrib_20081210/Nebulous-Server/t/12_server_find_objects.t (modified) (4 diffs)

branches/neb_distrib_20081210/Nebulous-Server/t/12_server_find_objects.t

@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-use Test::More tests => 15;
+use Test::More tests => 28;
 
 use lib qw( ./t ./lib );
@@ -55 +55 @@
 }
 
+Test::Nebulous->setup;
+
+{
+    # key
+    $neb->create_object("foo");
+    $neb->create_object("bar");
+
+    my $keys = $neb->find_objects("foo");
+
+    is(scalar @$keys, 1, 'number of keys found');
+    is($keys->[0], "foo", "key name");
+}
+
 # test recursive dir searching
 Test::Nebulous->setup;
@@ -60 +73 @@
 {
     $neb->create_object("a/foo");
+
+    my $keys = $neb->find_objects("a");
+
+    is(scalar @$keys, 1, 'number of keys found');
+    is($keys->[0], "a/foo", "key name");
+}
+
+Test::Nebulous->setup;
+
+{
+    $neb->create_object("a/foo");
+    $neb->create_object("b/foo");
+
+    my $keys = $neb->find_objects("a");
+
+    is(scalar @$keys, 1, 'number of keys found');
+    is($keys->[0], "a/foo", "key name");
+}
+
+Test::Nebulous->setup;
+
+{
+    $neb->create_object("a/foo");
+    $neb->create_object("a/b/foo");
 
     my $keys = $neb->find_objects("a");
@@ -96 +133 @@
 {
     $neb->create_object("a/foo");
+    $neb->create_object("foo");
+    $neb->create_object("bar");
+
+    my $keys = $neb->find_objects("/");
+
+    is(scalar @$keys, 2, 'number of keys found');
+    is($keys->[0], "foo", "key name");
+    is($keys->[1], "bar", "key name");
+}
+
+Test::Nebulous->setup;
+
+{
+    $neb->create_object("a/foo");
+    $neb->create_object("foo");
+    $neb->create_object("bar");
+
+    my $keys = $neb->find_objects(".");
+
+    is(scalar @$keys, 2, 'number of keys found');
+    is($keys->[0], "foo", "key name");
+    is($keys->[1], "bar", "key name");
+}
+
+Test::Nebulous->setup;
+
+{
+    $neb->create_object("a/foo");
+    $neb->create_object("foo");
     $neb->create_object("bar");
 
     my $keys = $neb->find_objects("..");
 
-    is(scalar @$keys, 1, 'number of keys found');
-    is($keys->[0], "bar", "key name");
+    is(scalar @$keys, 2, 'number of keys found');
+    is($keys->[0], "foo", "key name");
+    is($keys->[1], "bar", "key name");
 }