RT4272: Unit tests fail when DTLS disabled

Missing SKIP: block in SSL unit tests for DTLS and TLS version tests.

Reviewed-by: Matt Caswell <matt@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
Todd Short 2016-01-25 12:44:15 -05:00 committed by Richard Levitte
parent aa50e2a39d
commit 835894d138

View File

@ -657,6 +657,7 @@ sub testssl {
my $n = ((@protos+2) * (@protos+3))/2 - 2; my $n = ((@protos+2) * (@protos+3))/2 - 2;
my $ntests = $n * $n; my $ntests = $n * $n;
plan tests => $ntests; plan tests => $ntests;
SKIP: {
skip "TLS disabled", 1 if $ntests == 1; skip "TLS disabled", 1 if $ntests == 1;
my $should; my $should;
@ -690,7 +691,7 @@ sub testssl {
print STDERR "\nFailed: @args\n"; print STDERR "\nFailed: @args\n";
} }
ok($ok); ok($ok);
}}}} }}}}}
}; };
subtest 'DTLS Version min/max tests' => sub { subtest 'DTLS Version min/max tests' => sub {
@ -703,6 +704,7 @@ sub testssl {
my $n = ((@protos+2) * (@protos+3))/2 - 2; my $n = ((@protos+2) * (@protos+3))/2 - 2;
my $ntests = $n * $n; my $ntests = $n * $n;
plan tests => $ntests; plan tests => $ntests;
SKIP: {
skip "DTLS disabled", 1 if $ntests == 1; skip "DTLS disabled", 1 if $ntests == 1;
my $should; my $should;
@ -736,7 +738,7 @@ sub testssl {
print STDERR "\nFailed: @args\n"; print STDERR "\nFailed: @args\n";
} }
ok($ok); ok($ok);
}}}} }}}}}
}; };
} }