tests/testthat/test-get_taxa_names.R

In richelbilderbeek/beautier: 'BEAUti' from R

context("get_taxa_names")

test_that("use", {

  created <- get_taxa_names(get_beautier_path("anthus_aco_sub.fas"))
  expected <- c(
    "61430_aco", "626029_aco", "630116_aco", "630210_aco", "B25702_aco"
  )
  expect_equal(created, expected)
})

test_that("abuse", {

  expect_error(
    get_taxa_names("abs.ent"),
    "File 'filename' not found. Could not find file with path 'abs.ent'"
  )
})