tests/testthat/test-check_soilphys.R

In valentingar/ConFluxPro: A toolkit for soil gas analysis

test_that("check_soilphys_half_ready", {

  df <- data.frame(upper = numeric(),
                   lower = numeric(),
                   SWC = numeric(),
                   TPS = numeric(),
                   t = numeric(),
                   p = numeric()
                   )

  utils::capture.output(check_res <- check_soilphys(df,id_cols = c())$result)

expect_equal(check_res, TRUE)
})

test_that("check_soilphys_not_ready", {

  df <- data.frame(upper = numeric(),
                   lower = numeric(),
                   SWC = numeric(),
                   TPS = numeric(),
                   t = numeric()
  )

  utils::capture.output(check_res <- check_soilphys(df, id_cols = c())$result)

  expect_equal(check_res, FALSE)
})

test_that("check_soilphys_supects", {

  df <- data.frame(upper = c(10, 0),
                   lower = c(0, -10),
                   depth = c(5, -5),
                   SWC =   c(NA, 1),
                   TPS =   c(NA, 1),
                   t =     c(NA, 1)
  )

  utils::capture.output(check_res <- check_soilphys(df, id_cols = c())$suspects)

  expect_equal(check_res,
               tibble(upper = c(10, 10, 10),
                      param = c("TPS", "SWC", "t"),
                      value = c(TRUE, TRUE, TRUE))
  )

  df <- data.frame(upper = c(NA, NA),
                   lower = c(0, -10),
                   depth = c(5, -5),
                   SWC =   c(NA, 1),
                   TPS =   c(NA, 1),
                   t =     c(NA, 1)
  )

  utils::capture.output(check_res <- check_soilphys(df, id_cols = c())$suspects)

  expect_equal(check_res,
               tibble(param = c("upper"),
                      value = c(TRUE))
  )

})