tests/testthat/test-remove_duplicate_motifs.R

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

test_that("Duplicate motif removal works", {
  m <- universalmotif::create_motif("CCAA")
  duplicated <- c(m, m, m)

  # universalmotif list
  expect_length(remove_duplicate_motifs(duplicated), 1)
  expect_identical(remove_duplicate_motifs(duplicated), list(m))
  # universalmotif_df
  expect_equal(
    nrow(remove_duplicate_motifs(universalmotif::to_df(duplicated))),
    1
  )
  expect_identical(
    remove_duplicate_motifs(universalmotif::to_df(duplicated)),
    universalmotif::to_df(m)
  )

  # returned motif is the first in the list
  m2 <- universalmotif::create_motif("CCAA", name = "first")
  expect_equal(remove_duplicate_motifs(c(m2, m))[[1]]["name"], "first")

  expect_true(has_duplicate_motifs(duplicated))
  expect_true(has_duplicate_motifs(universalmotif::to_df(duplicated)))
  expect_false(has_duplicate_motifs(c(m)))
  expect_false(has_duplicate_motifs(universalmotif::to_df(m)))

  no_dups <- c(
    universalmotif::create_motif("AAT"),
    universalmotif::create_motif("TTA")
  )

  expect_false(has_duplicate_motifs(no_dups))
  expect_false(has_duplicate_motifs(universalmotif::to_df(no_dups)))
})