From 826cf9a2687ff1d7ca5b568882f5686f76f82074 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 30 Jan 2017 14:11:34 +0100 Subject: Use relative tolerance of 1e-6 for flux test to pass test also for more extreme situations as in the current test data. --- tests/testthat/test_PELMO.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/testthat/test_PELMO.R b/tests/testthat/test_PELMO.R index ab0e37a..a08f607 100644 --- a/tests/testthat/test_PELMO.R +++ b/tests/testthat/test_PELMO.R @@ -119,12 +119,14 @@ test_that("PELMO runs are correctly evaluated", { period_pfm_file <- file.path(PELMO_base, "FOCUS", pp, "period_pfm.rda") load(period_pfm_file) + #message(psm, " ", crop, " ", scenario) + # Test for equality of all the components separately, # as we need to adapt the tolerance for (acronym in acronyms) { p_pelmo <- results[[acronym]]$periods p_test <- results_pfm[[acronym]]$periods - expect_equal(p_test$flux, p_pelmo$flux, tol = 1e-6, scale = 1) + expect_equal(p_test$flux, p_pelmo$flux, tol = 1e-6) expect_equal(p_test$percolate, p_pelmo$percolate) # PELMO sets the concentration to 0 when the percolate is zero. # We get NaN, which is more reasonable, but we need to -- cgit v1.2.1