tests/testthat/test-get_ilter_generalinfo.R

In oggioniale/ReLTER: An Interface for the eLTER Community

message("\n---- Test get_ilter_generalinfo() ----")

library(testthat)

skip_on_cran()

test_that("Expect error if internet connection is down", {
  Sys.setenv("LOCAL_DEIMS" = FALSE) # set online mode
  testthat::expect_error(
    httptest::without_internet(
      result <- ReLTER::get_ilter_generalinfo("Italy", "Venezia")
    ),
    "GET"
  )
  Sys.setenv("LOCAL_DEIMS" = test_mode) # restore test mode
})

skip_if_offline(host = "deims.org")
skip_if(skip_in_test_mode)

test_that("At least one of country or site name must be provided", {
  expect_warning(get_ilter_generalinfo())
})

test_that("Output of ILTER general info function constructs 'tibble' as
          expected", {
  result <- ReLTER::get_ilter_generalinfo(
    country_name = "Denmark",
    site_name = NA
  )
  expect_s3_class(result, "tbl_df")
  expect_true(ncol(result) == 10)
  expect_true(all(names(result) == c(
    "title", "uri", "geoCoord", "country",
    "geoElev.avg", "geoElev.min",
    "geoElev.max", "geoElev.unit",
    "affiliation.networks", "affiliation.projects"
  )))

  expect_type(result$title, "character")
  expect_type(result$uri, "character")
  expect_type(result$geoCoord, "list")
  expect_type(result$country, "list")
  expect_type(result$geoElev.avg, "integer")
  expect_type(result$geoElev.min, "integer")
  expect_type(result$geoElev.max, "integer")
  expect_type(result$geoElev.unit, "character")
  expect_type(result$affiliation.networks, "list")
  #expect_type(result$affiliation.projects, "list") # must be checked when value is NA
})

test_that("Wrong input (not a character) of 'country_name'
          generates warning", {
  expect_warning(
    get_ilter_generalinfo(country_name = "123"),
    regexp = "valid country_name"
  )
})

test_that("Wrong input (not a character) of 'site_name' generates warning", {
            expect_warning(
              result <- ReLTER::get_ilter_generalinfo(
                country_name = "Denmark",
                site_name = "123"
              ),
              regexp = "Country and site name matched no ILTER site"
            )
})

# test_that("Wrong input (not a character) of 'site_name', but correct input of
#           'country_name'', constructs an empty tibble", {
#   expect_warning(
#     result <- ReLTER::get_ilter_generalinfo(
#       country_name = "Denmark",
#       site_name = "123"
#     ),
#     regexp = "Country and site name matched no ILTER site"
#   )
#   expect_s3_class(result, "tbl_df")
#   expect_true(ncol(result) == 10)
#   expect_true(all(names(result) == c(
#     "title", "uri", "geoCoord", "country",
#     "geoElev.avg", "geoElev.min",
#     "geoElev.max", "geoElev.unit",
#     "affiliation.networks", "affiliation.projects"
#   )))
#
#   expect_type(result$title, "character")
#   expect_type(result$uri, "character")
#   expect_type(result$geoCoord, "list")
#   expect_type(result$country, "list")
#   expect_type(result$geoElev.avg, "integer")
#   expect_type(result$geoElev.min, "integer")
#   expect_type(result$geoElev.max, "integer")
#   expect_type(result$geoElev.unit, "character")
#   expect_type(result$affiliation.networks, "list")
#   expect_type(result$affiliation.projects, "list")
# })

# test_that("Wrong input (not a character) of 'country_name' and 'site_name'
#           constructs an empty tibble", {
#   # TODO: write a test for that!
#   # WARNING this would be a very time-consuming test!
#   # (all the IDs may be read)
# })

test_that("Output of function constructs 'sf' with valid geometries", {
  result <- get_ilter_generalinfo(
    country_name = "Denmark",
    site_name = "HOBE"
  )
  result_valid <- (!is.na(result) & sf::st_is_valid(result))
  expect_true(any(result_valid))
})