From fd5dd34980783c774b996fc50e9cbd99eaafc46c Mon Sep 17 00:00:00 2001 From: Rich Fiorella Date: Fri, 29 Sep 2023 16:13:42 -0600 Subject: [PATCH] update calibrate carbon test --- tests/testthat/test-high_level_functions.R | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tests/testthat/test-high_level_functions.R b/tests/testthat/test-high_level_functions.R index 9fe412a..8876ae0 100644 --- a/tests/testthat/test-high_level_functions.R +++ b/tests/testthat/test-high_level_functions.R @@ -41,6 +41,18 @@ test_that("calibrate_carbon returns no error", { r2_thres = 0.95, correct_refData = TRUE, write_to_file = TRUE)) + + # these tests could probably be made more useful!! + expect_no_error(calibrate_carbon(fin, '/dev/null', "ONAQ", + method = "Bowling_2003", + calibration_half_width = 0.5, + force_cal_to_beginning = TRUE, + force_cal_to_end = TRUE, + gap_fill_parameters = FALSE, + filter_ambient = TRUE, + r2_thres = 0.95, + correct_refData = TRUE, + write_to_file = FALSE)) })