tests/testthat/test-get_data.R

In pachamaltese/OEC: Observatory of Economic Complexity API Wrapper and Utility Program

context("test-oec.R")

test_that("get_data connects to the API and returns a valid tibble after valid input", {
  vcr::use_cassette(name = "chl_arg_1980", {
    # Mock countries test inside get_data
    cli <- crul::HttpClient$new(url = "http://atlas.media.mit.edu")
    res <- cli$get("attr/country/")
    expect_is(res, "HttpResponse")
    
    # Bilateral trade Chile-Argentina (SITC, 1980)
    res <- cli$get("sitc/export/1980/chl/arg/show/")
    test_data <- get_data("chl", "arg", 1980)
    expect_is(test_data, "tbl")
    expect_is(test_data, "data.frame")
    expect_output(str(test_data), "30 variables")
  })
})

test_that("get_data connects to the API and returns an error after invalid input", {
  vcr::use_cassette(name = "chl_arg_1980", {
    # Bilateral trade Chile-Argentina (HS92, 1980) - Error message
    expect_error(
      get_data("chl", "arg", 1980, "hs92"),
      "Provided that you requested HS92 data please
         verify that the data you are requesting is
         contained within the years 1992-2016."
    )
  })
})

test_that("get_data connects to the API and returns an error after invalid input", {
  vcr::use_cassette(name = "chl_arg_1980", {
    # Bilateral trade Chile-Argentina (HS96, 1980) - Error message
    expect_error(
      get_data("chl", "arg", 1980, "hs96"),
      "Provided that you requested HS96 data please
         verify that the data you are requesting is
         contained within the years 1996-2016."
    )
  })
})

test_that("get_data connects to the API and returns an error after invalid input", {
  vcr::use_cassette(name = "chl_arg_1980", {
    # Bilateral trade Chile-Argentina (HS02, 1980) - Error message
    expect_error(
      get_data("chl", "arg", 1980, "hs02"),
      "Provided that you requested HS02 data please
         verify that the data you are requesting is
         contained within the years 2002-2016."
    )
  })
})

test_that("get_data connects to the API and returns an error after invalid input", {
  vcr::use_cassette(name = "chl_arg_1980", {
    # Bilateral trade Chile-Argentina (HS07, 1980) - Error message
    expect_error(
      get_data("chl", "arg", 1980, "hs07"),
      "Provided that you requested HS07 data please
         verify that the data you are requesting is
         contained within the years 2007-2016."
    )
  })
})