tests/testthat/test-search_hmmscan.R

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

test_that("non protein sequences fails", {
  search_hmmscan("12333333dshjdkasdb") %>%
    expect_error(paste0("`seq` must be a protein sequence.\n",
                        "Characters not belonging to the AA standar ",
                        "alphabet were found."))
  search_hmmscan(12333333) %>%
    expect_error(paste0("`seq` must be a protein sequence.\n",
                        "Characters not belonging to the AA standar ",
                        "alphabet were found."))
  search_hmmscan(environment()) %>%
    expect_error()

})

testthat::skip_if_offline()
testthat::skip_on_ci()
test_that("it works with example", {
  seq <- "MGPSENDPNLFVALYDFVASGDNTLSITKGEKLRVLGYNHNG"
  search_hmmscan(seq) %>%
    expect_error(NA)
  search_hmmscan(c(seq, seq),
    db = c("pfam", "tigrfam", "gene3d", "superfamily", "pirsf", "treefam")) %>%
    expect_error(NA)
})