tests/testthat/test-cas_count_relative.R

In giocomai/castarter: Content Analysis Starter Toolkit

test_that("cas_count_relative() works when more than one string given", {
  expect_equal(
    object = {
      cas_count_relative(
        corpus = cas_demo_corpus,
        string = c("putin", "russia"),
        group_by = date
      ) %>%
        dplyr::filter(string == "russia")
    },
    expected = {
      cas_count_relative(
        corpus = cas_demo_corpus,
        string = c("russia"),
        group_by = date
      )
    }
  )
})