tests/testthat/test-num_tokenz.R

test_that("num_tokenz works", {
  expect_equal(6, num_tokenz(c("a bad wolf", "stole my", "oranges")))
  expect_equal(3, num_tokenz(c("juicy", "oranges", "noice")))
  expect_equal(7, num_tokenz(c("a bad wolf", "stole my", "oranges' peels")))
})
rammkripa/trialpackage documentation built on Jan. 12, 2021, 12:38 a.m.