tests/testthat/test_hca.R

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

test_that("HCA API healthcheck", {
    response <- httr::GET("https://service.azul.data.humancellatlas.org/health/basic")
    ## success
    expect_equal(response$status_code, 200)
    ## API should be up
    expect_true(httr::content(response)$up)
})

test_that("'.hca_GET()' works", {
    ## valid path
    test_filter <- filters(organ = list(is = "pancreas"))
    test_url_path <- .index_path(filters = .filters_encoding(test_filter),
                                 base_path = "/index/projects")
    resp <- .hca_GET(test_url_path)
    expect_equal(resp$status_code, 200)
    ## add test to ensure content is as expected
})

test_that("'.hca_GET' validates arguments", {
    ## not a valid subpath
    expect_error(.hca_GET("/blahblahblah"), ".*Forbidden")
    ## empty subpath
    expect_error(.hca_GET(), '.*argument "path" is missing')
})