[Bast-commits] r4548 - DBIx-Class-DynamicDefault/1.000/trunk/t/lib/TestSchema

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-01 13:21:16 +0100 (Tue, 01 Jul 2008)
New Revision: 4548

Modified:
   DBIx-Class-DynamicDefault/1.000/trunk/t/lib/TestSchema/Table.pm
Log:
Test accessor handling.

Modified: DBIx-Class-DynamicDefault/1.000/trunk/t/lib/TestSchema/Table.pm
===================================================================
--- DBIx-Class-DynamicDefault/1.000/trunk/t/lib/TestSchema/Table.pm	2008-07-01 12:21:07 UTC (rev 4547)
+++ DBIx-Class-DynamicDefault/1.000/trunk/t/lib/TestSchema/Table.pm	2008-07-01 12:21:16 UTC (rev 4548)
@@ -18,8 +18,9 @@
             is_nullable               => 1,
             dynamic_default_on_update => sub { return $$ },
         },
-        corge => {
+        foo => {
             data_type                 => 'integer',
+            accessor                  => 'corge',
             dynamic_default_on_create => \&corge_default,
             dynamic_default_on_update => 'corge_default',
         },