[Bast-commits] r4628 - DBIx-Class-Tree-NestedSet/t/lib/TestSchema

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-25 01:43:40 +0100 (Fri, 25 Jul 2008)
New Revision: 4628

Modified:
   DBIx-Class-Tree-NestedSet/t/lib/TestSchema/Tree.pm
Log:
Call tree_columns after the primary key was set as it needs to be known to set up the relations.

Modified: DBIx-Class-Tree-NestedSet/t/lib/TestSchema/Tree.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/t/lib/TestSchema/Tree.pm	2008-07-25 00:43:35 UTC (rev 4627)
+++ DBIx-Class-Tree-NestedSet/t/lib/TestSchema/Tree.pm	2008-07-25 00:43:40 UTC (rev 4628)
@@ -8,12 +8,6 @@
 __PACKAGE__->load_components(qw/Tree::NestedSet Core/);
 __PACKAGE__->table('tree');
 
-__PACKAGE__->tree_columns({
-    root_column  => 'root',
-    left_column  => 'lft',
-    right_column => 'rgt',
-});
-
 __PACKAGE__->add_columns(
     id => {
         data_type         => 'integer',
@@ -30,4 +24,10 @@
 
 __PACKAGE__->set_primary_key(qw/id/);
 
+__PACKAGE__->tree_columns({
+    root_column  => 'root',
+    left_column  => 'lft',
+    right_column => 'rgt',
+});
+
 1;