tests/testthat/test_index.R

test_that("testing .index_GET() with (almost) default parameters", {
    url <- paste0(
        "https://service.azul.data.humancellatlas.org/index/projects",
        "?size=5&sort=projectTitle&order=asc"
    )
    baseline_resp <- httr::GET(url)

    test_resp <- .index_GET(size = 5)
    expect_equal(test_resp$status_code, baseline_resp$status_code)
    expect_equal(test_resp$content, httr::content(baseline_resp))
})
Bioconductor/hca documentation built on July 28, 2022, 6:04 p.m.