fix syntax error in common tests

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index 9051c8d..0739692 100644 (file)
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -161,7 +161,7 @@ sub run_only_extra_tests {
                     $cb->($ddl);
                 }
                 else {
-                    $dbh->do($_) 
+                    $dbh->do($ddl);
                 }
             }
         }
@@ -1876,7 +1876,7 @@ sub create {
                 $cb->($ddl);
             }
             else {
-                $dbh->do($_) 
+                $dbh->do($ddl);
             }
         }
     }
@@ -2145,7 +2145,7 @@ sub setup_data_type_tests {
             my @size = split /,/, $size;
 
             # some DBs don't like very long column names
-            if ($self->{vendor} =~ /^(?:firebird|sqlanywhere|oracle|db2)\z/i) {
+            if ($self->{vendor} =~ /^(?:Firebird|SQLAnywhere|Oracle|DB2)\z/i) {
                 my ($col_def, $default) = $type_alias =~ /^(.*)(default.*)?\z/i;
 
                 $type_alias = substr $col_def, 0, 15;