tests/testthat/test-lookups.R

In Displayr/flipU: Utilities Used In flip Packages

context("lookups")


test_that("LookupName",{
    d <- c("A" = 1, "B" = 2, "C" = 1)
    expect_equal(LookupName(2, d), "B")
    expect_equal(suppressWarnings(LookupName(1, d)), "A")
    expect_warning(LookupName(1, d))
    expect_equal(LookupName(3, d), NULL)
    d1 <- list("A" = 1, "B" = 2, "C" = 1)
    expect_equal(LookupName(2, d1), "B")
    expect_equal(suppressWarnings(LookupName(1, d1)), "A")
    expect_warning(LookupName(1, d1))
    expect_equal(LookupName(3, d1), NULL)

})