tests/testthat/test-match_utils.R

In snystrom/memes: motif matching, comparison, and de novo discovery using the MEME Suite

test_that("match utils work", {
  data("example_tomtom", package = "memes")
  # test force_best_match
  expect_error(
    force_best_match(example_tomtom, c("bad" = "bad")),
    "invalid names: bad"
  )

  expect_error(
    force_best_match(example_tomtom, c("example_motif" = "bad")),
    "bad is not found within "
  )

  expect_equal(
    force_best_match(
      example_tomtom,
      c("example_motif" = "Lag1_Cell")
    )$best_match_name,
    "Lag1_Cell"
  )
})