From a7caf4041333b90c7ea6e771520f7897b24df6ed Mon Sep 17 00:00:00 2001 From: fbourgin <francois.bourgin@inrae.fr> Date: Wed, 7 Oct 2020 11:23:00 +0200 Subject: [PATCH] UPDATE: Add test to check that the Fortran version works --- tests/testthat/test-evap.R | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 tests/testthat/test-evap.R diff --git a/tests/testthat/test-evap.R b/tests/testthat/test-evap.R new file mode 100644 index 00000000..0bf33e2b --- /dev/null +++ b/tests/testthat/test-evap.R @@ -0,0 +1,15 @@ +context("Test evaporation") + +test_that("PEdaily_Oudin works", { + skip_on_cran() + rm(list = ls()) + + data(L0123001) + PotEvap <- PEdaily_Oudin(JD = as.POSIXlt(BasinObs$DatesR)$yday + 1, + Temp = BasinObs$T, + Lat = 0.8, LatUnit = "rad") + PotEvapFor <- PEdaily_Oudin(JD = as.POSIXlt(BasinObs$DatesR)$yday + 1, + Temp = BasinObs$T, + Lat = 0.8, LatUnit = "rad", run_fortran = T) + expect_true(all(range(PotEvap - PotEvapFor) < 0.001)) +}) -- GitLab