Mercurial > hg > memcached
view t/maxconns.t @ 3:0b6ac95a09bb default tip
Fix unix sockets support under FreeBSD.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Wed, 03 Oct 2007 05:34:42 +0400 |
parents | 30782bb1fc04 |
children |
line wrap: on
line source
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 11; use FindBin qw($Bin); use lib "$Bin/lib"; use MemcachedTest; # start up a server with 10 maximum connections my $server = new_memcached('-c 10'); my $sock = $server->sock; my @sockets; ok(defined($sock), 'Connection 0'); push (@sockets, $sock); foreach my $conn (1..10) { $sock = $server->new_sock; ok(defined($sock), "Made connection $conn"); push(@sockets, $sock); }