xref: /openbsd-src/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/180_verify_SSL.t (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031) 
1#!perl
2
3use strict;
4use warnings;
5use Test::More 0.88;
6use lib 't';
7
8use HTTP::Tiny;
9
10delete $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT};
11
12{
13    my $ht = HTTP::Tiny->new();
14    is($ht->verify_SSL, 1, "verify_SSL is 1 by default");
15}
16
17{
18    my $ht = HTTP::Tiny->new(
19        verify_SSL => 0
20    );
21    is($ht->verify_SSL, 0, "verify_SSL=>0 sets 0");
22}
23
24{
25    my $ht = HTTP::Tiny->new(
26        verify_ssl => 0
27    );
28    is($ht->verify_SSL, 0, "verify_ssl=>0 sets 0");
29}
30
31{
32    my $ht = HTTP::Tiny->new(
33        verify_SSL => 1,
34        verify_ssl => 0
35    );
36    is($ht->verify_SSL, 1, "verify_SSL=>1 and verify_ssl=>0 sets 1");
37}
38
39{
40    my $ht = HTTP::Tiny->new(
41        verify_SSL => 0,
42        verify_ssl => 1
43    );
44    is($ht->verify_SSL, 1, "verify_SSL=>0 and verify_ssl=>1 sets 1");
45}
46
47{
48    my $ht = HTTP::Tiny->new(
49        verify_SSL => 0,
50        verify_ssl => 0
51    );
52    is($ht->verify_SSL, 0, "verify_SSL=>0 and verify_ssl=>0 sets 0");
53}
54
55{
56    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "1";
57    my $ht = HTTP::Tiny->new();
58    is($ht->verify_SSL, 0, "PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=1 changes verify_SSL default to 0");
59}
60
61{
62    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "0";
63    my $ht = HTTP::Tiny->new();
64    is($ht->verify_SSL, 1, "PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=0 keeps verify_SSL default at 1");
65}
66
67{
68    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "False";
69    my $ht = HTTP::Tiny->new();
70    is($ht->verify_SSL, 1, "Unsupported PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=False keeps verify_SSL default at 1");
71}
72
73{
74    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "1";
75    my $ht = HTTP::Tiny->new(verify_SSL=>1);
76    is($ht->verify_SSL, 1, "PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=1 does not override verify_SSL attribute set to 1");
77}
78
79{
80    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "1";
81    my $ht = HTTP::Tiny->new(
82        verify_SSL => 1,
83        verify_ssl => 1
84    );
85    is($ht->verify_SSL, 1, "PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=1, verify_SSL=>1 and verify_ssl=>1 sets 1");
86}
87
88{
89    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "1";
90    my $ht = HTTP::Tiny->new(
91        verify_SSL => 1,
92        verify_ssl => 0
93    );
94    is($ht->verify_SSL, 1, "PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=1, verify_SSL=>1 and verify_ssl=>0 sets 1");
95}
96
97{
98    local $ENV{PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT} = "1";
99    my $ht = HTTP::Tiny->new(
100        verify_SSL => 0,
101        verify_ssl => 0
102    );
103    is($ht->verify_SSL, 0, "PERL_HTTP_TINY_SSL_INSECURE_BY_DEFAULT=1, verify_SSL=>0 and verify_ssl=>0 sets 0");
104}
105
106
107
108done_testing;
109
110