shlist

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

friend_delete_unit.t (783B)

      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 # Someone who is not your friend
     11 my $err = $A->friend_delete('12345', 'err');
     12 ok($err, 'friend sent for deletion was not a friend');
     13 ok($s->readline(), "/tried deleting friend '.*' but they weren't a friend/");
     14 
     15 # Non numeric friends phone number
     16 $err = $A->friend_delete('asdf123', 'err');
     17 ok($err, 'friends phone number is not a valid phone number');
     18 ok($s->readline(), "/bad friends number '.*'/");
     19 
     20 # Empty phone number
     21 $err = $A->friend_delete('', 'err');
     22 ok($err, 'friends phone number is not a valid phone number');
     23 ok($s->readline(), "/bad friends number '.*'/");
     24 
     25 # Add/delete cycle works
     26 $A->friend_add('12345');
     27 $A->friend_delete('12345');