{
naming => 'current',
db_schema => $db_schema,
- moniker_parts => [qw/schema name/],
dump_directory => EXTRA_DUMP_DIR,
quiet => 1,
},
} 'connected test schema';
lives_and {
- ok $rsrc = $test_schema->source('DbicslDashTestDb2LoaderTest4');
+ ok $rsrc = $test_schema->source('Db2LoaderTest4');
} 'got source for table in schema name with dash';
is try { $rsrc->column_info('id')->{is_auto_increment} }, 1,
'column in schema name with dash';
lives_and {
- ok $rs = $test_schema->resultset('DbicslDashTestDb2LoaderTest4');
+ ok $rs = $test_schema->resultset('Db2LoaderTest4');
} 'got resultset for table in schema name with dash';
lives_and {
'correct unique constraint in schema name with dash');
lives_and {
- ok $rsrc = $test_schema->source('DbicslDotTestDb2LoaderTest6');
+ ok $rsrc = $test_schema->source('Db2LoaderTest6');
} 'got source for table in schema name with dot';
is try { $rsrc->column_info('id')->{is_auto_increment} }, 1,
'column in schema name with dot introspected correctly';
lives_and {
- ok $rs = $test_schema->resultset('DbicslDotTestDb2LoaderTest6');
+ ok $rs = $test_schema->resultset('Db2LoaderTest6');
} 'got resultset for table in schema name with dot';
lives_and {
'relationship in schema name with dot';
lives_and {
- ok $rsrc = $test_schema->source('DbicslDotTestDb2LoaderTest7');
+ ok $rsrc = $test_schema->source('Db2LoaderTest7');
} 'got source for table in schema name with dot';
%uniqs = try { $rsrc->unique_constraints };
'correct unique constraint in schema name with dot');
lives_and {
- ok $test_schema->source('DbicslDotTestDb2LoaderTest6')
+ ok $test_schema->source('Db2LoaderTest6')
->has_relationship('db2_loader_test4');
} 'cross-schema relationship in multi-db_schema';
lives_and {
- ok $test_schema->source('DbicslDashTestDb2LoaderTest4')
+ ok $test_schema->source('Db2LoaderTest4')
->has_relationship('db2_loader_test6s');
} 'cross-schema relationship in multi-db_schema';
lives_and {
- ok $test_schema->source('DbicslDashTestDb2LoaderTest8')
+ ok $test_schema->source('Db2LoaderTest8')
->has_relationship('db2_loader_test7');
} 'cross-schema relationship in multi-db_schema';
lives_and {
- ok $test_schema->source('DbicslDotTestDb2LoaderTest7')
+ ok $test_schema->source('Db2LoaderTest7')
->has_relationship('db2_loader_test8s');
} 'cross-schema relationship in multi-db_schema';
}