shlist

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

list_leave.t (393B)

      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 my $list = $A->list_add({ name => 'this list was made for leaving', date => 0 });
     11 $A->list_leave($list->{num});
     12 
     13 # verify we don't get this list back when requesting all lists
     14 ok( scalar( @{ $A->lists_get() } ), 0 );
     15 ok( scalar(@{ $A->lists_get_other() }), 0 );