finished cleaning up branch, all tests pass

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / dbixcsl_mssql_extra_tests.pm

diff --git a/t/lib/dbixcsl_mssql_extra_tests.pm b/t/lib/dbixcsl_mssql_extra_tests.pm
index 587d77d..bf178d7 100644 (file)
--- a/t/lib/dbixcsl_mssql_extra_tests.pm
+++ b/t/lib/dbixcsl_mssql_extra_tests.pm
@@ -2,21 +2,31 @@ package dbixcsl_mssql_extra_tests;
 
 use Test::More;
 
+my $vendor = 'mssql';
+
+sub vendor {
+    shift;
+    $vendor = shift;
+}
+
 sub extra { +{
     create => [
         qq{
-            CREATE TABLE [mssql_loader_test1.dot] (
+            CREATE TABLE [${vendor}_loader_test1.dot] (
                 id INT IDENTITY NOT NULL PRIMARY KEY,
                 dat VARCHAR(8)
             )
         },
     ],
-    drop   => [ qw/ [mssql_loader_test1.dot] / ],
+    drop   => [ "[${vendor}_loader_test1.dot]" ],
     count  => 4,
     run    => sub {
         my ($schema, $monikers, $classes) = @_;
 
-        ok((my $rs = eval { $schema->resultset('MssqlLoaderTest1Dot') }),
+        my $vendor_titlecased = "\u\L$vendor";
+
+        ok((my $rs = eval {
+            $schema->resultset("${vendor_titlecased}LoaderTest1Dot") }),
             'got a resultset');
 
         ok((my $from = eval { $rs->result_source->from }),
@@ -24,7 +34,7 @@ sub extra { +{
 
         is ref($from), 'SCALAR', '->table is a scalar ref';
 
-        is eval { $$from }, '[mssql_loader_test1.dot]',
+        is eval { $$from }, "[${vendor}_loader_test1.dot]",
             '->table name is correct';
     },
 }}