tests/testthat/test-inspection_area.R

test_that("inspection_area works", {
  skip_on_cran()

  insp1 <- cqc_inspection_areas()

  expect_length(insp1, 7)
  expect_true(tibble::is_tibble(insp1))
})

Try the cqcr package in your browser

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

cqcr documentation built on Oct. 7, 2019, 5:06 p.m.