max(test$TimePeriodID) is not less than 17. Difference: 1

testthat::expect_no_error(test <- cvd_area_list(system_level_id = 2))
# expecting a list of at least one named tibble
testthat::expect_no_error(test <- cvd_area_unassigned(system_level_id = 1))
testthat::expect_no_error(test <- cvd_area_search(partial_area_name = 'foo'))
testthat::expect_named(test, c('level_1', 'level_2', 'level_3', 'level_4'))
testthat::expect_named(test, c('indicators', 'metric_categories', 'metric_data', 'timeseries_data'))