shlist

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

two_lists_same_name.t (445B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 6 }
      6 
      7 my $s = SL::Test::Server->new();
      8 my $A = SL::Test::Client->new();
      9 
     10 # check that adding the same list twice works
     11 my $name = 'some list thats going to be added twice';
     12 $A->list_add({ name => $name, date => 0 });
     13 $A->list_add({ name => $name, date => 0 });
     14 
     15 my $num_lists = scalar(@{ $A->lists_get() });
     16 ok( $num_lists, 2 );
     17 # XXX: add validation this gives back 2 independent lists