tests/testthat/test-stopwords_getsources.R

context("stopwords_getsources")

test_that("returns all source names", {
  source_names <- names(getOption("stopwords_sources"))
  expect_equal(source_names, stopwords_getsources())
})

Try the stopwords package in your browser

Any scripts or data that you put into this service are public.

stopwords documentation built on Oct. 28, 2021, 5:10 p.m.