CPAN::Groonga

ing", '0'), "appending");
is   ($child->getAction, $tree->getAction, "assigning default action");
isnt ($child->getUniqueId, $tree->getUniqueId, "UniqueId is different");

my @lines = $tree->getHTML;

on the deepest node. 
# Easier with deepProcess().
$tree->deepProcess(sub { $_[0]->setActive } );
isnt ($script, $tree->getScript, "different script");

my $first = $tree->getHTML; # Holds an arrayref

umbers;
@ch2 = sort $tree->listChildNumbers;
ok(eq_set(\@ch1, \@ch2), "cloning and descendants");
isnt ($cloned->getLuckyNumber, $tree->getLuckyNumber, "lucky numbers are different");

$tree->addField

umbers;
@ch2 = sort $tree->listChildNumbers;
ok(eq_set(\@ch1, \@ch2), "cloning and descendants");
isnt ($cloned->getLuckyNumber, $tree->getLuckyNumber, "lucky numbers are different");

$tree->allProce