Test that invalid ssl option combinations are checked

Author: choroba

t/92ssl_optional.t

@@ -13,10 +13,15 @@ my $have_ssl = eval { $dbh->selectrow_hashref("SHOW VARIABLES WHERE Variable_nam
 $dbh->disconnect();
 plan skip_all => 'Server supports SSL connections, cannot test fallback to plain text' if $have_ssl and $have_ssl->{Value} eq 'YES';
 
-plan tests => 2;
+plan tests => 3;
 
 $dbh = DBI->connect($test_dsn, $test_user, $test_password, { PrintError => 0, RaiseError => 0, mariadb_ssl => 1, mariadb_ssl_optional => 1 });
 ok(defined $dbh, 'DBD::MariaDB supports mariadb_ssl_optional=1 and connect via plain text protocol when SSL is not supported by server') or diag('Error code: ' . ($DBI::err || 'none') . "\n" . 'Error message: ' . ($DBI::errstr || 'unknown'));
 
 $dbh = DBI->connect($test_dsn, $test_user, $test_password, { PrintError => 0, RaiseError => 0, mariadb_ssl => 1, mariadb_ssl_optional => 1, mariadb_ssl_ca_file => "" });
 ok(defined $dbh, 'DBD::MariaDB supports mariadb_ssl_optional=1 and connect via plain text protocol when SSL is not supported by server even with mariadb_ssl_ca_file') or diag('Error code: ' . ($DBI::err || 'none') . "\n" . 'Error message: ' . ($DBI::errstr || 'unknown'));
+
+$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");