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

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2008-01-28 17:53:24 +0000 (Mon, 28 Jan 2008)
New Revision: 3981

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
Log:
Get the column_info straight from the result class instead of
going via $rs->result_source.


Modified: branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2008-01-27 09:01:42 UTC (rev 3980)
+++ branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2008-01-28 17:53:24 UTC (rev 3981)
@@ -230,7 +230,7 @@
         skip "This vendor doesn't detect auto-increment columns", 1
             if $self->{no_auto_increment};
 
-        is( $rsobj1->result_source->column_info('id')->{is_auto_increment}, 1,
+        is( $class1->column_info('id')->{is_auto_increment}, 1,
             'Setting is_auto_incrment works'
         );
     }