tests/testthat/test_index.R

In Bioconductor/hca: Exploring the Human Cell Atlas Data Coordinating Platform

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))
})