tests/testthat/test-update_alpha.R

test_that("update_alpha() correctly updates alpha codes", {
  a = c("LTDU", "OLDS", "MALL", "NOSH")
  b = c("LTDU", "LTDU", "MALL", "NSHO")
  expect_identical(update_alpha(a), b)
})
scottfjennings/birdnames documentation built on July 2, 2023, 6:07 a.m.