tests/testthat/test-get_param_sta.R

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

stics_version <- get_stics_versions_compat()$latest_version
version_num <- get_version_num()

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

test_that("single value from single node", {
  expect_equivalent(unlist(get_param_xml(xml_path, "codeclichange")), 1)
})


test_that("singles values from multiples nodes", {
  expect_equivalent(unname(unlist(get_param_xml(xml_path, c(
    "codeetp", "alphapt", "codeclichange", "codaltitude",
    "altistation", "altisimul", "gradtn", "gradtx",
    "altinversion", "gradtninv", "cielclair", "codadret",
    "ombragetx"
  )))), c(
    1, 1.26, 1, 1, 440, 800, -0.5, -0.55,
    500, 1.3, 0.8, 1, -1.4
  ))
})