1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!perl
use strict;
use warnings;
use Test::More 0.88;
use lib 't';
use HTTP::Tiny;
plan 'skip_all' => "Only run if HTTP::Tiny->can_ssl()"
unless HTTP::Tiny->can_ssl(); # also requires IO::Socket:SSL
delete $ENV{SSL_CERT_FILE};
delete $ENV{SSL_CERT_DIR};
$ENV{SSL_CERT_FILE} = "corpus/snake-oil.crt";
my $handle = HTTP::Tiny::Handle->new();
my %ret = $handle->_find_CA();
is($ret{SSL_ca_file}, "corpus/snake-oil.crt",
"HTTP::Tiny::Handle::_find_CA returns expected SSL_CERT_FILE in SSL_ca_file");
is($handle->_find_CA_file(), "corpus/snake-oil.crt",
"HTTP::Tiny::Handle::_find_CA_file() backwards compat shim returns expected SSL_CERT_FILE");
done_testing;
|
