shlist

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

list_add_notify.t (480B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 9 }
      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 
     13 $A->friend_add($B->phnum());
     14 $B->friend_add($A->phnum());
     15 
     16 my $list = $A->list_add({ name => 'as list', date => 0 });
     17 
     18 # Check that notifications would have been sent
     19 ok($n->readline(), "/message type 'friend_added_list'/");
     20 ok($n->readline(), "/sending to 'token_.*' os 'unix'/");