root/lang/perl/Cache-Memcached-LibMemcached/branch/perl-memcached/t/09_disconnect.t @ 5392

use strict;
use Test::More;

BEGIN
{
    if (! $ENV{ MEMCACHED_SERVER } ) {
        plan(skip_all => "Define MEMCACHED_SERVER (e.g. localhost:11211) to run this test");
    } else {
        plan(tests => 2);
    }
    use_ok("Cache::Memcached::LibMemcached");
}

my $cache = Cache::Memcached::LibMemcached->new( {
    servers => [ $ENV{ MEMCACHED_SERVER } ]
});

{
    $cache->disconnect_all;
    ok(1);
}

1;