tests/testthat/test-trie.R

In lmkirvan/textTries: Tries for Fast Replacement of Big Dictionaries

testthat::context("creating trie")
require(textTries)


test_that("values are correct",{
  keys <- c("a", "ab", "bab", "bc", "bca", "c", "caa", "abc")
  values <- c("foo", "bar", "foo", "bar", "foo", "bar", "foo", "bar")
  example_trie <- trie_create(keys, values)
  expect_equal(example_trie$a$b$value, "bar")
  expect_equal(example_trie$a$value, "foo")
  expect_equal(example_trie$a$b$fail, example_trie$b)
  expect_equal(example_trie$c$a$a$value, example_trie$a$value)
})



test_that("fails are correct", {
  keys <- c("a", "ab", "bab", "bc", "bca", "c", "caa", "baby")
  values <- c("foo", "bar", "foo", "bar", "foo", "bar", "foo", "boo")
  example_trie <- trie_create(keys, values)
  expect_equal(example_trie$c$a$fail, example_trie$a)
  expect_equal(example_trie$c$a$a$fail, example_trie$a)
  expect_equal(example_trie$a$fail, example_trie)
  expect_equal(example_trie$b$a$b$y$fail, example_trie)
})