tests/testthat/test-rs_get_n_selections.R

test_that("rs_get_n_selections works", {
  # rs_document_context is object for testing
  data("rs_document_context", package = "addin.tools")
  expect_equal(rs_get_n_selections(rs_document_context), expected = 7)
  expect_equal(rs_get_n_selections(context = NULL), expected = 0)
})
GegznaV/addin.tools documentation built on Aug. 24, 2023, 5:35 p.m.