shlist

share and manage lists between multiple people
Log | Files | Refs

list_add.t (570B)

      1 use strict;
      2 use Scalar::Util qw(looks_like_number);
      3 use Test;
      4 use SL::Test;
      5 
      6 BEGIN { plan tests => 10 }
      7 
      8 my $s = SL::Test::Server->new();
      9 my $A = SL::Test::Client->new();
     10 
     11 # make sure normal list_add works
     12 my $name = 'this is a new list';
     13 my $list = $A->list_add({ name => $name, date => 0 });
     14 
     15 ok(looks_like_number($list->{num}));
     16 ok($list->{name}, $name);
     17 ok($list->{num_members}, 1);
     18 ok($list->{members}->[0], $A->phnum());
     19 
     20 # verify a new_list request with an empty list name succeeds
     21 $A->list_add({ name => '', date => 0 });
     22 
     23 ok(scalar( @{ $A->lists_get() } ), 2);