tests/testthat/test-get_sinim_vars.R

context("test-sinimr.R")

test_that("get_sinim_vars returns a valid output", {
  
  tbl <- get_sinim_vars(262)
  
  expect_is(tbl, "data.frame")
  expect_output(str(tbl), "22 obs. of  3 variables")
})
robsalasco/sinimr documentation built on July 16, 2025, 3:55 p.m.