$num_rescans++ if $self->{vendor} eq 'Firebird';
plan tests => @connect_info *
- (221 + $num_rescans * $col_accessor_map_tests + $extra_count + ($self->{data_type_tests}{test_count} || 0));
+ (223 + $num_rescans * $col_accessor_map_tests + $extra_count + ($self->{data_type_tests}{test_count} || 0));
foreach my $info_idx (0..$#connect_info) {
my $info = $connect_info[$info_idx];
sub CONSTRAINT {
my $self = shift;
-return qr/^(?:\S+\.)?(?:(?:$self->{vendor}|extra)[_-]?)?loader[_-]?test[0-9]+(?!.*_)/i;
+return qr/^(?:(?:$self->{vendor}|extra)[_-]?)?loader[_-]?test[0-9]+(?!.*_)/i;
}
sub setup_schema {
) : (),
col_collision_map => { '^(can)\z' => 'caught_collision_%s' },
rel_collision_map => { '^(set_primary_key)\z' => 'caught_rel_collision_%s' },
+ relationship_attrs => { many_to_many => { order_by => 'me.id' } },
col_accessor_map => \&test_col_accessor_map,
result_components_map => { LoaderTest2X => 'TestComponentForMap', LoaderTest1 => '+TestComponentForMapFQN' },
uniq_to_primary => 1,
ok($m2m = (try { $class18->_m2m_metadata->{children} }), 'many_to_many created');
- is $m2m->{relation}, 'loader_test20s', 'm2m near rel';
+ is $m2m->{relation}, 'loader_test20s', 'm2m near has_many rel';
is $m2m->{foreign_relation}, 'child', 'm2m far rel';
+ is $m2m->{attrs}->{order_by}, 'me.id', 'm2m bridge attrs';
ok($m2m = (try { $class19->_m2m_metadata->{parents} }), 'many_to_many created');
- is $m2m->{relation}, 'loader_test20s', 'm2m near rel';
+ is $m2m->{relation}, 'loader_test20', 'm2m near might_have rel';
is $m2m->{foreign_relation}, 'parent', 'm2m far rel';
+ is $m2m->{attrs}->{order_by}, 'me.id', 'm2m bridge attrs';
# test double multi-col fk 26 -> 25
my $obj26 = try { $rsobj26->find(33) } || $rsobj26->search({ id => 33 })->single;
qq{
CREATE TABLE loader_test20 (
parent INTEGER NOT NULL,
- child INTEGER NOT NULL,
+ child INTEGER NOT NULL UNIQUE,
PRIMARY KEY (parent, child),
FOREIGN KEY (parent) REFERENCES loader_test18 (id),
FOREIGN KEY (child) REFERENCES loader_test19 (id)