The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! 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} ] } );