#! perl use warnings; use strict; use Test::More; BEGIN { eval { require Cache::Memcached }; if ( $@ ) { plan skip_all => 'Cache::Memcached is required for this test'; } require Algorithm::FloodControl::Backend::Cache::Memcached; } our $be = "Algorithm::FloodControl::Backend::Cache::Memcached"; if (! $ENV{ MEMCACHED_SERVER } ) { plan skip_all => '$ENV{ MEMCACHED_SERVER } is not set'; } plan tests => 6; require 't/tlib.pm'; $tlib::skip_concurrency = 1; tlib::test_backend( 'Cache::Memcached', { servers => [ $ENV{MEMCACHED_SERVER} ], debug => 0 })