use base 'DBICTest::BaseResult';
use DBICTest::Util 'check_customcond_args';
+# The component order is Part of a test,
+# important to remain as-is
__PACKAGE__->load_components(qw{
+DBICTest::DeployComponent
InflateColumn::DateTime
"$args->{foreign_alias}.cdid" => { -ident => "$args->{self_alias}.cd" },
},
- ( $args->{self_resultobj} ? {
- "$args->{foreign_alias}.cdid" => $args->{self_resultobj}->cd
- } : () ),
+ ! $args->{self_result_object} ? () : {
+ "$args->{foreign_alias}.cdid" => $args->{self_result_object}->get_column('cd')
+ },
- ( $args->{foreign_resultobj} ? {
- "$args->{self_alias}.cd" => $args->{foreign_resultobj}->cdid
- } : () ),
+ ! $args->{foreign_values} ? () : {
+ "$args->{self_alias}.cd" => $args->{foreign_values}{cdid}
+ },
);
}
);
{ "$args->{foreign_alias}.cd" => { -ident => "$args->{self_alias}.cd" },
"$args->{foreign_alias}.position" => { '>' => { -ident => "$args->{self_alias}.position" } },
},
- $args->{self_rowobj} && {
- "$args->{foreign_alias}.cd" => $args->{self_rowobj}->get_column('cd'),
- "$args->{foreign_alias}.position" => { '>' => $args->{self_rowobj}->pos },
+ $args->{self_result_object} && {
+ "$args->{foreign_alias}.cd" => $args->{self_result_object}->get_column('cd'),
+ "$args->{foreign_alias}.position" => { '>' => $args->{self_result_object}->pos },
}
)
}
);
+__PACKAGE__->has_many (
+ deliberately_broken_all_cd_tracks => __PACKAGE__,
+ sub {
+ # This is for test purposes only. A regular user does not
+ # need to sanity check the passed-in arguments, this is what
+ # the tests are for :)
+ my $args = &check_customcond_args;
+
+ return {
+ "$args->{foreign_alias}.cd" => "$args->{self_alias}.cd"
+ };
+ }
+);
+
our $hook_cb;
sub sqlt_deploy_hook {