tests/testthat/test-AllQuartets.cpp.R

In ms609/Tetrad: Comparison of Phylogenetic Trees Using Quartet and Split Measures

test_that("all_quartets() handles dud input", {
  expect_error(all_quartets(integer(0)),
               "nTips must contain a single integer value")
  expect_error(all_quartets(1), "nTips must be at least 4")
  expect_error(all_quartets(0), "nTips must be at least 4")
  expect_error(all_quartets(-1), "nTips must be at least 4")
  expect_error(all_quartets(55109), "nTips must be <")
})

test_that("All quartets are generated", {
  expect_equal(combn(8, 4), all_quartets(8))
})

test_that("which_index() catches errors", {
  expect_error(which_index(1:10, 1), "4 indices needed")
  expect_error(which_index(1:4, 1000), "Too many tips for which_index()")
  expect_error(which_index(1:4, 1e7), "Too many tips for which_index()")
  expect_error(which_index(c(-4, 3, 2, 1), 4), "indices\\[0\\] must be positive")
  expect_error(which_index(c(4, 3, 2, 5), 4), "indices\\[3\\] must be less than m")
  expect_error(which_index(c(4, 4, 4, 4), 10), "a < b < c < d not satisfied")
})

test_that("Quartets are correctly indexed", {
  expect_equal(seq_len(15) - 1L, apply(all_quartets(6) - 1L, 2, which_index, 6))
  expect_equal(AllQuartets(6), AllQuartets(BalancedTree(6)))
})