git.m6w6.name Git - awesomized/libmemcached/blob - memcached/t/maxconns.t

   1 #!/usr/bin/perl
   2 # NOTE: This test never worked. Memcached would ignore maxconns requests lower
   3 # than the current ulimit. Test needs to be updated.
   4
   5 use strict;
   6 use warnings;
   7
   8 use Test::More tests => 11;
   9
  10 use FindBin qw($Bin);
  11 use lib "$Bin/lib";
  12 use MemcachedTest;
  13
  14
  15 # start up a server with 10 maximum connections
  16 my $server = new_memcached('-c 100');
  17 my $sock = $server->sock;
  18 my @sockets;
  19
  20 ok(defined($sock), 'Connection 0');
  21 push (@sockets, $sock);
  22
  23
  24 foreach my $conn (1..10) {
  25   $sock = $server->new_sock;
  26   ok(defined($sock), "Made connection $conn");
  27   push(@sockets, $sock);
  28 }