tests/testthat/test-search_hmmsearch.R

In currocam/taxa2hmmer: Get more out of homologous sequence search with HMMER

test_that("non alignment fails", {
  search_hmmsearch("12333333dshjdkasdb") %>%
    expect_error("`alns` must a list of AAMultipleAlignment")
  search_hmmsearch(12333333) %>%
    expect_error("`alns` must a list of AAMultipleAlignment")
  search_hmmsearch(environment()) %>%
    expect_error()

})

testthat::skip_if_offline()
testthat::skip_on_ci()
test_that("it works with example", {
  aln <- Biostrings::readAAMultipleAlignment("alignment.aln", "stockholm")
  search_hmmsearch(aln) %>%
    expect_error(NA)
  search_hmmsearch(c(aln, aln),
                 db = c("swissprot", "pdb", "ensembl"),alignment = TRUE) %>%
    expect_error(NA)
})