tests/testthat/test-available_series.R

In ipeadatar: API Wrapper for 'Ipeadata'

test_that("available_series returns a data frame", {
  
  skip_on_cran()
  skip_if_offline()
  
  x <- available_series(label = FALSE)
  
  expect_s3_class(x, "data.frame")
  
  expect_true(all(
    c(
      "code",
      "name",
      "theme",
      "source",
      "freq",
      "lastupdate",
      "status"
    ) %in% names(x)
  ))
  
})