IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
May 16, 2008, 10:29:19 AM (18 years ago)
Author:
jhoblitt
Message:

test updates

Location:
trunk/Nebulous-Server/t
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Nebulous-Server/t/09_server_stat_object.t

    r17650 r17717  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 09_server_stat_object.t,v 1.14 2008-05-13 03:55:08 jhoblitt Exp $
     5# $Id: 09_server_stat_object.t,v 1.15 2008-05-16 20:29:19 jhoblitt Exp $
    66
    77use strict;
     
    4949Test::Nebulous->setup;
    5050
    51 {
     51eval {
    5252    my $stat = $neb->stat_object("foo");
    53     is($stat, undef, "object does not exist");
    54 }
     53};
     54like($@, qr/is valid object key/, "no params");
    5555
    5656Test::Nebulous->setup;
  • trunk/Nebulous-Server/t/12_server_find_objects.t

    r17072 r17717  
    33# Copryight (C) 2004-2005  Joshua Hoblitt
    44#
    5 # $Id: 12_server_find_objects.t,v 1.3 2008-03-20 21:10:14 jhoblitt Exp $
     5# $Id: 12_server_find_objects.t,v 1.4 2008-05-16 20:29:19 jhoblitt Exp $
    66
    77use strict;
     
    2424
    2525# search for a regex of '' should match nothing
    26 {
     26eval {
    2727    # key
    2828    my $uri = $neb->create_object("foo");
    2929
    3030    my $keys = $neb->find_objects();
    31 
    32     is(scalar @$keys, 0, 'number of keys found');
    33 }
     31};
     32like($@, qr/no keys found/, "no keys found");
    3433
    3534Test::Nebulous->setup;
  • trunk/Nebulous-Server/t/13_server_rename_object.t

    r17072 r17717  
    33# Copryight (C) 2007  Joshua Hoblitt
    44#
    5 # $Id: 13_server_rename_object.t,v 1.4 2008-03-20 21:10:14 jhoblitt Exp $
     5# $Id: 13_server_rename_object.t,v 1.5 2008-05-16 20:29:19 jhoblitt Exp $
    66
    77use strict;
     
    2828    $neb->rename_object("foo", "bar");
    2929
    30     my $keys = $neb->find_objects('^foo$');
    31     is(scalar @$keys, 0, 'number of keys found');
    32     $keys = $neb->find_objects('^bar$');
     30    eval {
     31        $neb->find_objects('^foo$');
     32    };
     33    like($@, qr/no keys found/, "old key name");
     34
     35    my $keys = $neb->find_objects('^bar$');
    3336    is(scalar @$keys, 1, 'number of keys found');
    3437}
Note: See TracChangeset for help on using the changeset viewer.