tests/testthat/test-code_converters.R

In brownag/NASIStools: Tools for the USDA-NRCS National Soil Information System (NASIS)

test_that("musym_to_all works", {

  skip_if_not(soilDB::local_NASIS_defined())

  expect_true(is.vector(musym_to_nmusym("asdf")))
  expect_true(is.vector(musym_to_muiid("asdf")))
  expect_true(is.vector(musym_to_dmuiid("asdf")))
  expect_true(is.vector(musym_to_muname("asdf")))
  expect_true(inherits(musym_to_all("asdf"), 'data.frame'))
})