opensensmapR/tests/testthat/test_counts.R

source('testhelpers.R')
context('counts')

test_that('counts can be retrieved as a list of numbers', {
  check_api()

  counts = osem_counts()

  expect_true(is.list(counts))
  expect_true(is.numeric(unlist(counts)))
  expect_length(counts, 3)
})
add lintr config, make code lint compliant, fixes #20 7 years ago			`source('testhelpers.R')`
			`context('counts')`
add function wrapper for default endpoint 7 years ago
add lintr config, make code lint compliant, fixes #20 7 years ago			`test_that('counts can be retrieved as a list of numbers', {`
add function wrapper for default endpoint 7 years ago			`check_api()`
skip API dependant tests on CRAN 7 years ago
add lintr config, make code lint compliant, fixes #20 7 years ago			`counts = osem_counts()`
skip API dependant tests on CRAN 7 years ago
add function wrapper for default endpoint 7 years ago			`expect_true(is.list(counts))`
			`expect_true(is.numeric(unlist(counts)))`
			`expect_length(counts, 3)`
			`})`