tests/_old_testthat/test_tree_processing.R

In phylotastic/datelife: Scientific Data on Time of Lineage Divergence for Your Taxa

test_that("tree_add_nodelabels works", {
  expect_error(tree_add_nodelabels())
  expect_true(is.null(felid_gdr_phylo_all$phylo_all[[1]]$node.label))
  x <- tree_add_nodelabels(felid_gdr_phylo_all$phylo_all[[1]], node_index = "node_number")
  expect_true(!is.null(x$node.label))
  expect_true(all(!is.na(x$node.label)))
  x <- tree_add_nodelabels(felid_gdr_phylo_all$phylo_all[[1]], node_index = "from_1")
  expect_true(!is.null(x$node.label))
  expect_true(all(!is.na(x$node.label)))
  x$node.label[1:5] <- ""
  expect_true("" %in% x$node.label)
  xx <- tree_add_nodelabels(x, node_index = "node_number")
  expect_false("" %in% xx$node.label)
  xx <- tree_add_nodelabels(x, node_index = "from_1")
  expect_false("" %in% xx$node.label)
})