my $extra_count = $self->{extra}{count} || 0;
- plan tests => @connect_info * (181 + $extra_count + ($self->{data_type_tests}{test_count} || 0));
+ plan tests => @connect_info * (182 + $extra_count + ($self->{data_type_tests}{test_count} || 0));
foreach my $info_idx (0..$#connect_info) {
my $info = $connect_info[$info_idx];
my $self = shift;
my $dbh = $self->dbconnect(0);
- $dbh->do($_) for @{ $self->{extra}{pre_drop_ddl} || [] };
+
+ {
+ local $SIG{__WARN__} = sub {}; # postgres notices
+ $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} || [] }) {
my $debug = ($self->{verbose} > 1) ? 1 : 0;
+ eval <<'EOF';
+require Moose;
+require MooseX::NonMoose;
+require namespace::autoclean;
+EOF
+ my $use_moose = $@ ? 0 : 1;
+
my %loader_opts = (
constraint =>
qr/^(?:\S+\.)?(?:(?:$self->{vendor}|extra)_?)?loader_?test[0-9]+(?!.*_)/i,
dump_directory => $DUMP_DIR,
datetime_timezone => 'Europe/Berlin',
datetime_locale => 'de_DE',
+ use_moose => $use_moose,
%{ $self->{loader_options} || {} },
);
isa_ok( $rsobj35, "DBIx::Class::ResultSet" );
my @columns_lt2 = $class2->columns;
- is_deeply( \@columns_lt2, [ qw/id dat dat2 set_primary_key dbix_class_testcomponent/ ], "Column Ordering" );
+ is_deeply( \@columns_lt2, [ qw/id dat dat2 set_primary_key dbix_class_testcomponent meta/ ], "Column Ordering" );
is $class2->column_info('set_primary_key')->{accessor}, undef,
'accessor for column name that conflicts with a result base class method removed';
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('meta')->{accessor}, undef,
+ 'accessor for column name that conflicts with Moose removed';
+
my %uniq1 = $class1->unique_constraints;
my $uniq1_test = 0;
foreach my $ucname (keys %uniq1) {
dat2 VARCHAR(32) NOT NULL,
set_primary_key INTEGER $self->{null},
dbix_class_testcomponent INTEGER $self->{null},
+ meta INTEGER $self->{null},
UNIQUE (dat2, dat)
) $self->{innodb}
},
my $dbh = $self->dbconnect(0);
- $dbh->do($_) for @{ $self->{extra}{pre_drop_ddl} || [] };
+ {
+ local $SIG{__WARN__} = sub {}; # postgres notices
+ $dbh->do($_) for @{ $self->{extra}{pre_drop_ddl} || [] };
+ }
+
$dbh->do("DROP TABLE $_") for @{ $self->{extra}{drop} || [] };
my $drop_auto_inc = $self->{auto_inc_drop_cb} || sub {};
my %DATA_TYPE_MULTI_TABLE_OVERRIDES = (
oracle => qr/\blong\b/i,
mssql => qr/\b(?:timestamp|rowversion)\b/i,
+ informix => qr/\b(?:bigserial|serial8)\b/i,
);
sub setup_data_type_tests {