Test that invalid ssl option combinations are checked

Author: choroba

MANIFEST

@@ -86,6 +86,7 @@ t/90utf8_params.t
 t/91errcheck.t
 t/92ssl_connection.t
 t/92ssl_optional.t
+t/92ssl_options.t
 t/92ssl_backronym_vulnerability.t
 t/92ssl_riddle_vulnerability.t
 t/93net_ssleay.t

t/92ssl_options.t

@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+
+use Test::More;
+use DBI;
+
+use vars qw($test_dsn $test_user $test_password);
+use lib 't', '.';
+require "lib.pl";
+
+plan tests => 1;
+
+my $dbh = DBI->connect($test_dsn, $test_user, $test_password, { PrintError => 0, RaiseError => 0, mariadb_ssl => 0, mariadb_ssl_verify_server_cert => 1 });
+ok(! defined $dbh && $DBI::errstr =~ /but SSL encryption was not enabled/,
+   'DBD::MariaDB cannot use other ssl options if ssl is not enabled'
+) or diag(defined $dbh ? 'Connection succeeded' : "Unexpected error: $DBI::errstr");