Changeset 23770

Timestamp:

Apr 9, 2009, 10:26:24 AM (17 years ago)

Author:

jhoblitt

Message:

remove testing dependence on ->find_objects()

File:

• branches/neb_distrib_20081210/Nebulous-Server/t/13_server_rename_object.t (modified) (4 diffs)

branches/neb_distrib_20081210/Nebulous-Server/t/13_server_rename_object.t

@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-use Test::More tests => 14;
+use Test::More tests => 8;
 
 use lib qw( ./t ./lib );
@@ -36 +36 @@
         storage_object  => [so_id => 1, ext_id => $key, ext_id_basename => basename($key), dir_id => 1],
     );
-
-    eval {
-        $neb->find_objects('^foo$');
-    };
-    like($@, qr/no keys found/, "old key name");
-
-    my $keys = $neb->find_objects('^bar$');
-    is(scalar @$keys, 1, 'number of keys found');
 }
 
@@ -59 +51 @@
         storage_object  => [so_id => 1, ext_id => $key, ext_id_basename => basename($key), dir_id => 2],
     );
-
-    eval {
-        $neb->find_objects('^foo$');
-    };
-    like($@, qr/no keys found/, "old key name");
-
-    my $keys = $neb->find_objects('^a/bar$');
-    is(scalar @$keys, 1, 'number of keys found');
 }
 
@@ -82 +66 @@
         storage_object  => [so_id => 1, ext_id => $key, ext_id_basename => basename($key), dir_id => 1],
     );
-
-    eval {
-        $neb->find_objects('^foo$');
-    };
-    like($@, qr/no keys found/, "old key name");
-
-    my $keys = $neb->find_objects('^bar$');
-    is(scalar @$keys, 1, 'number of keys found');
 }