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'/");