tests/testthat/test-tarifsemerge.R

context("test-tarifsemerge.R")

test_that("Volume tige sur ess", {
  test <- gftools::TarEmerge(c130 = 50, htot = 15, dec = 7, hdec = 10, ess = "S.P", typevol = "tige")
  expect_equal(test, 0.1418185, tolerance = 0.0000001)
})

test_that("Volume tige sur 2 ess", {
  test <- gftools::TarEmerge(c130 = c(50,100), htot = 15, dec = 7, hdec = 10, ess = c("S.P"), typevol = "tige")
  expect_warning(gftools::TarEmerge(c130 = c(50,100), htot = 15, dec = 7, hdec = 10, ess = c("S.P"), typevol = "tige"))
  expect_equal(test[[1]], 0.122074, tolerance = 0.0000001)
})

test_that("Volume total sur nomess", {
  test <- gftools::TarEmerge(c130 = 50, htot = 15, dec = 7, hdec = 10, nomess = "Fagus sylvatica", typevol = "total")
  expect_equal(test, 0.1442808, tolerance = 0.0000001)
})

test_that("Volume total sur 2 nomess", {
  test <- gftools::TarEmerge(c130 = c(50,100) , htot = 15, dec = 7, hdec = 10, nomess = "Fagus sylvatica", typevol = "total")
  expect_warning(gftools::TarEmerge(c130 = c(50,100) , htot = 15, dec = 7, hdec = 10, nomess = "Fagus sylvatica", typevol = "total"))
  expect_equal(test[[1]], 0.1334535, tolerance = 0.0000001)
})

test_that("Volume houppier sur ess", {
  test <- gftools::TarEmerge(c130 = 50, htot = 15, dec = 7, hdec = 10, ess = "HET", typevol = "houp")
  expect_equal(test, 0.007555233, tolerance = 0.0000001)
})

test_that("Volume tige sur espar", {
  test <- gftools::TarEmerge(c130 = 50, htot = 15, dec = 7, hdec = 10, espar = "09", typevol = "tige")
  expect_equal(test, 0.1367255, tolerance = 0.0000001)
})

test_that("Volume tige sur 2 espar", {
  test <- gftools::TarEmerge(c130 = c(50, 100), htot = 15, dec = 7, hdec = 10, espar = "09", typevol = "tige")
  expect_warning(gftools::TarEmerge(c130 = c(50, 100), htot = 15, dec = 7, hdec = 10, espar = "09", typevol = "tige"))
  expect_equal(test[[1]], 0.1184641, tolerance = 0.0000001)
})

test_that("Volume tige warning Hdec", {
  expect_warning(TarEmerge(c130 = 50, htot = 15, dec = 7, hdec = 20, ess = "HET", typevol = "houp"))
})

test_that("Verifie c130 et htot positifs", {
  expect_error(gftools::TarEmerge(c130 = -10, htot = -15, dec = 7, hdec = 10, espar = "09", typevol = "tige"))
})

test_that("Verifie c130 < 1000", {
  expect_warning(gftools::TarEmerge(c130 = 1100, htot = 15, dec = 7, hdec = 10, espar = "09", typevol = "tige"))
})

test_that("Verifie htot < 50", {
  expect_warning(gftools::TarEmerge(c130 = 100, htot = 55, dec = 7, hdec = 10, espar = "09", typevol = "tige"))
})

test_that("Verifie ess et nomess present", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, ess = "EPC", nomess = "Hetre", hdec = 10, typevol = "tige"))
})

test_that("Verifie espar et nomess present", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, espar = "09", nomess = "Hetre", hdec = 10, typevol = "tige"))
})

test_that("Verifie espar et ess present", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, espar = "09", ess = "EPC", hdec = 10, typevol = "tige"))
})

test_that("Verifie ess is NA", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, ess = NA, hdec = 10, typevol = "tige"))
})

test_that("Verifie nomess is NA", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, nomess = NA, hdec = 10, typevol = "tige"))
})

test_that("Verifie espar is NA", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, espar = NA, hdec = 10, typevol = "tige"))
})

test_that("Verifie que ess ne soit pas un vecteur", {
  expect_error(gftools::TarEmerge(c130 = 100, htot = 45, dec = 7, ess = c("EPC", "HET"), hdec = NA, typevol = "tige"))
})

test_that("This species ... too little for calculation!", {
  expect_warning(gftools::TarEmerge(c130 = 10, htot = 15, dec = 7, hdec = 10, ess = "HET", typevol = "tige"))
})

test_that("Some levels of 'ess' are not valid:...", {
  expect_warning(gftools::TarEmerge(c130 = c(50,100), htot = 15, dec = 7, hdec = 10, ess = c("HET", "CHX"), typevol = "tige"))
})
pobsteta/gftools documentation built on March 28, 2020, 8:25 p.m.