Adding a copy of memcached to the tree.

[awesomized/libmemcached] / memcached / t / maxconns.t

diff --git a/memcached/t/maxconns.t b/memcached/t/maxconns.t
new file mode 100755 (executable)
index 0000000..14b5eae
--- /dev/null
+++ b/memcached/t/maxconns.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+# NOTE: This test never worked. Memcached would ignore maxconns requests lower
+# than the current ulimit. Test needs to be updated.
+
+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 100');
+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);
+}