tests/testthat/test-are_mrca_taxa_names_in_fastas.R

context("are_mrca_taxa_names_in_fastas")

test_that("use", {

  my_filename <- get_fasta_filename()

  testthat::expect_true(
    beautier:::are_mrca_taxa_names_in_fastas(
      mrca_priors = list(
        create_mrca_prior(
          alignment_id = get_alignment_id(my_filename),
          taxa_names = get_taxa_names(my_filename)
        )
      ),
      fasta_filenames = my_filename
    )
  )

  testthat::expect_false(
    beautier:::are_mrca_taxa_names_in_fastas(
      mrca_priors = list(
        create_mrca_prior(
          alignment_id = get_alignment_id(my_filename),
          taxa_names = paste0("broken_", get_taxa_names(my_filename))
        )
      ),
      fasta_filenames = my_filename
    )
  )

})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.