use strict;
use warnings;
use Test::More tests => 6;
use Module::Build::Database;
use Module::Build::Database::SQLite;
use Module::Build::Database::PostgreSQL;
#use YAML ();
#diag YAML::Dump(
# [Module::Build::Database->hash_properties],
# [Module::Build::Database::SQLite->hash_properties],
# [Module::Build::Database::PostgreSQL->hash_properties],
#);
foreach my $class (qw( Module::Build::Database Module::Build::Database::SQLite Module::Build::Database::PostgreSQL ))
{
is int(grep { $_ eq 'install_path' } $class->hash_properties), 1, "$class has install_path property";
}
is int(grep { $_ eq 'database_options' } Module::Build::Database::SQLite->hash_properties), 1, "Module::Build::Database::SQLite has database_options property";
is int(grep { $_ eq 'database_options' } Module::Build::Database::PostgreSQL->hash_properties), 1, "Module::Build::Database::PostgreSQL has database_options property";
is int(grep { $_ eq 'database_extensions' } Module::Build::Database::PostgreSQL->hash_properties), 1, "Module::Build::Database::PostgreSQL has database_extensions property";