tests/testthat/test-HOST2USDA.R

context("HOST2USDA")

test_that("HOST2USDA works", {

  usdaClass <- HOST2USDA(c("3","7"))

  expect_equal(usdaClass, c("A", "AB"))

})
cvitolo/curvenumber documentation built on April 19, 2022, 3:33 a.m.