Blame t/ssl_verify_modes.t

Packit 4e8bc4
#!/usr/bin/perl
Packit 4e8bc4
Packit 4e8bc4
use strict;
Packit 4e8bc4
use warnings;
Packit 4e8bc4
use Test::More;
Packit 4e8bc4
use FindBin qw($Bin);
Packit 4e8bc4
use lib "$Bin/lib";
Packit 4e8bc4
use MemcachedTest;
Packit 4e8bc4
use Cwd;
Packit 4e8bc4
Packit 4e8bc4
if (!enabled_tls_testing()) {
Packit 4e8bc4
    plan skip_all => 'SSL testing is not enabled';
Packit 4e8bc4
    exit 0;
Packit 4e8bc4
}
Packit 4e8bc4
Packit 4e8bc4
my $ca_crt = getcwd() . "/t/" . MemcachedTest::CA_CRT;
Packit 4e8bc4
my $server = new_memcached("-o ssl_verify_mode=2 -o ssl_ca_cert=$ca_crt");
Packit 4e8bc4
# just using stats to make sure everything is working fine.
Packit 4e8bc4
my $stats = mem_stats($server->sock);
Packit 4e8bc4
is($stats->{accepting_conns}, 1, "client cert is verified");
Packit 4e8bc4
Packit 4e8bc4
done_testing();