use DBIx::Class::Schema::Loader::Utils 'dumper_squashed';
use List::MoreUtils 'apply';
use DBIx::Class::Schema::Loader::Optional::Dependencies ();
+use Try::Tiny;
use namespace::clean;
use dbixcsl_test_dir qw/$tdir/;
my $column_accessor_map_tests = 5;
my $num_rescans = 5;
- $num_rescans-- if $self->{vendor} eq 'sybase';
+ $num_rescans-- if $self->{vendor} =~ /^(?:sybase|mysql)\z/i;
+ $num_rescans++ if $self->{vendor} eq 'mssql';
+ $num_rescans++ if $self->{vendor} eq 'Firebird';
plan tests => @connect_info *
- (182 + $num_rescans * $column_accessor_map_tests + $extra_count + ($self->{data_type_tests}{test_count} || 0));
+ (188 + $num_rescans * $column_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];
my $dbh = $self->dbconnect(1);
$dbh->do($_) for @{ $self->{pre_create} || [] };
$dbh->do($_) for @{ $self->{extra}{create} || [] };
- $dbh->do($_) for @{ $self->{data_type_tests}{ddl} || []};
+
+ if (not ($self->{vendor} eq 'mssql' && $dbh->{Driver}{Name} eq 'Sybase')) {
+ $dbh->do($_) for @{ $self->{data_type_tests}{ddl} || []};
+ }
+
$self->{_created} = 1;
my $file_count = grep /CREATE (?:TABLE|VIEW)/i, @{ $self->{extra}{create} || [] };
$file_count++; # schema
- $file_count++ for @{ $self->{data_type_tests}{table_names} || [] };
+
+ if (not ($self->{vendor} eq 'mssql' && $dbh->{Driver}{Name} eq 'Sybase')) {
+ $file_count++ for @{ $self->{data_type_tests}{table_names} || [] };
+ }
my $schema_class = $self->setup_schema($info, $file_count);
my ($monikers, $classes) = $self->monikers_and_classes($schema_class);
$dbh->do($_) for @{ $self->{extra}{pre_drop_ddl} || [] };
$dbh->do("DROP TABLE $_") for @{ $self->{extra}{drop} || [] };
- foreach my $data_type_table (@{ $self->{data_type_tests}{table_names} || [] }) {
- $dbh->do("DROP TABLE $data_type_table");
+ if (not ($self->{vendor} eq 'mssql' && $dbh->{Driver}{Name} eq 'Sybase')) {
+ foreach my $data_type_table (@{ $self->{data_type_tests}{table_names} || [] }) {
+ $dbh->do("DROP TABLE $data_type_table");
+ }
}
}
additional_classes => 'TestAdditional',
additional_base_classes => 'TestAdditionalBase',
left_base_classes => [ qw/TestLeftBase/ ],
- components => [ qw/TestComponent/ ],
- inflect_plural => { loader_test4 => 'loader_test4zes' },
+ components => [ qw/TestComponent +TestComponentFQN/ ],
+ inflect_plural => { loader_test4_fkid => 'loader_test4zes' },
inflect_singular => { fkid => 'fkid_singular' },
moniker_map => \&_monikerize,
custom_column_info => \&_custom_column_info,
datetime_locale => 'de_DE',
use_moose => $ENV{SCHEMA_LOADER_TESTS_USE_MOOSE},
col_collision_map => { '^(can)\z' => 'caught_collision_%s' },
+ rel_collision_map => { '^(set_primary_key)\z' => 'caught_rel_collision_%s' },
column_accessor_map => \&test_column_accessor_map,
%{ $self->{loader_options} || {} },
);
if ($standard_sources) {
$expected_count = 36;
- $expected_count++ for @{ $self->{data_type_tests}{table_names} || [] };
+
+ if (not ($self->{vendor} eq 'mssql' && $connect_info->[0] =~ /Sybase/)) {
+ $expected_count++ for @{ $self->{data_type_tests}{table_names} || [] };
+ }
$expected_count += grep /CREATE (?:TABLE|VIEW)/i,
@{ $self->{extra}{create} || [] };
$warn_count++ for grep /\b(?!loader_test9)\w+ has no primary key/i, @loader_warnings;
- $warn_count++ for grep /^Column \w+ in table \w+ collides with an inherited method\./, @loader_warnings;
+ $warn_count++ for grep /^Column '\w+' in table '\w+' collides with an inherited method\./, @loader_warnings;
+
+ $warn_count++ for grep /^Relationship '\w+' in source '\w+' for columns '[^']+' collides with an inherited method\./, @loader_warnings;
$warn_count++ for grep { my $w = $_; grep $w =~ $_, @{ $self->{warnings} || [] } } @loader_warnings;
+ $warn_count-- for grep { my $w = $_; grep $w =~ $_, @{ $self->{failtrigger_warnings} || [] } } @loader_warnings;
+
if ($standard_sources) {
if($self->{skip_rels}) {
SKIP: {
isa_ok( $rsobj35, "DBIx::Class::ResultSet" );
my @columns_lt2 = $class2->columns;
- is_deeply( \@columns_lt2, [ qw/id dat dat2 set_primary_key can dbix_class_testcomponent meta/ ], "Column Ordering" );
+ is_deeply( \@columns_lt2, [ qw/id dat dat2 set_primary_key can dbix_class_testcomponent testcomponent_fqn meta/ ], "Column Ordering" );
is $class2->column_info('can')->{accessor}, 'caught_collision_can',
'accessor for column name that conflicts with a UNIVERSAL method renamed based on col_collision_map';
is $class2->column_info('dbix_class_testcomponent')->{accessor}, undef,
'accessor for column name that conflicts with a component class method removed';
+ is $class2->column_info('testcomponent_fqn')->{accessor}, undef,
+ 'accessor for column name that conflicts with a fully qualified component class method removed';
+
is $class2->column_info('meta')->{accessor}, undef,
'accessor for column name that conflicts with Moose removed';
'Additional Component' );
}
+ is ((try { $class1->testcomponent_fqn }), 'TestComponentFQN works',
+ 'fully qualified component class');
+
SKIP: {
can_ok( $class1, 'loader_test1_classmeth' )
or skip "Pre-requisite test failed", 1;
);
SKIP: {
- skip $self->{skip_rels}, 116 if $self->{skip_rels};
+ skip $self->{skip_rels}, 120 if $self->{skip_rels};
my $moniker3 = $monikers->{loader_test3};
my $class3 = $classes->{loader_test3};
my $obj4 = $rsobj4->find(123);
isa_ok( $obj4->fkid_singular, $class3);
+ # test renaming rel that conflicts with a class method
+ ok ($obj4->has_relationship('belongs_to_rel'), 'relationship name that conflicts with a method renamed');
+ isa_ok( $obj4->belongs_to_rel, $class3);
+
+ ok ($obj4->has_relationship('caught_rel_collision_set_primary_key'),
+ 'relationship name that conflicts with a method renamed based on rel_collision_map');
+ isa_ok( $obj4->caught_rel_collision_set_primary_key, $class3);
+
ok($class4->column_info('fkid')->{is_foreign_key}, 'Foreign key detected');
my $obj3 = $rsobj3->find(1);
sub test_data_types {
my ($self, $conn) = @_;
- if ($self->{data_type_tests}{test_count}) {
- my $data_type_tests = $self->{data_type_tests};
+ SKIP: {
+ if (my $test_count = $self->{data_type_tests}{test_count}) {
+ if ($self->{vendor} eq 'mssql' && $conn->storage->dbh->{Driver}{Name} eq 'Sybase') {
+ skip 'DBD::Sybase does not work with the data_type tests on latest SQL Server', $test_count;
+ }
- foreach my $moniker (@{ $data_type_tests->{table_monikers} }) {
- my $columns = $data_type_tests->{columns}{$moniker};
+ my $data_type_tests = $self->{data_type_tests};
- my $rsrc = $conn->resultset($moniker)->result_source;
+ foreach my $moniker (@{ $data_type_tests->{table_monikers} }) {
+ my $columns = $data_type_tests->{columns}{$moniker};
- while (my ($col_name, $expected_info) = each %$columns) {
- my %info = %{ $rsrc->column_info($col_name) };
- delete @info{qw/is_nullable timezone locale sequence/};
+ my $rsrc = $conn->resultset($moniker)->result_source;
- my $text_col_def = dumper_squashed \%info;
+ while (my ($col_name, $expected_info) = each %$columns) {
+ my %info = %{ $rsrc->column_info($col_name) };
+ delete @info{qw/is_nullable timezone locale sequence/};
- my $text_expected_info = dumper_squashed $expected_info;
+ my $text_col_def = dumper_squashed \%info;
- is_deeply \%info, $expected_info,
- "test column $col_name has definition: $text_col_def expecting: $text_expected_info";
+ my $text_expected_info = dumper_squashed $expected_info;
+
+ is_deeply \%info, $expected_info,
+ "test column $col_name has definition: $text_col_def expecting: $text_expected_info";
+ }
}
}
}
local $conn->_loader->{preserve_case} = 1;
$conn->_loader->_setup;
-
$self->rescan_without_warnings($conn);
if (not $self->{skip_rels}) {
set_primary_key INTEGER $self->{null},
can INTEGER $self->{null},
dbix_class_testcomponent INTEGER $self->{null},
+ testcomponent_fqn INTEGER $self->{null},
meta INTEGER $self->{null},
UNIQUE (dat2, dat)
) $self->{innodb}
fkid INTEGER NOT NULL,
dat VARCHAR(32),
crumb_crisp_coating VARCHAR(32) $self->{null},
- FOREIGN KEY( fkid ) REFERENCES loader_test3 (id)
+ belongs_to INTEGER $self->{null},
+ set_primary_key INTEGER $self->{null},
+ FOREIGN KEY( fkid ) REFERENCES loader_test3 (id),
+ FOREIGN KEY( belongs_to ) REFERENCES loader_test3 (id),
+ FOREIGN KEY( set_primary_key ) REFERENCES loader_test3 (id)
) $self->{innodb}
},
- q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(123,1,'aaa') },
- q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(124,2,'bbb') },
- q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(125,3,'ccc') },
- q{ INSERT INTO loader_test4 (id,fkid,dat) VALUES(126,4,'ddd') },
+ q{ INSERT INTO loader_test4 (id,fkid,dat,belongs_to,set_primary_key) VALUES(123,1,'aaa',1,1) },
+ q{ INSERT INTO loader_test4 (id,fkid,dat,belongs_to,set_primary_key) VALUES(124,2,'bbb',2,2) },
+ q{ INSERT INTO loader_test4 (id,fkid,dat,belongs_to,set_primary_key) VALUES(125,3,'ccc',3,3) },
+ q{ INSERT INTO loader_test4 (id,fkid,dat,belongs_to,set_primary_key) VALUES(126,4,'ddd',4,4) },
qq|
CREATE TABLE loader_test5 (
$dbh->do($_) foreach (@statements);
- $dbh->do($_) foreach (@{ $self->{data_type_tests}{ddl} || [] });
+ if (not ($self->{vendor} eq 'mssql' && $dbh->{Driver}{Name} eq 'Sybase')) {
+ $dbh->do($_) foreach (@{ $self->{data_type_tests}{ddl} || [] });
+ }
unless($self->{skip_rels}) {
# hack for now, since DB2 doesn't like inline comments, and we need
# For some reason some tests do this twice (I guess dependency issues?)
# do it twice for all drops
for (1,2) {
- my $dbh = $self->dbconnect(0);
+ my $dbh = $self->dbconnect(0);
- $dbh->do($_) for @{ $self->{extra}{pre_drop_ddl} || [] };
+ $dbh->do($_) for @{ $self->{extra}{pre_drop_ddl} || [] };
- $dbh->do("DROP TABLE $_") for @{ $self->{extra}{drop} || [] };
+ $dbh->do("DROP TABLE $_") for @{ $self->{extra}{drop} || [] };
- my $drop_auto_inc = $self->{auto_inc_drop_cb} || sub {};
+ my $drop_auto_inc = $self->{auto_inc_drop_cb} || sub {};
- unless($self->{skip_rels}) {
- $dbh->do("DROP TABLE $_") for (@tables_reltests);
- $dbh->do("DROP TABLE $_") for (@tables_reltests);
- if($self->{vendor} =~ /mysql/i) {
- $dbh->do($drop_fk_mysql);
- }
- else {
- $dbh->do($drop_fk);
- }
- $dbh->do($_) for map { $drop_auto_inc->(@$_) } @tables_advanced_auto_inc;
- $dbh->do("DROP TABLE $_") for (@tables_advanced);
+ unless($self->{skip_rels}) {
+ $dbh->do("DROP TABLE $_") for (@tables_reltests);
+ $dbh->do("DROP TABLE $_") for (@tables_reltests);
+ if($self->{vendor} =~ /mysql/i) {
+ $dbh->do($drop_fk_mysql);
+ }
+ else {
+ $dbh->do($drop_fk);
+ }
+ $dbh->do($_) for map { $drop_auto_inc->(@$_) } @tables_advanced_auto_inc;
+ $dbh->do("DROP TABLE $_") for (@tables_advanced);
- unless($self->{no_inline_rels}) {
- $dbh->do("DROP TABLE $_") for (@tables_inline_rels);
- }
- unless($self->{no_implicit_rels}) {
- $dbh->do("DROP TABLE $_") for (@tables_implicit_rels);
+ unless($self->{no_inline_rels}) {
+ $dbh->do("DROP TABLE $_") for (@tables_inline_rels);
+ }
+ unless($self->{no_implicit_rels}) {
+ $dbh->do("DROP TABLE $_") for (@tables_implicit_rels);
+ }
}
- }
- $dbh->do($_) for map { $drop_auto_inc->(@$_) } @tables_auto_inc;
- $dbh->do("DROP TABLE $_") for (@tables, @tables_rescan);
+ $dbh->do($_) for map { $drop_auto_inc->(@$_) } @tables_auto_inc;
+ $dbh->do("DROP TABLE $_") for (@tables, @tables_rescan);
- foreach my $data_type_table (@{ $self->{data_type_tests}{table_names} || [] }) {
- $dbh->do("DROP TABLE $data_type_table");
- }
+ if (not ($self->{vendor} eq 'mssql' && $dbh->{Driver}{Name} eq 'Sybase')) {
+ foreach my $data_type_table (@{ $self->{data_type_tests}{table_names} || [] }) {
+ $dbh->do("DROP TABLE $data_type_table");
+ }
+ }
- my ($oqt, $cqt) = $self->get_oqt_cqt(always => 1);
+ my ($oqt, $cqt) = $self->get_oqt_cqt(always => 1);
- $dbh->do("DROP TABLE ${oqt}${_}${cqt}") for @tables_preserve_case_tests;
+ $dbh->do("DROP TABLE ${oqt}${_}${cqt}") for @tables_preserve_case_tests;
- $dbh->disconnect;
+ $dbh->disconnect;
}
}
sub test_column_accessor_map {
my ( $column_name, $default_name, $context ) = @_;
- if( $column_name eq 'crumb_crisp_coating' ) {
+ if( lc($column_name) eq 'crumb_crisp_coating' ) {
is( $default_name, 'crumb_crisp_coating', 'column_accessor_map was passed the default name' );
ok( $context->{$_}, "column_accessor_map func was passed the $_" )
projects / dbsrgits/DBIx-Class-Schema-Loader.git / blobdiff