tests/testthat/test-deprecated_functions.R

In christophergandrud/imfr: Download Data from the International Monetary Fund's Data API

test_that("imf_ids works", {
    imf_app_name("imfr_deprecated_functions_tester")
    expect_warning(ids <- imf_ids(),"(.*deprecated.*)")
    expect_equal(nrow(ids) > 1, TRUE)
    expect_equal(ncol(ids) == 2, TRUE)
    expect_equal(all(names(ids) %in% c("database_id","description")), TRUE)
})

test_that("imf_codelist works", {
    expect_warning(df <- imf_codelist("PCPS"),"(.*deprecated.*)")
    expect_warning(li <- imf_codelist("PCPS",return_raw=T),"(.*deprecated.*)")
    expect_equal(all(names(df) %in% c("codelist","description")), TRUE)
    expect_equal(nrow(df) > 1, TRUE)
    expect_equal(S3Class(li) == "list", TRUE)
    expect_warning(expect_error(imf_codelist(times=1)),"(.*deprecated.*)")
})

test_that("imf_codes works", {
    expect_warning(df <- imf_codes(codelist="CL_AREA_BOP"),"(.*deprecated.*)")
    expect_warning(li <- imf_codes(codelist="CL_AREA_BOP",return_raw=T),"(.*deprecated.*)")
    expect_equal(all(names(df) %in% c("codes","description")), TRUE)
    expect_equal(nrow(df) > 1, TRUE)
    expect_equal(S3Class(li) == "list", TRUE)
    expect_warning(expect_error(imf_codes(times=1)),"(.*deprecated.*)")
})

test_that("imf_data works", {
    expect_warning(df <- imf_data("PCPS","PCOAL","all",start=2015,end=2020),"(.*deprecated.*)")
    expect_warning(li <- imf_data("PCPS","PCOAL","all",freq="A",start=2020,end=2022,return_raw=T),"(.*deprecated.*)")
    expect_warning(expect_error(imf_data(),"database_id"),"(.*deprecated.*)")
    expect_warning(expect_error(imf_data("PCPS","PCOAL","all",freq=c("A","M"),start=2020,end=2022,return_raw=T),"imf_data only works with one frequency at a time.",fixed=T),"(.*deprecated.*)")
    expect_equal(nrow(df) == 18, TRUE)
    expect_equal(ncol(df) == 4, TRUE)
    expect_equal("PCOAL" %in% names(df), TRUE)
    expect_equal(all(df$year >= 2015) & all(df$year <= 2020), TRUE)
    expect_equal("Obs" %in% names(li), TRUE)
    expect_equal(!any(is.na(df)), TRUE)
})

test_that("imf_metastructure works", {
    expect_warning(df <- imf_metastructure("PCPS"),"(.*deprecated.*)")
    expect_warning(raw_data <- imf_metastructure("PCPS",return_raw=T),"(.*deprecated.*)")
    expect_equal(nrow(df) == 1 & ncol(df) == 2, TRUE)
    expect_equal(all(names(df) %in% c("codelist","description")), TRUE)
    expect_equal(!any(is.na(df)), TRUE)
    expect_equal(S3Class(raw_data) == "list", TRUE)
    expect_equal(length(raw_data[[1]]) == 8, TRUE)
})

test_that("imf_metadata works", {
    expect_warning(output <- imfr::imf_metadata("PCPS"),"(.*deprecated.*)")
    expect_equal(S3Class(output) == "list", TRUE)
    expect_equal(!any(is.na(output)), TRUE)
})