diff --git a/tests/testthat/test_Main_Helpers.R b/tests/testthat/test_Main_Helpers.R index 62fcecc..d19df4a 100644 --- a/tests/testthat/test_Main_Helpers.R +++ b/tests/testthat/test_Main_Helpers.R @@ -295,26 +295,27 @@ test_that("UNSD - data",{ #ILO_Legacy (UN-ILO) #------------ - -#-> datastructure -test_that("ILO - datastructure",{ - testthat::skip_on_cran() - sdmx <- readSDMX(providerId = "ILO_Legacy", resource = "datastructure", resourceId = "YI_ALB_EAP_TEAP_SEX_AGE_NB") - if(!is.null(sdmx)){ - expect_is(sdmx, "SDMXDataStructureDefinition") - } -}) - -#-> data -test_that("ILO - data",{ - testthat::skip_on_cran() - sdmx <- readSDMX(providerId = "ILO_Legacy", resource = "data", - flowRef = "DF_CPI_FRA_CPI_TCPI_COI_RT", key = "ALL", key.mode = "SDMX", - start = "2010-01-01", end = "2014-12-31") - if(!is.null(sdmx)){ - expect_is(sdmx, "SDMXGenericData") - } -}) +#gives Unauthorized 403 status codes now + +# #-> datastructure +# test_that("ILO - datastructure",{ +# testthat::skip_on_cran() +# sdmx <- readSDMX(providerId = "ILO_Legacy", resource = "datastructure", resourceId = "YI_ALB_EAP_TEAP_SEX_AGE_NB") +# if(!is.null(sdmx)){ +# expect_is(sdmx, "SDMXDataStructureDefinition") +# } +# }) +# +# #-> data +# test_that("ILO - data",{ +# testthat::skip_on_cran() +# sdmx <- readSDMX(providerId = "ILO_Legacy", resource = "data", +# flowRef = "DF_CPI_FRA_CPI_TCPI_COI_RT", key = "ALL", key.mode = "SDMX", +# start = "2010-01-01", end = "2014-12-31") +# if(!is.null(sdmx)){ +# expect_is(sdmx, "SDMXGenericData") +# } +# }) #ILO (UN-ILO) #------------