tests/testthat/test-get_param_gen.R

In SticsRPacks/SticsRFiles: Read and Modify 'STICS' Input/Output Files

stics_version <- get_stics_versions_compat()$latest_version

xml_path <- file.path(
  get_examples_path("xml", stics_version = stics_version),
  "param_gen.xml"
)
context("Getting gen param values")

test_that("all values from a single node", {
  expect_equal(
    unname(unlist(get_param_xml(
      xml_path,
      c("masvolcx", "hcccx"),
      select = "Lutetian Brackish marl and limestone"
    ))),
    c(2.3, 5)
  )
})

test_that("getting values from choice param", {
  expect_equal(
    unname(unlist(get_param_xml(
      xml_path,
      c(
        "tnitmin",
        "tnitopt",
        "tnitopt2",
        "tnitmax"
      )
    ))),
    c(5, 30, 35, 58)
  )
})