tests/testthat/test-session.R

# get_sas_session ----

test_that("get_sas_session returns the .sas_session", {
  .sasr_env$.sas_session <- "test" # not a real session
  expect_identical(.sasr_env$.sas_session, get_sas_session())
})

Try the sasr package in your browser

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

sasr documentation built on April 3, 2025, 11:24 p.m.