tests/testthat/test_get_count_vector.R

In RcppCWB: 'Rcpp' Bindings for the 'Corpus Workbench' ('CWB')

library(RcppCWB)
use_tmp_registry()
testthat::context("get_count_vector")

test_that(
  "get_count_vector",
  {
    Ns <- get_count_vector(
      corpus = "REUTERS",
      p_attribute = "word",
      registry = get_tmp_registry()
    )
    expect_equal(length(Ns), 1192)
    expect_equal(Ns[16], 78L)
  }
)