tests/testthat/test_mers_tree.R

context("Test k-mers tree")

test_that("given 2 x 2 matrix, when make mers tree, then returns 4 1-mers", {
  letter_matrix <- matrix(
    c("a", "b",
      "c", "d"),
    nrow = 2
  )
  mers_tree <- make_mers_tree(letter_matrix)
  expect_equal(length(mers_tree[[1]]), 4)
})
jolyonfaria/wordgamesolver documentation built on June 27, 2020, 4:39 p.m.