tests/testthat/test-species_to_latin.R

In richardjtelford/ggpalaeo: ggplot2 Plots For analogue and rioja Packages

test_that("Simple cases work", {
  x <- "Navicula elkab"
  expect_equal("italic(Navicula)~italic(elkab)", species_to_italics(x, text = TRUE))
})

test_that("modifiers ignored", {
  x <- "Navicula elkab agg"
  expect_equal("italic(Navicula)~italic(elkab)~agg", species_to_italics(x, text = TRUE))
})

test_that("modifiers ignored", {
  x <- "Navicula elkab O.Müller ex O.Müller"
  expect_equal("italic(Navicula)~italic(elkab)~O.Müller~ex~O.Müller", species_to_italics(x, text = TRUE))
})