tests/testthat/test_get_senseBox_Ids.R

context("Test get_senseBox_Ids()")

test_that("Check output length and class", {
  # testthat::skip_on_cran()
  # testthat::skip_on_travis()

  temp <-  get_senseBox_Ids()

  expect_s3_class(temp, "data.frame")
  expect_equal(names(temp), c("senseBoxId", "name"))


})
JohannesFriedrich/senseBox documentation built on Nov. 8, 2021, 3:02 p.m.