shlist

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

friend_add.t (749B)


      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 13 }
      6 
      7 my $s = SL::Test::Server->new();
      8 my $A = SL::Test::Client->new();
      9 
     10 # Normal message
     11 $A->friend_add('54321');
     12 
     13 # Re-add same friend
     14 $A->friend_add('54321');
     15 
     16 # Non numeric phone number
     17 my $err = $A->friend_add('123asdf', 'err');
     18 ok($err, 'friends phone number is not a valid phone number');
     19 ok( $s->readline(), "/bad friends number '.*'/" );
     20 
     21 # Empty phone number
     22 $err = $A->friend_add('', 'err');
     23 ok($err, 'friends phone number is not a valid phone number');
     24 ok( $s->readline(), "/bad friends number '.*'/" );
     25 
     26 # Friending yourself
     27 $err = $A->friend_add($A->phnum(), 'err');
     28 ok($err, 'device cannot add itself as a friend');
     29 ok( $s->readline(), "/device '.*' tried adding itself/" );