tests/testthat/test-covariate_services.R

In wuxi-nextcode/gorr: Genuity Science service API for R

context("test-covariate_services.R")

test_that("get_covariates works", {
    result <- get_covariates(conn)

    expect_is(result, "list")
})

test_that("get_covariate works", {
    # IF THIS FAILS TRY DIFFERENT ID (MAKE SURE IT EXISTS IN PROJECT)
    result <- get_covariate(id = 2, conn = conn)

    expect_is(result, "list")
})