unless my ($first, $second) = /^(\d+),(\d+)\z/;
cmp_ok ($first, '>=', 1, "Parent of $which grandchild");
cmp_ok ($second, '>=', 1, "New parent of orphaned $which grandchild");
unless my ($first, $second) = /^(\d+),(\d+)\z/;
cmp_ok ($first, '>=', 1, "Parent of $which grandchild");
cmp_ok ($second, '>=', 1, "New parent of orphaned $which grandchild");