shlist

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

list_leave_unit.t (483B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 8 }
      6 
      7 my $s = SL::Test::Server->new();
      8 my $A = SL::Test::Client->new();
      9 
     10 # Try leaving a list your not in
     11 my $err = $A->list_leave('1234567', 'err');
     12 ok($err, 'the client sent an unknown list number');
     13 ok($s->readline(), "/unknown list number '.*'/");
     14 
     15 # Try leaving the empty list
     16 $err = $A->list_leave('', 'err');
     17 ok($err, 'the client sent a list number that was not a number');
     18 ok($s->readline(), "/'' is not a number/");