tests/testthat/test-print_name.R

In kamapu/taxlist: Handling Taxonomic Lists

context("printing taxon usage names")

test_that("printed names are working", {
  expect_is(
    print_name(Easplist, 363, style = "expression"),
    "expression"
  )
  expect_is(print_name(Easplist, 363,
    style = "expression",
    secundum = "secundum"
  ), "expression")
  expect_equal(
    paste(print_name(Easplist, 363)),
    "*Ludwigia adscendens* ssp. *diffusa* (Forssk.) P.H. Raven"
  )
  expect_equal(
    paste(print_name(Easplist, 363, style = "html")),
    paste(
      "<i>Ludwigia adscendens</i> ssp. <i>diffusa</i>",
      "(Forssk.) P.H. Raven"
    )
  )
  expect_equal(
    paste(print_name(Easplist, 363, style = "knitr")),
    paste(
      "\\textit{Ludwigia adscendens} ssp.",
      "\\textit{diffusa} (Forssk.) P.H. Raven"
    )
  )
  ## when more than one name is requested
  ## expect_warning(print_name(Easplist, c(1, 2)))
})