tests/testthat/test-pullSpeciesCodes.R

In davis-research/MakeMyForests: SORTIE-ND Preparation From Forest Inventory Data

context("pullSpeciesCodes and RefSpecies load and function correctly")

test_that("pullSpeciesCodes finds a number correctly", {
  expect_equal(pullSpeciesCodes("ABCO"), 15)
  })

test_that("pullSpeciesCodes stops if nothing was found", {
  expect_error(pullSpeciesCodes("ABXY", RefSpecies))
})