tests/testthat/test-keyword.R

In johnmchambers/roxygen2: In-source Documentation for R

context("Keyword")
roc <- rd_roclet()

test_that("keywords split into pieces", {
  out <- roc_proc_text(roc, "
    #' @keywords a b
    #' @name a
    NULL")[[1]]
  
  expect_match(get_tag(out, "keyword")$values, fixed("a"), all = FALSE)
  expect_match(get_tag(out, "keyword")$values, fixed("b"), all = FALSE)
})