From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 10 Jun 2011 17:37:16 +0000 (-0400)
Subject: fix syntax error in common tests
X-Git-Tag: 0.07011~74
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=836c85195952fb4ea802595a60597a7f5599a528;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

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
--- 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;