tests/testthat/test-read_hmmer_from_xml.R

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

test_that("read_hmmscan", {
  read_hmmer_from_xml(c("hmmscan_example.xml",
                        "hmmscan_example.xml")) %>%
    testthat::expect_error(NA)
  read_hmmer_from_xml(c("phmmer_example.xml",
                        "phmmer_example.xml"),
                      c("phmmer_example.fa",
                        "phmmer_example.fa"),
                      c("phmmer_example.afa",
                        "phmmer_example.afa")) %>%
    testthat::expect_error(NA)
})

test_that("error from different length", {
  read_hmmer_from_xml(
    c("hmmscan_example.xml"),
    fullseq_fasta_paths =
      c("phmmer_example.fa",
        "phmmer_example.fa")) %>%
    testthat::expect_error()
})