shlist

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

large_response.t (435B)

      1 use strict;
      2 use Test;
      3 use SL::Test;
      4 
      5 BEGIN { plan tests => 44 }
      6 
      7 # Test that large responses > 16384 bytes work as the underlying ssl layer can
      8 # only handle that much data at a time
      9 my $s = SL::Test::Server->new();
     10 my $A = SL::Test::Client->new();
     11 
     12 $A->list_add({ name => "$_" x 1000, date => 0}) for (1..20);
     13 
     14 my $count = 0;
     15 for my $list (@{ $A->lists_get() }) {
     16 	$count += 1;
     17 	ok("$count" x 1000, $list->{name});
     18 }
     19 
     20 ok($count, 20);