tests/testthat/test-data_from_db.R

In djpr-data/djprlabourdash: DJSIR Jobs Dashboard

test_that("data can be retreived from the database", {

  skip_on_ci()
  skip_on_covr()

  series_ids <- c("A84424692W",
                  "A84424602F",
                  "15-24_females_unemployment rate",
                  "15-24_males_unemployment rate"
  )

  df <- get_labourforce_db(series_ids)

  expect_s3_class(df, 'data.frame')
  expect_true(all(c("date",
                    "value",
                    "series_id",
                    "series",
                    "series_type",
                    "table_no",
                    "data_type",
                    "frequency",
                    "unit") %in% colnames(df)))
  expect_s3_class(df$date, 'Date')

})