Changeset 17717 for trunk/Nebulous-Server/t/13_server_rename_object.t

Timestamp:

May 16, 2008, 10:29:19 AM (18 years ago)

Author:

jhoblitt

Message:

test updates

File:

• trunk/Nebulous-Server/t/13_server_rename_object.t (modified) (2 diffs)

trunk/Nebulous-Server/t/13_server_rename_object.t

@@ -3 +3 @@
 # Copryight (C) 2007  Joshua Hoblitt
 #
-# $Id: 13_server_rename_object.t,v 1.4 2008-03-20 21:10:14 jhoblitt Exp $
+# $Id: 13_server_rename_object.t,v 1.5 2008-05-16 20:29:19 jhoblitt Exp $
 
 use strict;
@@ -28 +28 @@
     $neb->rename_object("foo", "bar");
 
-    my $keys = $neb->find_objects('^foo$');
-    is(scalar @$keys, 0, 'number of keys found');
-    $keys = $neb->find_objects('^bar$');
+    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');
 }