+use DBIx::Class::Schema::Loader::Optional::Dependencies
+ -skip_all_without => 'test_rdbms_informix';
+
use strict;
use warnings;
use Test::More;
my ($schema, $extra_schema); # for cleanup in END for extra tests
-my $tester = dbixcsl_common_tests->new(
+dbixcsl_common_tests->new(
vendor => 'Informix',
auto_inc_pk => 'serial primary key',
null => '',
numeric => { data_type => 'numeric' },
decimal => { data_type => 'numeric' },
dec => { data_type => 'numeric' },
- 'numeric(6,3)' => { data_type => 'numeric', size => [6,3] },
- 'decimal(6,3)' => { data_type => 'numeric', size => [6,3] },
- 'dec(6,3)' => { data_type => 'numeric', size => [6,3] },
+ 'numeric(6,3)' => { data_type => 'numeric', size => [6,3] },
+ 'decimal(6,3)' => { data_type => 'numeric', size => [6,3] },
+ 'dec(6,3)' => { data_type => 'numeric', size => [6,3] },
# Boolean Type
# XXX this should map to 'boolean'
push @warns, $_[0] unless $_[0] =~ /\bcollides\b/
|| $_[0] =~ /unreferencable/;
};
-
+
make_schema_at(
'InformixMultiDatabase',
{
}
},
},
-);
-
-if( !$dsn ) {
- $tester->skip_tests('You need to set the DBICTEST_INFORMIX_DSN, _USER, and _PASS environment variables');
-}
-else {
- $tester->run_tests();
-}
+)->run_tests();
sub db_name {
my $schema = shift;
}
if (my $dbh1 = try { $schema->storage->dbh }) {
-
+
try {
$dbh1->do('DROP TABLE informix_loader_test5');
$dbh1->do('DROP TABLE informix_loader_test4');