From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 25 Apr 2010 10:38:17 +0000 (+0000)
Subject: Migration finished
X-Git-Tag: 0.03001~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eccca9212017ca7aae985dcf16c8de73234cac90;p=dbsrgits%2FDBIx-Class-Tree.git

Migration finished
---

diff --git a/Makefile.PL b/Makefile.PL
index 263bfc1..cfcde51 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,13 +1,19 @@
 use inc::Module::Install;
 
+BEGIN {
+  if ($Module::Install::AUTHOR) {
+    require Module::Install::ReadmeFromPod;
+  }
+}
+
 name            'DBIx-Class-Tree';
+perl_version    '5.008001';
 all_from        'lib/DBIx/Class/Tree.pm';
-readme_from        'lib/DBIx/Class/Tree.pm';
-githubmeta;
+readme_from     'lib/DBIx/Class/Tree.pm';
+
+resources 'repository'  => 'http://dev.catalyst.perl.org/repos/bast/DBIx-Class-Tree/';
 
-requires        'Carp'        => 0;
 requires        'DBIx::Class' => '0.08100';
-build_requires  'DBD::SQLite' => '0.42';
 
 WriteAll;
 
diff --git a/lib/DBIx/Class/Tree/AdjacencyList.pm b/lib/DBIx/Class/Tree/AdjacencyList.pm
index 05ed86d..025ebfb 100644
--- a/lib/DBIx/Class/Tree/AdjacencyList.pm
+++ b/lib/DBIx/Class/Tree/AdjacencyList.pm
@@ -260,8 +260,6 @@ sub siblings {
     return $rs;
 }
 
-=cut
-
 =head2 attach_sibling
 
   $obj->attach_sibling( $sibling );
diff --git a/t/lib/TreeTest.pm b/t/lib/TreeTest.pm
index a3054cb..e77eea1 100644
--- a/t/lib/TreeTest.pm
+++ b/t/lib/TreeTest.pm
@@ -8,7 +8,7 @@ use TreeTest::Schema;
 our $NODE_COUNT = 80;
 
 sub count_tests {
-    my $count = 22;
+    my $count = 13;
     if( TreeTest::Schema::Node->can('position_column') ){
         $count ++;
     }
@@ -38,11 +38,11 @@ sub run_tests {
     ok( ($nodes->find(22)->children->count()==2), 'node 22 has correct number of children' );
     ok( ($nodes->find(22)->siblings->count()==3), 'node 22 has correct number of siblings' );
 
-    $nodes->find(22)->add_child( $nodes->find(3) );
+    $nodes->find(22)->attach_child( $nodes->find(3) );
     ok( ($nodes->find(22)->children->count()==3), 'node 22 has correct number of children' );
     ok( ($nodes->find(22)->siblings->count()==2), 'node 22 has correct number of siblings' );
 
-    $nodes->find(22)->add_sibling( $nodes->find(3) );
+    $nodes->find(22)->attach_sibling( $nodes->find(3) );
     ok( ($nodes->find(22)->children->count()==2), 'node 22 has correct number of children' );
     ok( ($nodes->find(22)->siblings->count()==3), 'node 22 has correct number of siblings' );
 
@@ -52,38 +52,6 @@ sub run_tests {
     if( TreeTest::Schema::Node->can('position_column') ){
         ok( check_positions(scalar $root->children()), 'positions are correct' );
     }
-
-    #$nodes->delete;
-    $schema = TreeTest::Schema->connect();
-    $nodes = $schema->resultset('Node');
-    $root = $nodes->create({ name=>'root' });
-    @parents = (
-        1,1,3,2,3,3,6,6,2,5,3,5,12,1
-    );
-    foreach my $parent_id (@parents) {
-        my $node = $nodes->create({ name=>'child' });
-        $node->parent( $parent_id );
-    }
-
-    ok ($nodes->find(1)->descendents == 14, 'root node has 14 descendents');
-    ok ($nodes->find(2)->descendents == 4, 'node 2 has 4 descendents');
-    ok ($nodes->find(6)->descendents == 2, 'node 6 has 2 descendents');
-    ok ($nodes->find(10)->descendents == 0, 'node 10 has no descendents');
-    
-    $nodes->find(2)->pharaoh_delete;
-    ok ($nodes->find(1)->descendents == 9, 'root node has 9 descendents after pharaohing node 2');
-
-    ok ($nodes->find(3)->children == 4, 'node 3 has 4 children');
-    $nodes->find(6)->grandmother_delete;
-    ok ($nodes->find(3)->children == 5, 'node 3 has 5 children after node 6 dies');
-
-    $nodes->find(3)->replace_with_and_delete($nodes->find(12));
-    ok ($nodes->find(12)->children == 5, 'node 12 has 5 children after taking over from node 3');
-    ok ($nodes->find(7)->parent->id == 12, 'node 7\'s parent is node 12');
-    
-    
-    
-
 }
 
 sub check_positions {