use lib qw(t/lib);
use DBICTest;
+use Scalar::Util 'blessed';
+
BEGIN {
require DBIx::Class;
plan skip_all =>
unless DBIx::Class::Optional::Dependencies->req_ok_for ('deploy')
}
+my $custom_deployment_statements_called = 0;
+
+sub DBICTest::Schema::deployment_statements {
+ $custom_deployment_statements_called = 1;
+ my $self = shift;
+ return $self->next::method(@_);
+}
+
my $schema = DBICTest->init_schema (no_deploy => 1);
{
my $not_first_table_creation_re = qr/CREATE TABLE fourkeys_to_twokeys/;
-
my $statements = $schema->deployment_statements;
like (
$statements,
);
}
+{
+ # use our own throw-away schema, since we'll be deploying twice
+ my $schema = DBICTest->init_schema (no_deploy => 1);
+
+ my $deploy_hook_called = 0;
+ $custom_deployment_statements_called = 0;
+
+ # add a temporary sqlt_deploy_hook to a source
+ local $DBICTest::Schema::Track::hook_cb = sub {
+ my ($class, $sqlt_table) = @_;
+
+ $deploy_hook_called = 1;
+
+ is ($class, 'DBICTest::Track', 'Result class passed to plain hook');
+ is (
+ $sqlt_table->schema->translator->producer_type,
+ join ('::', 'SQL::Translator::Producer', $schema->storage->sqlt_type),
+ 'Production type passed to translator object',
+ );
+ };
+
+ my $component_deploy_hook_called = 0;
+ local $DBICTest::DeployComponent::hook_cb = sub {
+ $component_deploy_hook_called = 1;
+ };
+
+ $schema->deploy; # do not remove, this fires the is() test in the callback above
+ ok($deploy_hook_called, 'deploy hook got called');
+ ok($custom_deployment_statements_called, '->deploy used the schemas deploy_statements method');
+ ok($component_deploy_hook_called, 'component deploy hook got called');
+}
{
my $deploy_hook_called = 0;
+ $custom_deployment_statements_called = 0;
# replace the sqlt calback with a custom version ading an index
$schema->source('Track')->sqlt_deploy_callback(sub {
$schema->deploy; # do not remove, this fires the is() test in the callback above
ok($deploy_hook_called, 'deploy hook got called');
+ ok($custom_deployment_statements_called, '->deploy used the schemas deploy_statements method');
}