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