tests/testthat/test-check-methods.R

In DomBennett/treeman: Phylogenetic Tree Manipulation Class and Methods

# LIBS
library(treeman)
library(testthat)

# RUNNING
context('Testing \'check-methods\'')
test_that("checkTreeMen() works", {
  tree <- randTree(10, wndmtrx=sample(c(TRUE, FALSE), 1))
  trees <- cTrees(tree, tree, tree)
  trees@treelst[[4]] <- "this is not a tree"
  res <- checkTreeMen(trees)
  expect_false(res)
})
test_that("checkNdlst() works", {
  # test missing node
  tree <- randTree(10, wndmtrx=sample(c(TRUE, FALSE), 1))
  tree@ndlst <- tree@ndlst[-(sample(1:10, 1))]
  nonode <- checkNdlst(tree@ndlst, tree@root)
  expect_false(nonode)
  # test absent prid
  tree <- randTree(10, wndmtrx=sample(c(TRUE, FALSE), 1))
  rnd <- sample(tree@all, 1)
  tree@ndlst[[rnd]][['prid']] <- NULL
  absent_prid <- checkNdlst(tree@ndlst, tree@root)
  expect_false(absent_prid)
  # test missing root
  tree <- randTree(10, wndmtrx=sample(c(TRUE, FALSE), 1))
  tree@root <- 'x'
  noroot <- checkNdlst(tree@ndlst, tree@root)
  expect_false(noroot)
  # test self-reference
  tree <- randTree(10, wndmtrx=sample(c(TRUE, FALSE), 1))
  rnd <- sample(tree@nds[tree@nds != tree@root], 1)
  tree@ndlst[[rnd]][['ptid']][1] <- 'x'
  tree@ndlst[[rnd]][['prid']] <- 'x'
  self_reference <- checkNdlst(tree@ndlst, tree@root)
  expect_false(self_reference)
  # test circularity
  rnd <- sample(tree@nds[tree@nds != tree@root], 1)
  tree@ndlst[[rnd]][['ptid']][1] <- tree@root
  circularity <- checkNdlst(tree@ndlst, tree@root)
  expect_false(circularity)
})