Check truth of preserve_case not definedness

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 10_04db2_common.t

diff --git a/t/10_04db2_common.t b/t/10_04db2_common.t
index b86ca49..30f1257 100644 (file)
--- a/t/10_04db2_common.t
+++ b/t/10_04db2_common.t
@@ -185,7 +185,6 @@ EOF
                             {
                                 naming => 'current',
                                 db_schema => $db_schema,
-                                moniker_parts => [qw/schema name/],
                                 dump_directory => EXTRA_DUMP_DIR,
                                 quiet => 1,
                             },
@@ -204,7 +203,7 @@ EOF
                     } '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,
@@ -217,7 +216,7 @@ EOF
                         '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 {
@@ -251,7 +250,7 @@ EOF
                         '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,
@@ -264,7 +263,7 @@ EOF
                         '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 {
@@ -284,7 +283,7 @@ EOF
                         '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 };
@@ -298,22 +297,22 @@ EOF
                         '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';
                 }