tests/testthat/testmisc.R

library(plantecophys)
context("Misc tests")


test_that("QUADP", {
 
  expect_equal(plantecophys:::QUADP(0,0,0), 0)
  expect_equal(plantecophys:::QUADM(0,0,0), 0)
  expect_equal(plantecophys:::QUADM(0,1,1), -1)
  expect_equal(plantecophys:::QUADP(0,1,1), -1)
  
  expect_warning(plantecophys:::QUADP(1,2,3))
  expect_warning(plantecophys:::QUADM(1,2,3))
})
RemkoDuursma/plantecophys documentation built on April 6, 2021, 2:45 a.m.