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