tests/testthat/test-metadata.R

In safedata: Interface to Data from the SAFE Project

context("Test that fetch metadata fail gracefully")
library(safedata)

test_that("no internet fails gracefully on fetch", {

    Sys.setenv(NETWORK_DOWN = TRUE)
    set_example_safe_dir()

    recs <- validate_record_ids(c(1237733, 1237731))

    success <- expect_message(
        fetch_record_metadata(recs),
        regexp = "Failed to download metadata",
    )

    expect_false(success)
    unset_example_safe_dir()
    Sys.unsetenv("NETWORK_DOWN")
})

test_that("no API fails gracefully on fetch", {

    Sys.setenv(URL_DOWN = TRUE)
    set_example_safe_dir()

    recs <- validate_record_ids(c(1237733, 1237731))

    success <- expect_message(
        fetch_record_metadata(recs),
        regexp = "Failed to download metadata",
    )

    expect_false(success)
    unset_example_safe_dir()
    Sys.unsetenv("URL_DOWN")
})


test_that("API fails gracefully on partial fetch", {

    Sys.setenv(RESOURCE_DOWN = '/api/record/1237731$')
    set_example_safe_dir()

    recs <- validate_record_ids(c(1237733, 1237731))

    success <- expect_message(
        fetch_record_metadata(recs),
        regexp = "Failed to download metadata",
    )

    expect_false(success)
    unset_example_safe_dir()
    Sys.unsetenv("RESOURCE_DOWN")
})

test_that("API works normally", {

    # This test checks the normal behaviour of the code, but will
    # cause a failure if there are network issues. So, it should run
    # during package development and testing - where network failures
    # can be checked and resolved - but should not run on CRAN so that
    # the package testing completes gracefully.
    skip_on_cran()

    set_example_safe_dir()

    recs <- validate_record_ids(c(1237733, 1237731))

    success <- expect_message(
        fetch_record_metadata(recs),
        regexp = "Downloaded metadata",
    )

    expect_true(success)
    unset_example_safe_dir()
})