tests/testthat/test-nsyllable.R

In quanteda.textstats: Textual Statistics for the Quantitative Analysis of Textual Data

test_that("nsyllable.tokens works", {
  toks <- quanteda::tokens("one ten twenty")
  expect_equal(
    nsyllable::nsyllable(toks),
    list(text1 = c(1, 1, 2))
  )
  expect_equal(
    nsyllable::nsyllable(quanteda::tokens_remove(toks, "ten", padding = TRUE)),
    list(text1 = c(1, NA, 2))
  )
})