tests/testthat/test-ncdc_locs_cats.r

In leighseverson/rnoaa: 'NOAA' Weather Data from R

context("ncdc_locs_cats")

test_that("ncdc_locs_cats returns the correct ...", {
  skip_on_cran()
  
  Sys.sleep(time = 1)
  tt <- ncdc_locs_cats()
  Sys.sleep(time = 0.5)
  uu <- ncdc_locs_cats(locationcategoryid='CLIM_REG')
  Sys.sleep(time = 0.5)
  vv <- ncdc_locs_cats(startdate='1970-01-01')
  
  
  # class
  expect_is(tt, "ncdc_locs_cats")
  expect_is(uu$data, "data.frame")
  expect_is(vv, "ncdc_locs_cats")
  expect_is(tt$meta, "list")
  expect_is(tt$data, "data.frame")
  expect_is(tt$meta$totalCount, "integer")
  expect_is(tt$data$id, "character")

  # dimensions
  expect_equal(length(tt$meta), 3)
  expect_equal(NCOL(tt$data), 2)
  expect_equal(dim(uu$data), c(1,2))
  expect_equal(NCOL(vv$data), 2)
  expect_equal(length(tt), 2)
  expect_equal(length(uu), 2)
  expect_equal(length(vv), 2)
})