tests/testthat/test-cfp_gasdata.R

In valentingar/ConFluxPro: A toolkit for soil gas analysis

test_that("create cfp_gasdata object", {


  df <- data.frame(site = rep(c("site_a","site_b"),
                              each = 4),
                   depth = rep(c(10,0,-20,-100),
                               times = 2),
                   x_ppm = rep(400,8),
                   gas = "CO2")



  x <- cfp_gasdata(df,
                   id_cols = "site")

  expect_message(cfp_gasdata(df,id_cols = "site"))
  expect_true(inherits(x, "cfp_gasdata"))
  expect_equal(cfp_id_cols(x),c("site","gas"))

  expect_error(cfp_gasdata(df))

})

test_that("cfp_gasdatasoilphys no negatives allowed", {
  library(dplyr)

  gasdata <- ConFluxPro::gasdata %>%
    mutate(x_ppm = -x_ppm)

  expect_error(gasdata %>%
                 cfp_gasdata(id_cols = c("site", "Date"))
  )
})