tests/testthat/test-extractSMR.R

In SoilTaxonomy: A System of Soil Classification for Making and Interpreting Soil Surveys

test_that("extractSMR works", {
  # test below subgroup level/case insensitivity/no factor
  expect_equal(extractSMR("Aquolls", as.is = TRUE), c(Aquolls = "aquic"))

  # test with multiple subgroup level taxa,
  # including one w/ more formative elements than usual (humic inceptic eutroperox)
  expect_equal(extractSMR(c("aquic haploxeralfs",
                            "typic epiaqualfs",
                            "humic inceptic eutroperox",
                            "aquisalids",
                            "aquiturbels")),
               factor(
                 c(`aquic haploxeralfs` = "xeric",
                   `typic epiaqualfs` = "aquic",
                   `humic inceptic eutroperox` = "perudic",
                   `aquisalids` = "aridic (torric)",
                   `aquiturbels` = "aquic"
                 ),
                 levels = SoilMoistureRegimeLevels(as.is = TRUE),
                 ordered = TRUE)
              )

  expect_equal(extractSMR(c('xerollic glossocryalfs', 'ustic haplocambids')),
               factor(
                 c(
                   `xerollic glossocryalfs` = "xeric",
                   `ustic haplocambids` = "aridic (torric)"
                 ),
                 levels = SoilMoistureRegimeLevels(as.is = TRUE),
                 ordered = TRUE
               ))
})