tests/testthat/test-registerDataSource.R

In egonw/BridgeDbR: Code for using BridgeDb identifier mapping framework from within R

library(BridgeDbR)
context("simple")

test_that("allows registring of an existing resources", {
    dataSource <- registerDataSource(code = "Cks", name = "KNApSAcK")
    expect_false(is.null(dataSource))
    expect_equal(dataSource$getSystemCode(), "Cks")
})

test_that("allows registring of a new resources", {
    dataSource <- registerDataSource(code = "Sou", name = "Sourcy McSourceface")
    expect_false(is.null(dataSource))
    expect_equal(dataSource$getSystemCode(), "Sou")
})