tests/testthat/test-xrefExists.R

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

library(BridgeDbR)
context("simple")

test_that("it can find identifers in the mapping file", {
    location = paste(getwd(), "test.bridge", sep = "/")
    mapper <- loadDatabase(location)
    expect_true(xrefExists(mapper, "Lm", "LMFA07050035"))
    expect_true(xrefExists(mapper, "Ik", "YECLLIMZHNYFCK-RRNJGNTNSA-J"))
})