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