"`get_panel_of_reporters()` throws an error with empty creds"
"`get_panel_of_reporters()` returns correct output type"

out_df <- get_reporting_periods(as_data_frame = TRUE)
test_that("`get_reporting_periods()` throws an error with empty creds", {
test_that("`get_reporting_periods()` returns correct output type", {
test_that("`get_reporting_periods()` returns expected names", {
out_df <- get_ubpr_reporting_periods(as_data_frame = TRUE)
test_that("`get_ubpr_reporting_periods()` returns correct output type", {
test_that("`get_ubpr_reporting_periods()` returns expected names", {

"`get_reporting_periods()` throws an error with empty creds"
"`get_reporting_periods()` returns correct output type"
"`get_ubpr_reporting_periods()` returns correct output type"