tests/testthat/test_odb_config.R

In opendatabio/opendatabio-r: Imports and Exports Data From an OpenDataBio Server

context("odb_config")


test_that("odb_config with defaults", {
    internal_clear_env();
    cfg = odb_config();
    expect_is(cfg, "list")
    expect_is(cfg$base_url, "character")
    expect(cfg$base_url%in%c("http://localhost/opendatabio/api/v0","http://localhost:8080/opendatabio/api/v0","http://localhost:8080/api/v0"),"base_url invalid")
    expect_is(cfg$headers, "request")
    expect_match(cfg$headers$headers["Accept"], "application/json")
    expect_match(cfg$headers$options$useragent, "opendatabio")
})

#test_that("odb_config with parameters", {
#    cfg = odb_config("http://localhost", "ABCDEF", "v0", c(foo="bar"));
#    expect_is(cfg, "list")
#    expect_is(cfg$base_url, "character")
#    expect(cfg$base_url%in%c("http://localhost/opendatabio/api/v0","http://localhost:8080/opendatabio/api/v0","http://localhost:8080/api/v0"),"base_url invalid")
    #expect_equal(cfg$base_url, "http://localhost/v1")
#    expect_is(cfg$headers, "request")
#    expect_match(cfg$headers$headers["Accept"], "application/json")
#    expect_match(cfg$headers$headers["foo"], "bar")
#    expect_match(cfg$headers$headers["Authorization"], "ABCDEF")
#})

test_that("odb_config with null version", {
    cfg = odb_config(api_version = NULL);
    expect_is(cfg, "list")
    expect_is(cfg$base_url, "character")
    expect(cfg$base_url%in%c("http://localhost/opendatabio/api","http://localhost:8080/opendatabio/api","http://localhost:8080/api"),"base_url invalid")
})

test_that("odb_config with ENV variables", {
    Sys.setenv(ODB_TOKEN = "12345", ODB_BASE_URL="www.example.com", ODB_API_VERSION = "vx")
    cfg = odb_config();
    expect_is(cfg, "list")
    expect_is(cfg$base_url, "character")
    expect_equal(cfg$base_url, "www.example.com/vx")
    expect_is(cfg$headers, "request")
    expect_match(cfg$headers$headers["Accept"], "application/json")
    expect_match(cfg$headers$headers["Authorization"], "12345")
})

test_that("odb_config with ENV variables respects parameters", {
    Sys.setenv(ODB_TOKEN = "12345", ODB_BASE_URL="www.example.com", ODB_API_VERSION = "vx")
    cfg = odb_config("http://localhost", "ABCDEF", "v1", c(foo="bar"));
    expect_is(cfg, "list")
    expect_is(cfg$base_url, "character")
    expect_equal(cfg$base_url, "http://localhost/v1")
    expect_is(cfg$headers, "request")
    expect_match(cfg$headers$headers["Accept"], "application/json")
    expect_match(cfg$headers$headers["foo"], "bar")
    expect_match(cfg$headers$headers["Authorization"], "ABCDEF")
})