$node->parent( $parent_id );
}
- lives_and ( sub {
- warn "BEGIN!!!!!\n\n";
- is( $nodes->find(3)->copy({name => 'special'})->name,'special','copy test');
- }, 'copy does not throw');
-
ok( ($nodes->count()==81), 'correct number of nodes in random tree' );
ok( ($nodes->find(3)->children->count()==7), 'node 3 has correct number of children' );
ok( ($nodes->find(22)->children->count()==3), 'node 22 has correct number of children' );
if( TreeTest::Schema::Node->can('position_column') ){
ok( check_positions(scalar $root->children()), 'positions are correct' );
}
+
+ lives_and ( sub {
+ is( $nodes->find(3)->copy({name => 'special'})->name,'special','copy test');
+ }, 'copy does not throw');
}
sub check_positions {