Yet Another CPAN Grep

Tree-Binary ( R/RS/RSAVAGE/Tree-Binary-1.09.tgz, RSAVAGE, 2021; MetaCPAN )

Tree-Binary/t/12_Tree_Binary_clone_test.t ( view source; MetaCPAN )

 parentage is correct
ok(!defined($clone->getParent()), '... the clones parent is not defined');

isnt($clone, $btree, '... these should be refs');

is($clone->getLeft()->getNodeValue(), $btree->getLe

)->getLeft()->getNodeValue()), "SCALAR", '... these should be scalar refs');
# but different ones
isnt($clone->getLeft()->getLeft()->getNodeValue(), $btree->getLeft()->getLeft()->getNodeValue(),
	'...

ee->getRight()->getNodeValue()), "ARRAY", '... these should be array refs');
# but different ones
isnt($clone->getRight()->getNodeValue(), $btree->getRight()->getNodeValue(),
	'... these should be dif