tests/testthat/test-calc_nltt_stats.R

In richelbilderbeek/wiritttea: WIRITTTE analysis

context("collect_nltt_stats")

test_that("collect_nltt_stats use", {
  nltt_stats <- collect_nltt_stats(
    phylogeny = ape::rcoal(10),
    others = c(ape::rcoal(10), ape::rcoal(10))
  )
  expect_equal(names(nltt_stats), c("id", "nltt_stat"))
  expect_equal(nrow(nltt_stats), 2)
})

test_that("collect_nltt_stats: abuse", {

  testthat::expect_error(
    nltt_stats <- wiritttea::collect_nltt_stats(
      phylogeny = "Not a phylogeny",
      others = c(ape::rcoal(10), ape::rcoal(10))
    ),
    "phylogeny must be a phylogeny"
  )

  testthat::expect_error(
    nltt_stats <- wiritttea::collect_nltt_stats(
      phylogeny = ape::rcoal(10),
      others = c()
    ),
    "must supply others"
  )

  testthat::expect_error(
    nltt_stats <- wiritttea::collect_nltt_stats(
      phylogeny = ape::rcoal(10),
      others = c(12, "Not a phylogeny")
    ),
    "others must be phylogenies"
  )
})