tests/testthat/test-echo-sub.R

In wrightaprilm/treeStartR: Generate Starting Trees For Combined Molecular, Morphological and Stratigraphic Data

library(ape)

test_that("Test echo_subtree(tree, mrca_df)", {
  tree <- read.nexus("testdata/simple.tre")
  mrca_df <- read.csv("testdata/mrca_df.tsv", sep = "\t")
  mrca_list <- c("Ursus_arctos", "Ursus_spelaeus", "Ursus_americanus")
  tree1 <- text_placr(tree, mrca_df)
  q_final <- echo_subtree(tree1, mrca_list, "Ursus_abstrusus")
  expect_equal(nchar(as.character(q_final)) -nchar( gsub(",", "", q_final)), 6)
})