tests/testthat/test-mapspeciesser.R

In pobsteta/gftools: Geographic Data Analysis and Modeling for Forests

context("test-mapspeciesser.R")

test_that("Graphe des essences Chene pedoncule et Hetre", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::MapSpeciesSER()
  expect_identical(class(test$Carte), c("gg", "ggplot"))
  # expect_equal(2 * 2, 4)
})

test_that("Boxplot des essences Chene pedoncule et Hetre", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::MapSpeciesSER()
  expect_identical(class(test$Boxplot), c("gg", "ggplot"))
  # expect_equal(2 * 2, 4)
})