shlist

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

list_update_notify.t (637B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 14 }
      6 
      7 my $s = SL::Test::Server->new();
      8 my $n = SL::Test::Notify->new();
      9 
     10 my $A = SL::Test::Client->new();
     11 my $B = SL::Test::Client->new();
     12 my $C = SL::Test::Client->new();
     13 
     14 my $list = $A->list_add({ name => 'this is a new list', date => 0 });
     15 
     16 $A->friend_add($B->phnum());
     17 $B->friend_add($A->phnum());
     18 
     19 $C->list_join($list->{num});
     20 
     21 $A->list_update({ num => $list->{num}, name => 'this is an updated name' });
     22 
     23 ok($n->readline(), "/message type 'updated_list'/");
     24 ok($n->readline(), "/sending to 'token_.*' os 'unix'/");
     25 ok($n->readline(), "/sending to 'token_.*' os 'unix'/");