tests/testthat/test_get_etiology.R

In Rozen-Lab/cosmicsig: Mutational Signatures from COSMIC (Catalogue of Somatic Mutations in Cancer)

test_that("get_etiology", {
  ee <- get_etiology("ID", c("ID1", "foo", "ID3"))
  expect_equal(
    ee,
    c(
      ID1 = "Replication slippage; defective DNA mismatch repair",
      foo = "",
      ID3 = "Tobacco smoking"
    )
  )
})