use warnings;
use strict;

use Test::More;

use FindBin;

use lib "$FindBin::Bin";
use Memd;

if ($Memd::memd) {
    diag("Connected to " . scalar @Memd::addr
         . " memcached servers, lowest version $Memd::version_str");
    plan tests => 2;
    pass('connected');

    my $server_versions = $Memd::memd->server_versions;
    $Memd::memd->disconnect_all;
    is_deeply($Memd::memd->server_versions, $server_versions, "server_versions still works after disconnect_all");
} else {
    plan skip_all => $Memd::error;
}