tests/testthat/test-get_climate_txt.R

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

library(SticsRFiles)

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

context("Counting rows of climate file")

workspace_path <- get_examples_path("txt", stics_version = stics_version)

meteo <- get_climate_txt(workspace_path)

test_that("Count rows climate file", {
  expect_equal(nrow(meteo), 366)
})