tests/testthat/test-map.R

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

library(BridgeDbR)
context("simple")

test_that("it can find mappings", {
    location = paste(getwd(), "test.bridge", sep = "/")
    mapper <- loadDatabase(location)
    mappings <- map(mapper, "Ik", "YECLLIMZHNYFCK-RRNJGNTNSA-J")
    expect_equal(nrow(mappings), 3)
})

test_that("it can find mappings for a specific target", {
    location = paste(getwd(), "test.bridge", sep = "/")
    mapper <- loadDatabase(location)
    mappings <- map(mapper, "Ik", "YECLLIMZHNYFCK-RRNJGNTNSA-J", "Lm")
    expect_equal(nrow(mappings), 1)
})

test_that("it returns an empty data frame with a non-existing identifier", {
    location = paste(getwd(), "test.bridge", sep = "/")
    mapper <- loadDatabase(location)
    mappings <- map(mapper, "Ik", "YECLLIMZHNYFCK-RRNJGNTNSA-A")
    expect_equal(nrow(mappings), 0)
})