[Bast-commits] r7413 - branches/DBIx-Class-Schema-Loader/current/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-29 01:26:05 +0000 (Sat, 29 Aug 2009)
New Revision: 7413

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/11mysql_common.t
Log:
fix warning in MySQL tests

Modified: branches/DBIx-Class-Schema-Loader/current/t/11mysql_common.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/11mysql_common.t	2009-08-29 01:23:05 UTC (rev 7412)
+++ branches/DBIx-Class-Schema-Loader/current/t/11mysql_common.t	2009-08-29 01:26:05 UTC (rev 7413)
@@ -53,10 +53,10 @@
                       'MySQL ENUM values');
 
             $rs = $schema->resultset($monikers->{mysql_loader_test2});
-            my $column_info = $rs->result_source->column_info('somedate');
-            my $default     = $column_info->{default_value};
-            ok (ref($default) eq 'SCALAR'),
-                'CURRENT_TIMESTAMP default_value is a scalar ref';
+            $column_info = $rs->result_source->column_info('somedate');
+            my $default  = $column_info->{default_value};
+            ok ((ref($default) eq 'SCALAR'),
+                'CURRENT_TIMESTAMP default_value is a scalar ref');
             like $$default, qr/^CURRENT_TIMESTAMP\z/i,
                 'CURRENT_TIMESTAMP default eq "CURRENT_TIMESTAMP"';
         },