tests/testthat/test-clinicaltrials_gov_version_overall_contacts.R

In cthist: Clinical Trial Registry History

test_that("ClinicalTrials.gov contacts downloads correctly", {
    version <- clinicaltrials_gov_version("NCT02110043", 1)
    if (version[1] == "Error") {
        expect_equal(
            version[1],
            "Error"
        )
    } else {
        expect_equal(
            jsonlite::fromJSON(version$overall_contacts)$name[1],
            "Agnes Flöel, Prof. Dr."
        )   
    }
})