tests/testthat/test-24-OperativeTemperatureFunctions.R

In trenchproject/TrenchR: Tools for Microclimate and Biophysical Ecology

context("OperativeTemperatureFunctions")

expect_similar <- function(input, expected) {
  eval(bquote(expect_lt(abs(input - expected), 0.01)))
}

test_that("Tb_CampbellNorman function works as expected", {
  expect_similar(Tb_CampbellNorman(T_a=30, T_g=30, S=823, a_s=0.7, epsilon=0.96, c_p=29.3, D=0.17, u=1), 59.54376)
})

test_that("Qnet_Gates function works as expected", {
  expect_equal(Qnet_Gates(Qabs=500, Qemit=10, Qconv=100, Qcond=100, Qmet=10, Qevap=5), 275)
})

test_that("Tb_Gates function works as expected", {
  expect_similar(Tb_Gates(A=0.1, D=0.025, psa_dir=0.6, psa_ref=0.4, psa_air=0.6, psa_g=0.2, T_g=30, T_a=37, Qabs=2, epsilon=0.95, H_L=10, ef=1.23, K=0.5), 33.04367)
expect_message(x <- Tb_Gates(A=0.1, D=0.025, psa_dir=0.6, psa_ref=0.4, psa_air=0.6, psa_g=0.2, T_g=77, T_a=-37, Qabs=2, epsilon=0.95, H_L=10, ef=1.23, K=0.01))
expect_true(is.na(x))
})

test_that("Tb_Gates2 function works as expected", {
  expect_similar(Tb_Gates2(A = 0.1, D = 0.025, T_g = 27, T_a = 37, Qabs = 2, u = 0.1, epsilon = 1), 32.25524)
expect_message(x <- Tb_Gates2(A = 0.1, D = 0.025, T_g = 90, T_a = -42, Qabs =1, u = 0.1, epsilon = 0.6))
expect_true(is.na(x))
})