#!/usr/bin/perl

use strict;
use warnings;
use Test::More;
use FindBin qw($Bin);
use lib "$Bin/lib";
use MemcachedTest;


if (!enabled_tls_testing()) {
    plan skip_all => 'SSL testing is not enabled';
    exit 0;
}

my $tcp_port = free_port();
my $ssl_port = free_port();

my $server = new_memcached("-l notls:127.0.0.1:$tcp_port,127.0.0.1:$ssl_port", $ssl_port);
my $sock = $server->sock;

# Make sure we can talk over SSL
print $sock "set foo:123 0 0 16\r\nfoo set over SSL\r\n";
is(scalar <$sock>, "STORED\r\n", "stored foo");


#.. and TCP
my $tcp_sock = IO::Socket::INET->new(PeerAddr => "127.0.0.1:$tcp_port");
mem_get_is($tcp_sock, "foo:123", "foo set over SSL");

done_testing()