tests/testthat/test-utils.R

In SilviaTerra/rpnc250: R implentation of USFS Research Paper NC-250: Tree Volume and Biomass Equations for the Lake States

test_that("assign_species_group works", {
  expect_identical(
    assign_species_group(
      spcd = unique(test_trees$spcd)
    ),
    c(
      "Black spruce", "Tamarack", "Quaking aspen",
      "Balsam fir", "Paper birch", "Soft maple",
      "White spruce", "Black ash", "Noncommercial spp.",
      "Bigtooth aspen"
    )
  )
})